Return to shell3.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / tool

Annotation of embedaddon/sqlite3/tool/shell3.test, revision 1.1

1.1     ! misho       1: # 2009 Dec 16
        !             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: #   shell3-1.*: Basic tests for running SQL statments from command line.
        !            20: #   shell3-2.*: Basic tests for running SQL file from command line.
        !            21: #
        !            22: 
        !            23: package require sqlite3
        !            24: 
        !            25: set CLI "./sqlite3"
        !            26: 
        !            27: proc do_test {name cmd expected} {
        !            28:   puts -nonewline "$name ..."
        !            29:   set res [uplevel $cmd]
        !            30:   if {$res eq $expected} {
        !            31:     puts Ok
        !            32:   } else {
        !            33:     puts Error
        !            34:     puts "  Got: $res"
        !            35:     puts "  Expected: $expected"
        !            36:     exit
        !            37:   }
        !            38: }
        !            39: 
        !            40: proc execsql {sql} {
        !            41:   uplevel [list db eval $sql]
        !            42: }
        !            43: 
        !            44: proc catchsql {sql} {
        !            45:   set rc [catch {uplevel [list db eval $sql]} msg]
        !            46:   list $rc $msg
        !            47: }
        !            48: 
        !            49: proc catchcmd {db {cmd ""}} {
        !            50:   global CLI
        !            51:   set out [open cmds.txt w]
        !            52:   puts $out $cmd
        !            53:   close $out
        !            54:   set line "exec $CLI $db < cmds.txt"
        !            55:   set rc [catch { eval $line } msg]
        !            56:   list $rc $msg
        !            57: }
        !            58: 
        !            59: file delete -force test.db test.db.journal
        !            60: sqlite3 db test.db
        !            61: 
        !            62: 
        !            63: #----------------------------------------------------------------------------
        !            64: #   shell3-1.*: Basic tests for running SQL statments from command line.
        !            65: #
        !            66: 
        !            67: # Run SQL statement from command line
        !            68: do_test shell3-1.1 {
        !            69:   file delete -force foo.db
        !            70:   set rc [ catchcmd "foo.db \"CREATE TABLE t1(a);\"" ]
        !            71:   set fexist [file exist foo.db]
        !            72:   list $rc $fexist
        !            73: } {{0 {}} 1}
        !            74: do_test shell3-1.2 {
        !            75:   catchcmd "foo.db" ".tables"
        !            76: } {0 t1}
        !            77: do_test shell3-1.3 {
        !            78:   catchcmd "foo.db \"DROP TABLE t1;\""
        !            79: } {0 {}}
        !            80: do_test shell3-1.4 {
        !            81:   catchcmd "foo.db" ".tables"
        !            82: } {0 {}}
        !            83: do_test shell3-1.5 {
        !            84:   catchcmd "foo.db \"CREATE TABLE t1(a); DROP TABLE t1;\""
        !            85: } {0 {}}
        !            86: do_test shell3-1.6 {
        !            87:   catchcmd "foo.db" ".tables"
        !            88: } {0 {}}
        !            89: do_test shell3-1.7 {
        !            90:   catchcmd "foo.db \"CREATE TABLE\""
        !            91: } {1 {Error: near "TABLE": syntax error}}
        !            92: 
        !            93: #----------------------------------------------------------------------------
        !            94: #   shell3-2.*: Basic tests for running SQL file from command line.
        !            95: #
        !            96: 
        !            97: # Run SQL file from command line
        !            98: do_test shell3-2.1 {
        !            99:   file delete -force foo.db
        !           100:   set rc [ catchcmd "foo.db" "CREATE TABLE t1(a);" ]
        !           101:   set fexist [file exist foo.db]
        !           102:   list $rc $fexist
        !           103: } {{0 {}} 1}
        !           104: do_test shell3-2.2 {
        !           105:   catchcmd "foo.db" ".tables"
        !           106: } {0 t1}
        !           107: do_test shell3-2.3 {
        !           108:   catchcmd "foo.db" "DROP TABLE t1;"
        !           109: } {0 {}}
        !           110: do_test shell3-2.4 {
        !           111:   catchcmd "foo.db" ".tables"
        !           112: } {0 {}}
        !           113: do_test shell3-2.5 {
        !           114:   catchcmd "foo.db" "CREATE TABLE t1(a); DROP TABLE t1;"
        !           115: } {0 {}}
        !           116: do_test shell3-2.6 {
        !           117:   catchcmd "foo.db" ".tables"
        !           118: } {0 {}}
        !           119: do_test shell3-2.7 {
        !           120:   catchcmd "foo.db" "CREATE TABLE"
        !           121: } {1 {Error: incomplete SQL: CREATE TABLE}}
        !           122: 
        !           123: 
        !           124: puts "CLI tests completed successfully"