Return to shell3.test CVS log

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

sqlite3

    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: shell3.test,v 1.1.1.1 2012/02/21 17:04:17 misho 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"