Merge Chromium + Blink git repositories
[chromium-blink-merge.git] / third_party / sqlite / sqlite-src-3080704 / test / extension01.test
blob97b772680e5ee3cb50d254018a715e29fc514ce9
1 # 2014-06-16
3 # The author disclaims copyright to this source code.  In place of
4 # a legal notice, here is a blessing:
6 #    May you do good and not evil.
7 #    May you find forgiveness for yourself and forgive others.
8 #    May you share freely, never taking more than you give.
10 #***********************************************************************
11
12 # This file implements tests for various small extensions.
15 set testdir [file dirname $argv0]
16 source $testdir/tester.tcl
17 set ::testprefix extension01
19 load_static_extension db fileio
20 do_test 1.0 {
21   forcedelete file1.txt
22   set out [open ./file1.txt wb]
23   puts -nonewline $out "This is a text file without a line ending"
24   close $out
25   db eval {
26     CREATE TABLE t1(a INTEGER PRIMARY KEY, b TEXT);
27     INSERT INTO t1 VALUES(1, readfile('./file1.txt'));
28     SELECT * FROM t1;
29   }
30 } {1 {This is a text file without a line ending}}
31 do_test 1.1 {
32   forcedelete file2.txt
33   db nullvalue nil
34   db eval {
35     DELETE FROM t1;
36     INSERT INTO t1 VALUES(2, readfile(NULL)),(3, readfile('file2.txt'));
37     SELECT a, b, typeof(b) FROM t1;
38   }
39 } {2 nil null 3 nil null}
41 do_test 1.2 {
42   db eval {
43     SELECT writefile('./file2.txt', 'A second test line');
44   }
45 } {18}
46 do_test 1.3 {
47   set in [open ./file2.txt rb]
48   set x [read $in]
49   close $in
50   list $x [file size file2.txt]
51 } {{A second test line} 18}
53 do_test 1.4 {
54   db eval {
55     SELECT writefile('./file2.txt', NULL);
56   }
57 } {0}
58 do_test 1.5 {
59   file size ./file2.txt
60 } {0}
62 do_test 1.6 {
63   if {$::tcl_platform(platform)=="unix"} {
64     file attributes ./file2.txt -permissions r--r--r--
65   } else {
66     file attributes ./file2.txt -readonly 1
67   }
68   db eval {
69     SELECT writefile('./file2.txt', 'Another test');
70   }
71 } {nil}
72 do_test 1.7 {
73   if {$::tcl_platform(platform)=="unix"} {
74     file attributes ./file2.txt -permissions rw-r--r--
75   } else {
76     file attributes ./file2.txt -readonly 0
77   }
78   db eval {
79     SELECT writefile(NULL, 'Another test');
80   }
81 } {nil}
83 finish_test