src/third_party/sqlite/src/tool/shell2.test

   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"