Index: third_party/sqlite/src/tool/shell3.test |
diff --git a/third_party/sqlite/src/tool/shell3.test b/third_party/sqlite/src/tool/shell3.test |
deleted file mode 100644 |
index d37adff2d31742f26d85c5e29da798dfcfde3249..0000000000000000000000000000000000000000 |
--- a/third_party/sqlite/src/tool/shell3.test |
+++ /dev/null |
@@ -1,124 +0,0 @@ |
-# 2009 Dec 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. |
-# |
-#*********************************************************************** |
-# |
-# The focus of this file is testing the CLI shell tool. |
-# |
-# $Id: shell2.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $ |
-# |
- |
-# Test plan: |
-# |
-# shell3-1.*: Basic tests for running SQL statments from command line. |
-# shell3-2.*: Basic tests for running SQL file from command line. |
-# |
- |
-package require sqlite3 |
- |
-set CLI "./sqlite3" |
- |
-proc do_test {name cmd expected} { |
- puts -nonewline "$name ..." |
- set res [uplevel $cmd] |
- if {$res eq $expected} { |
- puts Ok |
- } else { |
- puts Error |
- puts " Got: $res" |
- puts " Expected: $expected" |
- exit |
- } |
-} |
- |
-proc execsql {sql} { |
- uplevel [list db eval $sql] |
-} |
- |
-proc catchsql {sql} { |
- set rc [catch {uplevel [list db eval $sql]} msg] |
- list $rc $msg |
-} |
- |
-proc catchcmd {db {cmd ""}} { |
- global CLI |
- set out [open cmds.txt w] |
- puts $out $cmd |
- close $out |
- set line "exec $CLI $db < cmds.txt" |
- set rc [catch { eval $line } msg] |
- list $rc $msg |
-} |
- |
-file delete -force test.db test.db.journal |
-sqlite3 db test.db |
- |
- |
-#---------------------------------------------------------------------------- |
-# shell3-1.*: Basic tests for running SQL statments from command line. |
-# |
- |
-# Run SQL statement from command line |
-do_test shell3-1.1 { |
- file delete -force foo.db |
- set rc [ catchcmd "foo.db \"CREATE TABLE t1(a);\"" ] |
- set fexist [file exist foo.db] |
- list $rc $fexist |
-} {{0 {}} 1} |
-do_test shell3-1.2 { |
- catchcmd "foo.db" ".tables" |
-} {0 t1} |
-do_test shell3-1.3 { |
- catchcmd "foo.db \"DROP TABLE t1;\"" |
-} {0 {}} |
-do_test shell3-1.4 { |
- catchcmd "foo.db" ".tables" |
-} {0 {}} |
-do_test shell3-1.5 { |
- catchcmd "foo.db \"CREATE TABLE t1(a); DROP TABLE t1;\"" |
-} {0 {}} |
-do_test shell3-1.6 { |
- catchcmd "foo.db" ".tables" |
-} {0 {}} |
-do_test shell3-1.7 { |
- catchcmd "foo.db \"CREATE TABLE\"" |
-} {1 {Error: near "TABLE": syntax error}} |
- |
-#---------------------------------------------------------------------------- |
-# shell3-2.*: Basic tests for running SQL file from command line. |
-# |
- |
-# Run SQL file from command line |
-do_test shell3-2.1 { |
- file delete -force foo.db |
- set rc [ catchcmd "foo.db" "CREATE TABLE t1(a);" ] |
- set fexist [file exist foo.db] |
- list $rc $fexist |
-} {{0 {}} 1} |
-do_test shell3-2.2 { |
- catchcmd "foo.db" ".tables" |
-} {0 t1} |
-do_test shell3-2.3 { |
- catchcmd "foo.db" "DROP TABLE t1;" |
-} {0 {}} |
-do_test shell3-2.4 { |
- catchcmd "foo.db" ".tables" |
-} {0 {}} |
-do_test shell3-2.5 { |
- catchcmd "foo.db" "CREATE TABLE t1(a); DROP TABLE t1;" |
-} {0 {}} |
-do_test shell3-2.6 { |
- catchcmd "foo.db" ".tables" |
-} {0 {}} |
-do_test shell3-2.7 { |
- catchcmd "foo.db" "CREATE TABLE" |
-} {1 {Error: incomplete SQL: CREATE TABLE}} |
- |
- |
-puts "CLI tests completed successfully" |