summaryrefslogtreecommitdiff
path: root/tool/shell3.test
diff options
context:
space:
mode:
Diffstat (limited to 'tool/shell3.test')
-rw-r--r--tool/shell3.test124
1 files changed, 0 insertions, 124 deletions
diff --git a/tool/shell3.test b/tool/shell3.test
deleted file mode 100644
index d37adff..0000000
--- a/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"