Annotation of embedaddon/sqlite3/tool/shell2.test, revision 1.1
1.1 ! misho 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"
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to shell2.test CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / tool