| OLD | NEW |
| (Empty) |
| 1 # 2009 Nov 11 | |
| 2 # | |
| 3 # The author disclaims copyright to this source code. In place of | |
| 4 # a legal notice, here is a blessing: | |
| 5 # | |
| 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. | |
| 9 # | |
| 10 #*********************************************************************** | |
| 11 # | |
| 12 # The focus of this file is testing the CLI shell tool. | |
| 13 # | |
| 14 # $Id: shell2.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $ | |
| 15 # | |
| 16 | |
| 17 # Test plan: | |
| 18 # | |
| 19 # shell2-1.*: Misc. test of various tickets and reported errors. | |
| 20 # | |
| 21 | |
| 22 package require sqlite3 | |
| 23 | |
| 24 set CLI "./sqlite3" | |
| 25 | |
| 26 proc do_test {name cmd expected} { | |
| 27 puts -nonewline "$name ..." | |
| 28 set res [uplevel $cmd] | |
| 29 if {$res eq $expected} { | |
| 30 puts Ok | |
| 31 } else { | |
| 32 puts Error | |
| 33 puts " Got: $res" | |
| 34 puts " Expected: $expected" | |
| 35 exit | |
| 36 } | |
| 37 } | |
| 38 | |
| 39 proc execsql {sql} { | |
| 40 uplevel [list db eval $sql] | |
| 41 } | |
| 42 | |
| 43 proc catchsql {sql} { | |
| 44 set rc [catch {uplevel [list db eval $sql]} msg] | |
| 45 list $rc $msg | |
| 46 } | |
| 47 | |
| 48 proc catchcmd {db {cmd ""}} { | |
| 49 global CLI | |
| 50 set out [open cmds.txt w] | |
| 51 puts $out $cmd | |
| 52 close $out | |
| 53 set line "exec $CLI $db < cmds.txt" | |
| 54 set rc [catch { eval $line } msg] | |
| 55 list $rc $msg | |
| 56 } | |
| 57 | |
| 58 file delete -force test.db test.db.journal | |
| 59 sqlite3 db test.db | |
| 60 | |
| 61 | |
| 62 #---------------------------------------------------------------------------- | |
| 63 # shell2-1.*: Misc. test of various tickets and reported errors. | |
| 64 # | |
| 65 | |
| 66 # Batch mode not creating databases. | |
| 67 # Reported on mailing list by Ken Zalewski. | |
| 68 # Ticket [aeff892c57]. | |
| 69 do_test shell2-1.1.1 { | |
| 70 file delete -force foo.db | |
| 71 set rc [ catchcmd "-batch foo.db" "CREATE TABLE t1(a);" ] | |
| 72 set fexist [file exist foo.db] | |
| 73 list $rc $fexist | |
| 74 } {{0 {}} 1} | |
| 75 | |
| 76 # Shell silently ignores extra parameters. | |
| 77 # Ticket [f5cb008a65]. | |
| 78 do_test shell2-1.2.1 { | |
| 79 set rc [catch { eval exec $CLI \":memory:\" \"select 3\" \"select 4\" } msg] | |
| 80 list $rc \ | |
| 81 [regexp {Error: too many options: "select 4"} $msg] | |
| 82 } {1 1} | |
| 83 | |
| 84 # Test a problem reported on the mailing list. The shell was at one point | |
| 85 # returning the generic SQLITE_ERROR message ("SQL error or missing database") | |
| 86 # instead of the "too many levels..." message in the test below. | |
| 87 # | |
| 88 do_test shell2-1.3 { | |
| 89 catchcmd "-batch test.db" { | |
| 90 PRAGMA recursive_triggers = ON; | |
| 91 CREATE TABLE t5(a PRIMARY KEY, b, c); | |
| 92 INSERT INTO t5 VALUES(1, 2, 3); | |
| 93 CREATE TRIGGER au_tble AFTER UPDATE ON t5 BEGIN | |
| 94 UPDATE OR IGNORE t5 SET a = new.a, c = 10; | |
| 95 END; | |
| 96 | |
| 97 UPDATE OR REPLACE t5 SET a = 4 WHERE a = 1; | |
| 98 } | |
| 99 } {1 {Error: near line 9: too many levels of trigger recursion}} | |
| 100 | |
| 101 | |
| 102 | |
| 103 # Shell not echoing all commands with echo on. | |
| 104 # Ticket [eb620916be]. | |
| 105 | |
| 106 # Test with echo off | |
| 107 # NB. whitespace is important | |
| 108 do_test shell2-1.4.1 { | |
| 109 file delete -force foo.db | |
| 110 catchcmd "foo.db" {CREATE TABLE foo(a); | |
| 111 INSERT INTO foo(a) VALUES(1); | |
| 112 SELECT * FROM foo;} | |
| 113 } {0 1} | |
| 114 | |
| 115 # Test with echo on using command line option | |
| 116 # NB. whitespace is important | |
| 117 do_test shell2-1.4.2 { | |
| 118 file delete -force foo.db | |
| 119 catchcmd "-echo foo.db" {CREATE TABLE foo(a); | |
| 120 INSERT INTO foo(a) VALUES(1); | |
| 121 SELECT * FROM foo;} | |
| 122 } {0 {CREATE TABLE foo(a); | |
| 123 INSERT INTO foo(a) VALUES(1); | |
| 124 SELECT * FROM foo; | |
| 125 1}} | |
| 126 | |
| 127 # Test with echo on using dot command | |
| 128 # NB. whitespace is important | |
| 129 do_test shell2-1.4.3 { | |
| 130 file delete -force foo.db | |
| 131 catchcmd "foo.db" {.echo ON | |
| 132 CREATE TABLE foo(a); | |
| 133 INSERT INTO foo(a) VALUES(1); | |
| 134 SELECT * FROM foo;} | |
| 135 } {0 {CREATE TABLE foo(a); | |
| 136 INSERT INTO foo(a) VALUES(1); | |
| 137 SELECT * FROM foo; | |
| 138 1}} | |
| 139 | |
| 140 # Test with echo on using dot command and | |
| 141 # turning off mid- processing. | |
| 142 # NB. whitespace is important | |
| 143 do_test shell2-1.4.4 { | |
| 144 file delete -force foo.db | |
| 145 catchcmd "foo.db" {.echo ON | |
| 146 CREATE TABLE foo(a); | |
| 147 .echo OFF | |
| 148 INSERT INTO foo(a) VALUES(1); | |
| 149 SELECT * FROM foo;} | |
| 150 } {0 {CREATE TABLE foo(a); | |
| 151 .echo OFF | |
| 152 1}} | |
| 153 | |
| 154 # Test with echo on using dot command and | |
| 155 # multiple commands per line. | |
| 156 # NB. whitespace is important | |
| 157 do_test shell2-1.4.5 { | |
| 158 file delete -force foo.db | |
| 159 catchcmd "foo.db" {.echo ON | |
| 160 CREATE TABLE foo1(a); | |
| 161 INSERT INTO foo1(a) VALUES(1); | |
| 162 CREATE TABLE foo2(b); | |
| 163 INSERT INTO foo2(b) VALUES(1); | |
| 164 SELECT * FROM foo1; SELECT * FROM foo2; | |
| 165 INSERT INTO foo1(a) VALUES(2); INSERT INTO foo2(b) VALUES(2); | |
| 166 SELECT * FROM foo1; SELECT * FROM foo2; | |
| 167 } | |
| 168 } {0 {CREATE TABLE foo1(a); | |
| 169 INSERT INTO foo1(a) VALUES(1); | |
| 170 CREATE TABLE foo2(b); | |
| 171 INSERT INTO foo2(b) VALUES(1); | |
| 172 SELECT * FROM foo1; | |
| 173 1 | |
| 174 SELECT * FROM foo2; | |
| 175 1 | |
| 176 INSERT INTO foo1(a) VALUES(2); | |
| 177 INSERT INTO foo2(b) VALUES(2); | |
| 178 SELECT * FROM foo1; | |
| 179 1 | |
| 180 2 | |
| 181 SELECT * FROM foo2; | |
| 182 1 | |
| 183 2}} | |
| 184 | |
| 185 # Test with echo on and headers on using dot command and | |
| 186 # multiple commands per line. | |
| 187 # NB. whitespace is important | |
| 188 do_test shell2-1.4.6 { | |
| 189 file delete -force foo.db | |
| 190 catchcmd "foo.db" {.echo ON | |
| 191 .headers ON | |
| 192 CREATE TABLE foo1(a); | |
| 193 INSERT INTO foo1(a) VALUES(1); | |
| 194 CREATE TABLE foo2(b); | |
| 195 INSERT INTO foo2(b) VALUES(1); | |
| 196 SELECT * FROM foo1; SELECT * FROM foo2; | |
| 197 INSERT INTO foo1(a) VALUES(2); INSERT INTO foo2(b) VALUES(2); | |
| 198 SELECT * FROM foo1; SELECT * FROM foo2; | |
| 199 } | |
| 200 } {0 {.headers ON | |
| 201 CREATE TABLE foo1(a); | |
| 202 INSERT INTO foo1(a) VALUES(1); | |
| 203 CREATE TABLE foo2(b); | |
| 204 INSERT INTO foo2(b) VALUES(1); | |
| 205 SELECT * FROM foo1; | |
| 206 a | |
| 207 1 | |
| 208 SELECT * FROM foo2; | |
| 209 b | |
| 210 1 | |
| 211 INSERT INTO foo1(a) VALUES(2); | |
| 212 INSERT INTO foo2(b) VALUES(2); | |
| 213 SELECT * FROM foo1; | |
| 214 a | |
| 215 1 | |
| 216 2 | |
| 217 SELECT * FROM foo2; | |
| 218 b | |
| 219 1 | |
| 220 2}} | |
| 221 | |
| 222 puts "CLI tests completed successfully" | |
| OLD | NEW |