# 2009 Nov 11
#
# 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: shell1.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $
#
# Test plan:
#
# shell1-1.*: Basic "dot" command token parsing.
# shell1-2.*: Basic test that "dot" command can be called.
#
package require 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 {cmd} {
set out [open cmds.txt w]
puts $out $cmd
close $out
set rc [catch { exec ./sqlite test.db < cmds.txt } msg]
list $rc $msg
}
file delete -force test.db test.db.journal
sqlite3 db test.db
#----------------------------------------------------------------------------
# Test cases shell1-1.* Basic "dot" command token parsing.
#
# check first token handling
do_test shell1-1.1.1 {
catchcmd ".foo"
} {1 {Error: unknown command or invalid arguments: "foo". Enter ".help" for help}}
do_test shell1-1.1.2 {
catchcmd ".\"foo OFF\""
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
do_test shell1-1.1.3 {
catchcmd ".\'foo OFF\'"
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
# unbalanced quotes
do_test shell1-1.2.1 {
catchcmd ".\"foo OFF"
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
do_test shell1-1.2.2 {
catchcmd ".\'foo OFF"
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
do_test shell1-1.2.3 {
catchcmd ".explain \"OFF"
} {0 {}}
do_test shell1-1.2.4 {
catchcmd ".explain \'OFF"
} {0 {}}
do_test shell1-1.2.5 {
catchcmd ".mode \"insert FOO"
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
do_test shell1-1.2.6 {
catchcmd ".mode \'insert FOO"
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
# check multiple tokens, and quoted tokens
do_test shell1-1.3.1 {
catchcmd ".explain 1"
} {0 {}}
do_test shell1-1.3.2 {
catchcmd ".explain on"
} {0 {}}
do_test shell1-1.3.3 {
catchcmd ".explain \"1 2 3\""
} {0 {}}
do_test shell1-1.3.4 {
catchcmd ".explain \"OFF\""
} {0 {}}
do_test shell1-1.3.5 {
catchcmd ".\'explain\' \'OFF\'"
} {0 {}}
do_test shell1-1.3.6 {
catchcmd ".explain \'OFF\'"
} {0 {}}
do_test shell1-1.3.7 {
catchcmd ".\'explain\' \'OFF\'"
} {0 {}}
# check quoted args are unquoted
do_test shell1-1.4.1 {
catchcmd ".mode FOO"
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
do_test shell1-1.4.2 {
catchcmd ".mode csv"
} {0 {}}
do_test shell1-1.4.2 {
catchcmd ".mode \"csv\""
} {0 {}}
#----------------------------------------------------------------------------
# Test cases shell1-2.* Basic test that "dot" command can be called.
#
# .backup ?DB? FILE Backup DB (default "main") to FILE
do_test shell1-2.1.1 {
catchcmd ".backup"
} {1 {Error: unknown command or invalid arguments: "backup". Enter ".help" for help}}
do_test shell1-2.1.2 {
# catchcmd ".backup FOO"
#TBD!!! this asserts currently
} {}
do_test shell1-2.1.3 {
catchcmd ".backup FOO BAR"
} {1 {Error: unknown database FOO}}
do_test shell1-2.1.4 {
# too many arguments
catchcmd ".backup FOO BAR BAD"
} {1 {Error: unknown command or invalid arguments: "backup". Enter ".help" for help}}
# .bail ON|OFF Stop after hitting an error. Default OFF
do_test shell1-2.2.1 {
catchcmd ".bail"
} {1 {Error: unknown command or invalid arguments: "bail". Enter ".help" for help}}
do_test shell1-2.2.2 {
catchcmd ".bail ON"
} {0 {}}
do_test shell1-2.2.3 {
catchcmd ".bail OFF"
} {0 {}}
do_test shell1-2.2.4 {
# too many arguments
catchcmd ".bail OFF BAD"
} {1 {Error: unknown command or invalid arguments: "bail". Enter ".help" for help}}
# .databases List names and files of attached databases
do_test shell1-2.3.1 {
set res [catchcmd ".databases"]
regexp {0.*main.*test\.db} $res
} {1}
do_test shell1-2.3.2 {
# too many arguments
catchcmd ".databases BAD"
} {1 {Error: unknown command or invalid arguments: "databases". Enter ".help" for help}}
# .dump ?TABLE? ... Dump the database in an SQL text format
# If TABLE specified, only dump tables matching
# LIKE pattern TABLE.
do_test shell1-2.4.1 {
set res [catchcmd ".dump"]
list [regexp {BEGIN TRANSACTION;} $res] \
[regexp {COMMIT;} $res]
} {1 1}
do_test shell1-2.4.2 {
set res [catchcmd ".dump FOO"]
list [regexp {BEGIN TRANSACTION;} $res] \
[regexp {COMMIT;} $res]
} {1 1}
do_test shell1-2.4.3 {
# too many arguments
catchcmd ".dump FOO BAD"
} {1 {Error: unknown command or invalid arguments: "dump". Enter ".help" for help}}
# .echo ON|OFF Turn command echo on or off
do_test shell1-2.5.1 {
catchcmd ".echo"
} {1 {Error: unknown command or invalid arguments: "echo". Enter ".help" for help}}
do_test shell1-2.5.2 {
catchcmd ".echo ON"
} {0 {}}
do_test shell1-2.5.3 {
catchcmd ".echo OFF"
} {0 {}}
do_test shell1-2.5.4 {
# too many arguments
catchcmd ".echo OFF BAD"
} {1 {Error: unknown command or invalid arguments: "echo". Enter ".help" for help}}
# .exit Exit this program
do_test shell1-2.6.1 {
catchcmd ".exit"
} {0 {}}
do_test shell1-2.6.2 {
# too many arguments
catchcmd ".exit BAD"
} {1 {Error: unknown command or invalid arguments: "exit". Enter ".help" for help}}
# .explain ON|OFF Turn output mode suitable for EXPLAIN on or off.
do_test shell1-2.7.1 {
catchcmd ".explain"
# explain is the exception to the booleans. without an option, it turns it on.
} {0 {}}
do_test shell1-2.7.2 {
catchcmd ".explain ON"
} {0 {}}
do_test shell1-2.7.3 {
catchcmd ".explain OFF"
} {0 {}}
do_test shell1-2.7.4 {
# too many arguments
catchcmd ".explain OFF BAD"
} {1 {Error: unknown command or invalid arguments: "explain". Enter ".help" for help}}
# .genfkey ?OPTIONS? Options are:
# --no-drop: Do not drop old fkey triggers.
# --ignore-errors: Ignore tables with fkey errors
# --exec: Execute generated SQL immediately
# See file tool/genfkey.README in the source
# distribution for further information.
do_test shell1-2.8.1 {
catchcmd ".genfkey"
} {0 {}}
do_test shell1-2.8.2 {
catchcmd ".genfkey FOO"
} {1 {unknown option: FOO}}
# .header(s) ON|OFF Turn display of headers on or off
do_test shell1-2.9.1 {
catchcmd ".header"
} {1 {Error: unknown command or invalid arguments: "header". Enter ".help" for help}}
do_test shell1-2.9.2 {
catchcmd ".header ON"
} {0 {}}
do_test shell1-2.9.3 {
catchcmd ".header OFF"
} {0 {}}
do_test shell1-2.9.4 {
# too many arguments
catchcmd ".header OFF BAD"
} {1 {Error: unknown command or invalid arguments: "header". Enter ".help" for help}}
do_test shell1-2.9.5 {
catchcmd ".headers"
} {1 {Error: unknown command or invalid arguments: "headers". Enter ".help" for help}}
do_test shell1-2.9.6 {
catchcmd ".headers ON"
} {0 {}}
do_test shell1-2.9.7 {
catchcmd ".headers OFF"
} {0 {}}
do_test shell1-2.9.8 {
# too many arguments
catchcmd ".headers OFF BAD"
} {1 {Error: unknown command or invalid arguments: "headers". Enter ".help" for help}}
# .help Show this message
do_test shell1-2.10.1 {
set res [catchcmd ".help"]
# look for a few of the possible help commands
list [regexp {.help} $res] \
[regexp {.quit} $res] \
[regexp {.show} $res]
} {1 1 1}
do_test shell1-2.10.2 {
# we allow .help to take extra args (it is help after all)
set res [catchcmd ".help BAD"]
# look for a few of the possible help commands
list [regexp {.help} $res] \
[regexp {.quit} $res] \
[regexp {.show} $res]
} {1 1 1}
# .import FILE TABLE Import data from FILE into TABLE
do_test shell1-2.11.1 {
catchcmd ".import"
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
do_test shell1-2.11.2 {
catchcmd ".import FOO"
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
do_test shell1-2.11.2 {
catchcmd ".import FOO BAR"
} {1 {Error: no such table: BAR}}
do_test shell1-2.11.3 {
# too many arguments
catchcmd ".import FOO BAR BAD"
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
# .indices ?TABLE? Show names of all indices
# If TABLE specified, only show indices for tables
# matching LIKE pattern TABLE.
do_test shell1-2.12.1 {
catchcmd ".indices"
} {0 {}}
do_test shell1-2.12.2 {
catchcmd ".indices FOO"
} {0 {}}
do_test shell1-2.12.3 {
# too many arguments
catchcmd ".indices FOO BAD"
} {1 {Error: unknown command or invalid arguments: "indices". Enter ".help" for help}}
# .mode MODE ?TABLE? Set output mode where MODE is one of:
# csv Comma-separated values
# column Left-aligned columns. (See .width)
# html HTML <table> code
# insert SQL insert statements for TABLE
# line One value per line
# list Values delimited by .separator string
# tabs Tab-separated values
# tcl TCL list elements
do_test shell1-2.13.1 {
catchcmd ".mode"
} {1 {Error: unknown command or invalid arguments: "mode". Enter ".help" for help}}
do_test shell1-2.13.2 {
catchcmd ".mode FOO"
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
do_test shell1-2.13.3 {
catchcmd ".mode csv"
} {0 {}}
do_test shell1-2.13.4 {
catchcmd ".mode column"
} {0 {}}
do_test shell1-2.13.5 {
catchcmd ".mode html"
} {0 {}}
do_test shell1-2.13.6 {
catchcmd ".mode insert"
} {0 {}}
do_test shell1-2.13.7 {
catchcmd ".mode line"
} {0 {}}
do_test shell1-2.13.8 {
catchcmd ".mode list"
} {0 {}}
do_test shell1-2.13.9 {
catchcmd ".mode tabs"
} {0 {}}
do_test shell1-2.13.10 {
catchcmd ".mode tcl"
} {0 {}}
do_test shell1-2.13.11 {
# too many arguments
catchcmd ".mode tcl BAD"
} {1 {Error: invalid arguments: "BAD". Enter ".help" for help}}
# don't allow partial mode type matches
do_test shell1-2.13.12 {
catchcmd ".mode l"
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
do_test shell1-2.13.13 {
catchcmd ".mode li"
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
do_test shell1-2.13.14 {
catchcmd ".mode lin"
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
# .nullvalue STRING Print STRING in place of NULL values
do_test shell1-2.14.1 {
catchcmd ".nullvalue"
} {1 {Error: unknown command or invalid arguments: "nullvalue". Enter ".help" for help}}
do_test shell1-2.14.2 {
catchcmd ".nullvalue FOO"
} {0 {}}
do_test shell1-2.14.3 {
# too many arguments
catchcmd ".nullvalue FOO BAD"
} {1 {Error: unknown command or invalid arguments: "nullvalue". Enter ".help" for help}}
# .output FILENAME Send output to FILENAME
do_test shell1-2.15.1 {
catchcmd ".output"
} {1 {Error: unknown command or invalid arguments: "output". Enter ".help" for help}}
do_test shell1-2.15.2 {
catchcmd ".output FOO"
} {0 {}}
do_test shell1-2.15.3 {
# too many arguments
catchcmd ".output FOO BAD"
} {1 {Error: unknown command or invalid arguments: "output". Enter ".help" for help}}
# .output stdout Send output to the screen
do_test shell1-2.16.1 {
catchcmd ".output stdout"
} {0 {}}
do_test shell1-2.16.2 {
# too many arguments
catchcmd ".output stdout BAD"
} {1 {Error: unknown command or invalid arguments: "output". Enter ".help" for help}}
# .prompt MAIN CONTINUE Replace the standard prompts
do_test shell1-2.17.1 {
catchcmd ".prompt"
} {1 {Error: unknown command or invalid arguments: "prompt". Enter ".help" for help}}
do_test shell1-2.17.2 {
catchcmd ".prompt FOO"
} {0 {}}
do_test shell1-2.17.3 {
catchcmd ".prompt FOO BAR"
} {0 {}}
do_test shell1-2.17.4 {
# too many arguments
catchcmd ".prompt FOO BAR BAD"
} {1 {Error: unknown command or invalid arguments: "prompt". Enter ".help" for help}}
# .quit Exit this program
do_test shell1-2.18.1 {
catchcmd ".quit"
} {0 {}}
do_test shell1-2.18.2 {
# too many arguments
catchcmd ".quit BAD"
} {1 {Error: unknown command or invalid arguments: "quit". Enter ".help" for help}}
# .read FILENAME Execute SQL in FILENAME
do_test shell1-2.19.1 {
catchcmd ".read"
} {1 {Error: unknown command or invalid arguments: "read". Enter ".help" for help}}
do_test shell1-2.19.2 {
file delete -force FOO
catchcmd ".read FOO"
} {1 {Error: cannot open "FOO"}}
do_test shell1-2.19.3 {
# too many arguments
catchcmd ".read FOO BAD"
} {1 {Error: unknown command or invalid arguments: "read". Enter ".help" for help}}
# .restore ?DB? FILE Restore content of DB (default "main") from FILE
do_test shell1-2.20.1 {
catchcmd ".restore"
} {1 {Error: unknown command or invalid arguments: "restore". Enter ".help" for help}}
do_test shell1-2.20.2 {
# catchcmd ".restore FOO"
#TBD!!! this asserts currently
} {}
do_test shell1-2.20.3 {
catchcmd ".restore FOO BAR"
} {1 {Error: unknown database FOO}}
do_test shell1-2.20.4 {
# too many arguments
catchcmd ".restore FOO BAR BAD"
} {1 {Error: unknown command or invalid arguments: "restore". Enter ".help" for help}}
# .schema ?TABLE? Show the CREATE statements
# If TABLE specified, only show tables matching
# LIKE pattern TABLE.
do_test shell1-2.21.1 {
catchcmd ".schema"
} {0 {}}
do_test shell1-2.21.2 {
catchcmd ".schema FOO"
} {0 {}}
do_test shell1-2.21.3 {
# too many arguments
catchcmd ".schema FOO BAD"
} {1 {Error: unknown command or invalid arguments: "schema". Enter ".help" for help}}
# .separator STRING Change separator used by output mode and .import
do_test shell1-2.22.1 {
catchcmd ".separator"
} {1 {Error: unknown command or invalid arguments: "separator". Enter ".help" for help}}
do_test shell1-2.22.2 {
catchcmd ".separator FOO"
} {0 {}}
do_test shell1-2.22.3 {
# too many arguments
catchcmd ".separator FOO BAD"
} {1 {Error: unknown command or invalid arguments: "separator". Enter ".help" for help}}
# .show Show the current values for various settings
do_test shell1-2.23.1 {
set res [catchcmd ".show"]
list [regexp {echo:} $res] \
[regexp {explain:} $res] \
[regexp {headers:} $res] \
[regexp {mode:} $res] \
[regexp {nullvalue:} $res] \
[regexp {output:} $res] \
[regexp {separator:} $res] \
[regexp {width:} $res]
} {1 1 1 1 1 1 1 1}
do_test shell1-2.23.2 {
# too many arguments
catchcmd ".show BAD"
} {1 {Error: unknown command or invalid arguments: "show". Enter ".help" for help}}
# .tables ?TABLE? List names of tables
# If TABLE specified, only list tables matching
# LIKE pattern TABLE.
do_test shell1-2.24.1 {
catchcmd ".tables"
} {0 {}}
do_test shell1-2.24.2 {
catchcmd ".tables FOO"
} {0 {}}
do_test shell1-2.24.3 {
# too many arguments
catchcmd ".tables FOO BAD"
} {1 {Error: unknown command or invalid arguments: "tables". Enter ".help" for help}}
# .timeout MS Try opening locked tables for MS milliseconds
do_test shell1-2.25.1 {
catchcmd ".timeout"
} {1 {Error: unknown command or invalid arguments: "timeout". Enter ".help" for help}}
do_test shell1-2.25.2 {
catchcmd ".timeout zzz"
# this should be treated the same as a '0' timeout
} {0 {}}
do_test shell1-2.25.3 {
catchcmd ".timeout 1"
} {0 {}}
do_test shell1-2.25.4 {
# too many arguments
catchcmd ".timeout 1 BAD"
} {1 {Error: unknown command or invalid arguments: "timeout". Enter ".help" for help}}
# .width NUM NUM ... Set column widths for "column" mode
do_test shell1-2.26.1 {
catchcmd ".width"
} {1 {Error: unknown command or invalid arguments: "width". Enter ".help" for help}}
do_test shell1-2.26.2 {
catchcmd ".width xxx"
# this should be treated the same as a '0' width for col 1
} {0 {}}
do_test shell1-2.26.3 {
catchcmd ".width xxx yyy"
# this should be treated the same as a '0' width for col 1 and 2
} {0 {}}
do_test shell1-2.26.4 {
catchcmd ".width 1 1"
# this should be treated the same as a '1' width for col 1 and 2
} {0 {}}
# .timer ON|OFF Turn the CPU timer measurement on or off
do_test shell1-2.27.1 {
catchcmd ".timer"
} {1 {Error: unknown command or invalid arguments: "timer". Enter ".help" for help}}
do_test shell1-2.27.2 {
catchcmd ".timer ON"
} {0 {}}
do_test shell1-2.27.3 {
catchcmd ".timer OFF"
} {0 {}}
do_test shell1-2.27.4 {
# too many arguments
catchcmd ".timer OFF BAD"
} {1 {Error: unknown command or invalid arguments: "timer". Enter ".help" for help}}
#