Index: third_party/sqlite/sqlite-src-3080704/test/extension01.test |
diff --git a/third_party/sqlite/sqlite-src-3080704/test/extension01.test b/third_party/sqlite/sqlite-src-3080704/test/extension01.test |
deleted file mode 100644 |
index 97b772680e5ee3cb50d254018a715e29fc514ce9..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/sqlite-src-3080704/test/extension01.test |
+++ /dev/null |
@@ -1,83 +0,0 @@ |
-# 2014-06-16 |
-# |
-# The author disclaims copyright to this source code. In place of |
-# a legal notice, here is a blessing: |
-# |
-# May you do good and not evil. |
-# May you find forgiveness for yourself and forgive others. |
-# May you share freely, never taking more than you give. |
-# |
-#*********************************************************************** |
-# |
-# This file implements tests for various small extensions. |
-# |
- |
-set testdir [file dirname $argv0] |
-source $testdir/tester.tcl |
-set ::testprefix extension01 |
- |
-load_static_extension db fileio |
-do_test 1.0 { |
- forcedelete file1.txt |
- set out [open ./file1.txt wb] |
- puts -nonewline $out "This is a text file without a line ending" |
- close $out |
- db eval { |
- CREATE TABLE t1(a INTEGER PRIMARY KEY, b TEXT); |
- INSERT INTO t1 VALUES(1, readfile('./file1.txt')); |
- SELECT * FROM t1; |
- } |
-} {1 {This is a text file without a line ending}} |
-do_test 1.1 { |
- forcedelete file2.txt |
- db nullvalue nil |
- db eval { |
- DELETE FROM t1; |
- INSERT INTO t1 VALUES(2, readfile(NULL)),(3, readfile('file2.txt')); |
- SELECT a, b, typeof(b) FROM t1; |
- } |
-} {2 nil null 3 nil null} |
- |
-do_test 1.2 { |
- db eval { |
- SELECT writefile('./file2.txt', 'A second test line'); |
- } |
-} {18} |
-do_test 1.3 { |
- set in [open ./file2.txt rb] |
- set x [read $in] |
- close $in |
- list $x [file size file2.txt] |
-} {{A second test line} 18} |
- |
-do_test 1.4 { |
- db eval { |
- SELECT writefile('./file2.txt', NULL); |
- } |
-} {0} |
-do_test 1.5 { |
- file size ./file2.txt |
-} {0} |
- |
-do_test 1.6 { |
- if {$::tcl_platform(platform)=="unix"} { |
- file attributes ./file2.txt -permissions r--r--r-- |
- } else { |
- file attributes ./file2.txt -readonly 1 |
- } |
- db eval { |
- SELECT writefile('./file2.txt', 'Another test'); |
- } |
-} {nil} |
-do_test 1.7 { |
- if {$::tcl_platform(platform)=="unix"} { |
- file attributes ./file2.txt -permissions rw-r--r-- |
- } else { |
- file attributes ./file2.txt -readonly 0 |
- } |
- db eval { |
- SELECT writefile(NULL, 'Another test'); |
- } |
-} {nil} |
- |
-finish_test |