mirror of
https://github.com/sqlite/sqlite.git
synced 2025-11-15 11:41:13 +03:00
Sync the latest trunk changes into the winRT branch.
FossilOrigin-Name: be4ab188cffbe97ae4f1f0520591bb7f0df185de
This commit is contained in:
drh
@@ -146,11 +146,15 @@ do_test io-2.2 {
|
||||
# written because page 1 - the change-counter page - is written using
|
||||
# an out-of-band method that bypasses the write counter.
|
||||
#
|
||||
# UPDATE: As of [05f98d4eec] (adding SQLITE_DBSTATUS_CACHE_WRITE), the
|
||||
# second write is also counted. So this now reports two writes and a
|
||||
# single fsync.
|
||||
#
|
||||
sqlite3_simulate_device -char atomic
|
||||
do_test io-2.3 {
|
||||
execsql { INSERT INTO abc VALUES(3, 4) }
|
||||
list [nWrite db] [nSync]
|
||||
} {1 1}
|
||||
} {2 1}
|
||||
|
||||
# Test that the journal file is not created and the change-counter is
|
||||
# updated when the atomic-write optimization is used.
|
||||
|
||||
@@ -415,5 +415,40 @@ do_test select9-4.X {
|
||||
}
|
||||
} {}
|
||||
|
||||
# Testing to make sure that queries involving a view of a compound select
|
||||
# are planned efficiently. This detects a problem reported on the mailing
|
||||
# list on 2012-04-26. See
|
||||
#
|
||||
# http://www.mail-archive.com/sqlite-users%40sqlite.org/msg69746.html
|
||||
#
|
||||
# For additional information.
|
||||
#
|
||||
do_test select9-5.1 {
|
||||
db eval {
|
||||
CREATE TABLE t51(x, y);
|
||||
CREATE TABLE t52(x, y);
|
||||
CREATE VIEW v5 as
|
||||
SELECT x, y FROM t51
|
||||
UNION ALL
|
||||
SELECT x, y FROM t52;
|
||||
CREATE INDEX t51x ON t51(x);
|
||||
CREATE INDEX t52x ON t52(x);
|
||||
EXPLAIN QUERY PLAN
|
||||
SELECT * FROM v5 WHERE x='12345' ORDER BY y;
|
||||
}
|
||||
} {~/SCAN TABLE/} ;# Uses indices with "*"
|
||||
do_test select9-5.2 {
|
||||
db eval {
|
||||
EXPLAIN QUERY PLAN
|
||||
SELECT x, y FROM v5 WHERE x='12345' ORDER BY y;
|
||||
}
|
||||
} {~/SCAN TABLE/} ;# Uses indices with "x, y"
|
||||
do_test select9-5.3 {
|
||||
db eval {
|
||||
EXPLAIN QUERY PLAN
|
||||
SELECT x, y FROM v5 WHERE +x='12345' ORDER BY y;
|
||||
}
|
||||
} {/SCAN TABLE/} ;# Full table scan if the "+x" prevents index usage.
|
||||
|
||||
|
||||
finish_test
|
||||
|
||||
723
test/shell1.test
Normal file
723
test/shell1.test
Normal file
@@ -0,0 +1,723 @@
|
||||
# 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.
|
||||
#
|
||||
#
|
||||
|
||||
# Test plan:
|
||||
#
|
||||
# shell1-1.*: Basic command line option handling.
|
||||
# shell1-2.*: Basic "dot" command token parsing.
|
||||
# shell1-3.*: Basic test that "dot" command can be called.
|
||||
#
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
if {$tcl_platform(platform)=="windows"} {
|
||||
set CLI "sqlite3.exe"
|
||||
} else {
|
||||
set CLI "./sqlite3"
|
||||
}
|
||||
if {![file executable $CLI]} {
|
||||
finish_test
|
||||
return
|
||||
}
|
||||
db close
|
||||
forcedelete test.db test.db-journal test.db-wal
|
||||
sqlite3 db test.db
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Test cases shell1-1.*: Basic command line option handling.
|
||||
#
|
||||
|
||||
# invalid option
|
||||
do_test shell1-1.1.1 {
|
||||
set res [catchcmd "-bad test.db" ""]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {Error: unknown option: -bad} $res]
|
||||
} {1 1}
|
||||
# error on extra options
|
||||
do_test shell1-1.1.2 {
|
||||
set res [catchcmd "-bad test.db \"select 3\" \"select 4\"" ""]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {Error: too many options: "select 4"} $res]
|
||||
} {1 1}
|
||||
# error on extra options
|
||||
do_test shell1-1.1.3 {
|
||||
set res [catchcmd "-bad FOO test.db BAD" ".quit"]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {Error: too many options: "BAD"} $res]
|
||||
} {1 1}
|
||||
|
||||
# -help
|
||||
do_test shell1-1.2.1 {
|
||||
set res [catchcmd "-help test.db" ""]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {Usage} $res] \
|
||||
[regexp {\-init} $res] \
|
||||
[regexp {\-version} $res]
|
||||
} {1 1 1 1}
|
||||
|
||||
# -init filename read/process named file
|
||||
do_test shell1-1.3.1 {
|
||||
catchcmd "-init FOO test.db" ""
|
||||
} {0 {}}
|
||||
do_test shell1-1.3.2 {
|
||||
set res [catchcmd "-init FOO test.db .quit BAD" ""]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {Error: too many options: "BAD"} $res]
|
||||
} {1 1}
|
||||
|
||||
# -echo print commands before execution
|
||||
do_test shell1-1.4.1 {
|
||||
catchcmd "-echo test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -[no]header turn headers on or off
|
||||
do_test shell1-1.5.1 {
|
||||
catchcmd "-header test.db" ""
|
||||
} {0 {}}
|
||||
do_test shell1-1.5.2 {
|
||||
catchcmd "-noheader test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -bail stop after hitting an error
|
||||
do_test shell1-1.6.1 {
|
||||
catchcmd "-bail test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -interactive force interactive I/O
|
||||
do_test shell1-1.7.1 {
|
||||
set res [catchcmd "-interactive test.db" ".quit"]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {SQLite version} $res] \
|
||||
[regexp {Enter SQL statements} $res]
|
||||
} {0 1 1}
|
||||
|
||||
# -batch force batch I/O
|
||||
do_test shell1-1.8.1 {
|
||||
catchcmd "-batch test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -column set output mode to 'column'
|
||||
do_test shell1-1.9.1 {
|
||||
catchcmd "-column test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -csv set output mode to 'csv'
|
||||
do_test shell1-1.10.1 {
|
||||
catchcmd "-csv test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -html set output mode to HTML
|
||||
do_test shell1-1.11.1 {
|
||||
catchcmd "-html test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -line set output mode to 'line'
|
||||
do_test shell1-1.12.1 {
|
||||
catchcmd "-line test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -list set output mode to 'list'
|
||||
do_test shell1-1.13.1 {
|
||||
catchcmd "-list test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -separator 'x' set output field separator (|)
|
||||
do_test shell1-1.14.1 {
|
||||
catchcmd "-separator 'x' test.db" ""
|
||||
} {0 {}}
|
||||
do_test shell1-1.14.2 {
|
||||
catchcmd "-separator x test.db" ""
|
||||
} {0 {}}
|
||||
do_test shell1-1.14.3 {
|
||||
set res [catchcmd "-separator" ""]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {Error: missing argument for option: -separator} $res]
|
||||
} {1 1}
|
||||
|
||||
# -stats print memory stats before each finalize
|
||||
do_test shell1-1.14b.1 {
|
||||
catchcmd "-stats test.db" ""
|
||||
} {0 {}}
|
||||
|
||||
# -nullvalue 'text' set text string for NULL values
|
||||
do_test shell1-1.15.1 {
|
||||
catchcmd "-nullvalue 'x' test.db" ""
|
||||
} {0 {}}
|
||||
do_test shell1-1.15.2 {
|
||||
catchcmd "-nullvalue x test.db" ""
|
||||
} {0 {}}
|
||||
do_test shell1-1.15.3 {
|
||||
set res [catchcmd "-nullvalue" ""]
|
||||
set rc [lindex $res 0]
|
||||
list $rc \
|
||||
[regexp {Error: missing argument for option: -nullvalue} $res]
|
||||
} {1 1}
|
||||
|
||||
# -version show SQLite version
|
||||
do_test shell1-1.16.1 {
|
||||
set x [catchcmd "-version test.db" ""]
|
||||
regexp {0 \{3.\d.\d+ 20\d\d-[01]\d-\d\d \d\d:\d\d:\d\d [0-9a-f]+\}} $x
|
||||
} 1
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Test cases shell1-2.*: Basic "dot" command token parsing.
|
||||
#
|
||||
|
||||
# check first token handling
|
||||
do_test shell1-2.1.1 {
|
||||
catchcmd "test.db" ".foo"
|
||||
} {1 {Error: unknown command or invalid arguments: "foo". Enter ".help" for help}}
|
||||
do_test shell1-2.1.2 {
|
||||
catchcmd "test.db" ".\"foo OFF\""
|
||||
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
|
||||
do_test shell1-2.1.3 {
|
||||
catchcmd "test.db" ".\'foo OFF\'"
|
||||
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
|
||||
|
||||
# unbalanced quotes
|
||||
do_test shell1-2.2.1 {
|
||||
catchcmd "test.db" ".\"foo OFF"
|
||||
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
|
||||
do_test shell1-2.2.2 {
|
||||
catchcmd "test.db" ".\'foo OFF"
|
||||
} {1 {Error: unknown command or invalid arguments: "foo OFF". Enter ".help" for help}}
|
||||
do_test shell1-2.2.3 {
|
||||
catchcmd "test.db" ".explain \"OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-2.2.4 {
|
||||
catchcmd "test.db" ".explain \'OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-2.2.5 {
|
||||
catchcmd "test.db" ".mode \"insert FOO"
|
||||
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
|
||||
do_test shell1-2.2.6 {
|
||||
catchcmd "test.db" ".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-2.3.1 {
|
||||
catchcmd "test.db" ".explain 1"
|
||||
} {0 {}}
|
||||
do_test shell1-2.3.2 {
|
||||
catchcmd "test.db" ".explain on"
|
||||
} {0 {}}
|
||||
do_test shell1-2.3.3 {
|
||||
catchcmd "test.db" ".explain \"1 2 3\""
|
||||
} {0 {}}
|
||||
do_test shell1-2.3.4 {
|
||||
catchcmd "test.db" ".explain \"OFF\""
|
||||
} {0 {}}
|
||||
do_test shell1-2.3.5 {
|
||||
catchcmd "test.db" ".\'explain\' \'OFF\'"
|
||||
} {0 {}}
|
||||
do_test shell1-2.3.6 {
|
||||
catchcmd "test.db" ".explain \'OFF\'"
|
||||
} {0 {}}
|
||||
do_test shell1-2.3.7 {
|
||||
catchcmd "test.db" ".\'explain\' \'OFF\'"
|
||||
} {0 {}}
|
||||
|
||||
# check quoted args are unquoted
|
||||
do_test shell1-2.4.1 {
|
||||
catchcmd "test.db" ".mode FOO"
|
||||
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
|
||||
do_test shell1-2.4.2 {
|
||||
catchcmd "test.db" ".mode csv"
|
||||
} {0 {}}
|
||||
do_test shell1-2.4.2 {
|
||||
catchcmd "test.db" ".mode \"csv\""
|
||||
} {0 {}}
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Test cases shell1-3.*: Basic test that "dot" command can be called.
|
||||
#
|
||||
|
||||
# .backup ?DB? FILE Backup DB (default "main") to FILE
|
||||
do_test shell1-3.1.1 {
|
||||
catchcmd "test.db" ".backup"
|
||||
} {1 {Error: unknown command or invalid arguments: "backup". Enter ".help" for help}}
|
||||
do_test shell1-3.1.2 {
|
||||
catchcmd "test.db" ".backup FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.1.3 {
|
||||
catchcmd "test.db" ".backup FOO BAR"
|
||||
} {1 {Error: unknown database FOO}}
|
||||
do_test shell1-3.1.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.2.1 {
|
||||
catchcmd "test.db" ".bail"
|
||||
} {1 {Error: unknown command or invalid arguments: "bail". Enter ".help" for help}}
|
||||
do_test shell1-3.2.2 {
|
||||
catchcmd "test.db" ".bail ON"
|
||||
} {0 {}}
|
||||
do_test shell1-3.2.3 {
|
||||
catchcmd "test.db" ".bail OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-3.2.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.3.1 {
|
||||
set res [catchcmd "test.db" ".databases"]
|
||||
regexp {0.*main.*test\.db} $res
|
||||
} {1}
|
||||
do_test shell1-3.3.2 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.4.1 {
|
||||
set res [catchcmd "test.db" ".dump"]
|
||||
list [regexp {BEGIN TRANSACTION;} $res] \
|
||||
[regexp {COMMIT;} $res]
|
||||
} {1 1}
|
||||
do_test shell1-3.4.2 {
|
||||
set res [catchcmd "test.db" ".dump FOO"]
|
||||
list [regexp {BEGIN TRANSACTION;} $res] \
|
||||
[regexp {COMMIT;} $res]
|
||||
} {1 1}
|
||||
do_test shell1-3.4.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.5.1 {
|
||||
catchcmd "test.db" ".echo"
|
||||
} {1 {Error: unknown command or invalid arguments: "echo". Enter ".help" for help}}
|
||||
do_test shell1-3.5.2 {
|
||||
catchcmd "test.db" ".echo ON"
|
||||
} {0 {}}
|
||||
do_test shell1-3.5.3 {
|
||||
catchcmd "test.db" ".echo OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-3.5.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".echo OFF BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "echo". Enter ".help" for help}}
|
||||
|
||||
# .exit Exit this program
|
||||
do_test shell1-3.6.1 {
|
||||
catchcmd "test.db" ".exit"
|
||||
} {0 {}}
|
||||
do_test shell1-3.6.2 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.7.1 {
|
||||
catchcmd "test.db" ".explain"
|
||||
# explain is the exception to the booleans. without an option, it turns it on.
|
||||
} {0 {}}
|
||||
do_test shell1-3.7.2 {
|
||||
catchcmd "test.db" ".explain ON"
|
||||
} {0 {}}
|
||||
do_test shell1-3.7.3 {
|
||||
catchcmd "test.db" ".explain OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-3.7.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".explain OFF BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "explain". Enter ".help" for help}}
|
||||
|
||||
|
||||
# .header(s) ON|OFF Turn display of headers on or off
|
||||
do_test shell1-3.9.1 {
|
||||
catchcmd "test.db" ".header"
|
||||
} {1 {Error: unknown command or invalid arguments: "header". Enter ".help" for help}}
|
||||
do_test shell1-3.9.2 {
|
||||
catchcmd "test.db" ".header ON"
|
||||
} {0 {}}
|
||||
do_test shell1-3.9.3 {
|
||||
catchcmd "test.db" ".header OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-3.9.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".header OFF BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "header". Enter ".help" for help}}
|
||||
|
||||
do_test shell1-3.9.5 {
|
||||
catchcmd "test.db" ".headers"
|
||||
} {1 {Error: unknown command or invalid arguments: "headers". Enter ".help" for help}}
|
||||
do_test shell1-3.9.6 {
|
||||
catchcmd "test.db" ".headers ON"
|
||||
} {0 {}}
|
||||
do_test shell1-3.9.7 {
|
||||
catchcmd "test.db" ".headers OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-3.9.8 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".headers OFF BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "headers". Enter ".help" for help}}
|
||||
|
||||
# .help Show this message
|
||||
do_test shell1-3.10.1 {
|
||||
set res [catchcmd "test.db" ".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-3.10.2 {
|
||||
# we allow .help to take extra args (it is help after all)
|
||||
set res [catchcmd "test.db" ".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-3.11.1 {
|
||||
catchcmd "test.db" ".import"
|
||||
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
|
||||
do_test shell1-3.11.2 {
|
||||
catchcmd "test.db" ".import FOO"
|
||||
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
|
||||
do_test shell1-3.11.2 {
|
||||
catchcmd "test.db" ".import FOO BAR"
|
||||
} {1 {Error: no such table: BAR}}
|
||||
do_test shell1-3.11.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.12.1 {
|
||||
catchcmd "test.db" ".indices"
|
||||
} {0 {}}
|
||||
do_test shell1-3.12.2 {
|
||||
catchcmd "test.db" ".indices FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.12.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.13.1 {
|
||||
catchcmd "test.db" ".mode"
|
||||
} {1 {Error: unknown command or invalid arguments: "mode". Enter ".help" for help}}
|
||||
do_test shell1-3.13.2 {
|
||||
catchcmd "test.db" ".mode FOO"
|
||||
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
|
||||
do_test shell1-3.13.3 {
|
||||
catchcmd "test.db" ".mode csv"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.4 {
|
||||
catchcmd "test.db" ".mode column"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.5 {
|
||||
catchcmd "test.db" ".mode html"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.6 {
|
||||
catchcmd "test.db" ".mode insert"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.7 {
|
||||
catchcmd "test.db" ".mode line"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.8 {
|
||||
catchcmd "test.db" ".mode list"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.9 {
|
||||
catchcmd "test.db" ".mode tabs"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.10 {
|
||||
catchcmd "test.db" ".mode tcl"
|
||||
} {0 {}}
|
||||
do_test shell1-3.13.11 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".mode tcl BAD"
|
||||
} {1 {Error: invalid arguments: "BAD". Enter ".help" for help}}
|
||||
|
||||
# don't allow partial mode type matches
|
||||
do_test shell1-3.13.12 {
|
||||
catchcmd "test.db" ".mode l"
|
||||
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
|
||||
do_test shell1-3.13.13 {
|
||||
catchcmd "test.db" ".mode li"
|
||||
} {1 {Error: mode should be one of: column csv html insert line list tabs tcl}}
|
||||
do_test shell1-3.13.14 {
|
||||
catchcmd "test.db" ".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-3.14.1 {
|
||||
catchcmd "test.db" ".nullvalue"
|
||||
} {1 {Error: unknown command or invalid arguments: "nullvalue". Enter ".help" for help}}
|
||||
do_test shell1-3.14.2 {
|
||||
catchcmd "test.db" ".nullvalue FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.14.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".nullvalue FOO BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "nullvalue". Enter ".help" for help}}
|
||||
|
||||
# .output FILENAME Send output to FILENAME
|
||||
do_test shell1-3.15.1 {
|
||||
catchcmd "test.db" ".output"
|
||||
} {1 {Error: unknown command or invalid arguments: "output". Enter ".help" for help}}
|
||||
do_test shell1-3.15.2 {
|
||||
catchcmd "test.db" ".output FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.15.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.16.1 {
|
||||
catchcmd "test.db" ".output stdout"
|
||||
} {0 {}}
|
||||
do_test shell1-3.16.2 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.17.1 {
|
||||
catchcmd "test.db" ".prompt"
|
||||
} {1 {Error: unknown command or invalid arguments: "prompt". Enter ".help" for help}}
|
||||
do_test shell1-3.17.2 {
|
||||
catchcmd "test.db" ".prompt FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.17.3 {
|
||||
catchcmd "test.db" ".prompt FOO BAR"
|
||||
} {0 {}}
|
||||
do_test shell1-3.17.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".prompt FOO BAR BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "prompt". Enter ".help" for help}}
|
||||
|
||||
# .quit Exit this program
|
||||
do_test shell1-3.18.1 {
|
||||
catchcmd "test.db" ".quit"
|
||||
} {0 {}}
|
||||
do_test shell1-3.18.2 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".quit BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "quit". Enter ".help" for help}}
|
||||
|
||||
# .read FILENAME Execute SQL in FILENAME
|
||||
do_test shell1-3.19.1 {
|
||||
catchcmd "test.db" ".read"
|
||||
} {1 {Error: unknown command or invalid arguments: "read". Enter ".help" for help}}
|
||||
do_test shell1-3.19.2 {
|
||||
file delete -force FOO
|
||||
catchcmd "test.db" ".read FOO"
|
||||
} {1 {Error: cannot open "FOO"}}
|
||||
do_test shell1-3.19.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.20.1 {
|
||||
catchcmd "test.db" ".restore"
|
||||
} {1 {Error: unknown command or invalid arguments: "restore". Enter ".help" for help}}
|
||||
do_test shell1-3.20.2 {
|
||||
catchcmd "test.db" ".restore FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.20.3 {
|
||||
catchcmd "test.db" ".restore FOO BAR"
|
||||
} {1 {Error: unknown database FOO}}
|
||||
do_test shell1-3.20.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.21.1 {
|
||||
catchcmd "test.db" ".schema"
|
||||
} {0 {}}
|
||||
do_test shell1-3.21.2 {
|
||||
catchcmd "test.db" ".schema FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.21.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.22.1 {
|
||||
catchcmd "test.db" ".separator"
|
||||
} {1 {Error: unknown command or invalid arguments: "separator". Enter ".help" for help}}
|
||||
do_test shell1-3.22.2 {
|
||||
catchcmd "test.db" ".separator FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.22.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.23.1 {
|
||||
set res [catchcmd "test.db" ".show"]
|
||||
list [regexp {echo:} $res] \
|
||||
[regexp {explain:} $res] \
|
||||
[regexp {headers:} $res] \
|
||||
[regexp {mode:} $res] \
|
||||
[regexp {nullvalue:} $res] \
|
||||
[regexp {output:} $res] \
|
||||
[regexp {separator:} $res] \
|
||||
[regexp {stats:} $res] \
|
||||
[regexp {width:} $res]
|
||||
} {1 1 1 1 1 1 1 1 1}
|
||||
do_test shell1-3.23.2 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".show BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "show". Enter ".help" for help}}
|
||||
|
||||
# .stats ON|OFF Turn stats on or off
|
||||
do_test shell1-3.23b.1 {
|
||||
catchcmd "test.db" ".stats"
|
||||
} {1 {Error: unknown command or invalid arguments: "stats". Enter ".help" for help}}
|
||||
do_test shell1-3.23b.2 {
|
||||
catchcmd "test.db" ".stats ON"
|
||||
} {0 {}}
|
||||
do_test shell1-3.23b.3 {
|
||||
catchcmd "test.db" ".stats OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-3.23b.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".stats OFF BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "stats". Enter ".help" for help}}
|
||||
|
||||
# .tables ?TABLE? List names of tables
|
||||
# If TABLE specified, only list tables matching
|
||||
# LIKE pattern TABLE.
|
||||
do_test shell1-3.24.1 {
|
||||
catchcmd "test.db" ".tables"
|
||||
} {0 {}}
|
||||
do_test shell1-3.24.2 {
|
||||
catchcmd "test.db" ".tables FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-3.24.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.25.1 {
|
||||
catchcmd "test.db" ".timeout"
|
||||
} {1 {Error: unknown command or invalid arguments: "timeout". Enter ".help" for help}}
|
||||
do_test shell1-3.25.2 {
|
||||
catchcmd "test.db" ".timeout zzz"
|
||||
# this should be treated the same as a '0' timeout
|
||||
} {0 {}}
|
||||
do_test shell1-3.25.3 {
|
||||
catchcmd "test.db" ".timeout 1"
|
||||
} {0 {}}
|
||||
do_test shell1-3.25.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".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-3.26.1 {
|
||||
catchcmd "test.db" ".width"
|
||||
} {1 {Error: unknown command or invalid arguments: "width". Enter ".help" for help}}
|
||||
do_test shell1-3.26.2 {
|
||||
catchcmd "test.db" ".width xxx"
|
||||
# this should be treated the same as a '0' width for col 1
|
||||
} {0 {}}
|
||||
do_test shell1-3.26.3 {
|
||||
catchcmd "test.db" ".width xxx yyy"
|
||||
# this should be treated the same as a '0' width for col 1 and 2
|
||||
} {0 {}}
|
||||
do_test shell1-3.26.4 {
|
||||
catchcmd "test.db" ".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-3.27.1 {
|
||||
catchcmd "test.db" ".timer"
|
||||
} {1 {Error: unknown command or invalid arguments: "timer". Enter ".help" for help}}
|
||||
do_test shell1-3.27.2 {
|
||||
catchcmd "test.db" ".timer ON"
|
||||
} {0 {}}
|
||||
do_test shell1-3.27.3 {
|
||||
catchcmd "test.db" ".timer OFF"
|
||||
} {0 {}}
|
||||
do_test shell1-3.27.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".timer OFF BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "timer". Enter ".help" for help}}
|
||||
|
||||
do_test shell1-3-28.1 {
|
||||
catchcmd test.db \
|
||||
".log stdout\nSELECT coalesce(sqlite_log(123,'hello'),'456');"
|
||||
} "0 {(123) hello\n456}"
|
||||
|
||||
# Test the output of the ".dump" command
|
||||
#
|
||||
do_test shell1-4.1 {
|
||||
db eval {
|
||||
CREATE TABLE t1(x);
|
||||
INSERT INTO t1 VALUES(null), (1), (2.25), ('hello'), (x'807f');
|
||||
}
|
||||
catchcmd test.db {.dump}
|
||||
} {0 {PRAGMA foreign_keys=OFF;
|
||||
BEGIN TRANSACTION;
|
||||
CREATE TABLE t1(x);
|
||||
INSERT INTO "t1" VALUES(NULL);
|
||||
INSERT INTO "t1" VALUES(1);
|
||||
INSERT INTO "t1" VALUES(2.25);
|
||||
INSERT INTO "t1" VALUES('hello');
|
||||
INSERT INTO "t1" VALUES(X'807F');
|
||||
COMMIT;}}
|
||||
|
||||
# Test the output of ".mode insert"
|
||||
#
|
||||
do_test shell1-4.2 {
|
||||
catchcmd test.db ".mode insert t1\nselect * from t1;"
|
||||
} {0 {INSERT INTO t1 VALUES(NULL);
|
||||
INSERT INTO t1 VALUES(1);
|
||||
INSERT INTO t1 VALUES(2.25);
|
||||
INSERT INTO t1 VALUES('hello');
|
||||
INSERT INTO t1 VALUES(X'807f');}}
|
||||
|
||||
|
||||
finish_test
|
||||
197
test/shell2.test
Normal file
197
test/shell2.test
Normal file
@@ -0,0 +1,197 @@
|
||||
# 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: shell2.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $
|
||||
#
|
||||
|
||||
# Test plan:
|
||||
#
|
||||
# shell2-1.*: Misc. test of various tickets and reported errors.
|
||||
#
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
if {$tcl_platform(platform)=="windows"} {
|
||||
set CLI "sqlite3.exe"
|
||||
} else {
|
||||
set CLI "./sqlite3"
|
||||
}
|
||||
if {![file executable $CLI]} {
|
||||
finish_test
|
||||
return
|
||||
}
|
||||
db close
|
||||
forcedelete test.db test.db-journal test.db-wal
|
||||
sqlite3 db test.db
|
||||
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# shell2-1.*: Misc. test of various tickets and reported errors.
|
||||
#
|
||||
|
||||
# Batch mode not creating databases.
|
||||
# Reported on mailing list by Ken Zalewski.
|
||||
# Ticket [aeff892c57].
|
||||
do_test shell2-1.1.1 {
|
||||
file delete -force foo.db
|
||||
set rc [ catchcmd "-batch foo.db" "CREATE TABLE t1(a);" ]
|
||||
set fexist [file exist foo.db]
|
||||
list $rc $fexist
|
||||
} {{0 {}} 1}
|
||||
|
||||
# Shell silently ignores extra parameters.
|
||||
# Ticket [f5cb008a65].
|
||||
do_test shell2-1.2.1 {
|
||||
set rc [catch { eval exec $CLI \":memory:\" \"select 3\" \"select 4\" } msg]
|
||||
list $rc \
|
||||
[regexp {Error: too many options: "select 4"} $msg]
|
||||
} {1 1}
|
||||
|
||||
# Test a problem reported on the mailing list. The shell was at one point
|
||||
# returning the generic SQLITE_ERROR message ("SQL error or missing database")
|
||||
# instead of the "too many levels..." message in the test below.
|
||||
#
|
||||
do_test shell2-1.3 {
|
||||
catchcmd "-batch test.db" {
|
||||
PRAGMA recursive_triggers = ON;
|
||||
CREATE TABLE t5(a PRIMARY KEY, b, c);
|
||||
INSERT INTO t5 VALUES(1, 2, 3);
|
||||
CREATE TRIGGER au_tble AFTER UPDATE ON t5 BEGIN
|
||||
UPDATE OR IGNORE t5 SET a = new.a, c = 10;
|
||||
END;
|
||||
|
||||
UPDATE OR REPLACE t5 SET a = 4 WHERE a = 1;
|
||||
}
|
||||
} {1 {Error: near line 9: too many levels of trigger recursion}}
|
||||
|
||||
|
||||
|
||||
# Shell not echoing all commands with echo on.
|
||||
# Ticket [eb620916be].
|
||||
|
||||
# Test with echo off
|
||||
# NB. whitespace is important
|
||||
do_test shell2-1.4.1 {
|
||||
file delete -force foo.db
|
||||
catchcmd "foo.db" {CREATE TABLE foo(a);
|
||||
INSERT INTO foo(a) VALUES(1);
|
||||
SELECT * FROM foo;}
|
||||
} {0 1}
|
||||
|
||||
# Test with echo on using command line option
|
||||
# NB. whitespace is important
|
||||
do_test shell2-1.4.2 {
|
||||
file delete -force foo.db
|
||||
catchcmd "-echo foo.db" {CREATE TABLE foo(a);
|
||||
INSERT INTO foo(a) VALUES(1);
|
||||
SELECT * FROM foo;}
|
||||
} {0 {CREATE TABLE foo(a);
|
||||
INSERT INTO foo(a) VALUES(1);
|
||||
SELECT * FROM foo;
|
||||
1}}
|
||||
|
||||
# Test with echo on using dot command
|
||||
# NB. whitespace is important
|
||||
do_test shell2-1.4.3 {
|
||||
file delete -force foo.db
|
||||
catchcmd "foo.db" {.echo ON
|
||||
CREATE TABLE foo(a);
|
||||
INSERT INTO foo(a) VALUES(1);
|
||||
SELECT * FROM foo;}
|
||||
} {0 {CREATE TABLE foo(a);
|
||||
INSERT INTO foo(a) VALUES(1);
|
||||
SELECT * FROM foo;
|
||||
1}}
|
||||
|
||||
# Test with echo on using dot command and
|
||||
# turning off mid- processing.
|
||||
# NB. whitespace is important
|
||||
do_test shell2-1.4.4 {
|
||||
file delete -force foo.db
|
||||
catchcmd "foo.db" {.echo ON
|
||||
CREATE TABLE foo(a);
|
||||
.echo OFF
|
||||
INSERT INTO foo(a) VALUES(1);
|
||||
SELECT * FROM foo;}
|
||||
} {0 {CREATE TABLE foo(a);
|
||||
.echo OFF
|
||||
1}}
|
||||
|
||||
# Test with echo on using dot command and
|
||||
# multiple commands per line.
|
||||
# NB. whitespace is important
|
||||
do_test shell2-1.4.5 {
|
||||
file delete -force foo.db
|
||||
catchcmd "foo.db" {.echo ON
|
||||
CREATE TABLE foo1(a);
|
||||
INSERT INTO foo1(a) VALUES(1);
|
||||
CREATE TABLE foo2(b);
|
||||
INSERT INTO foo2(b) VALUES(1);
|
||||
SELECT * FROM foo1; SELECT * FROM foo2;
|
||||
INSERT INTO foo1(a) VALUES(2); INSERT INTO foo2(b) VALUES(2);
|
||||
SELECT * FROM foo1; SELECT * FROM foo2;
|
||||
}
|
||||
} {0 {CREATE TABLE foo1(a);
|
||||
INSERT INTO foo1(a) VALUES(1);
|
||||
CREATE TABLE foo2(b);
|
||||
INSERT INTO foo2(b) VALUES(1);
|
||||
SELECT * FROM foo1;
|
||||
1
|
||||
SELECT * FROM foo2;
|
||||
1
|
||||
INSERT INTO foo1(a) VALUES(2);
|
||||
INSERT INTO foo2(b) VALUES(2);
|
||||
SELECT * FROM foo1;
|
||||
1
|
||||
2
|
||||
SELECT * FROM foo2;
|
||||
1
|
||||
2}}
|
||||
|
||||
# Test with echo on and headers on using dot command and
|
||||
# multiple commands per line.
|
||||
# NB. whitespace is important
|
||||
do_test shell2-1.4.6 {
|
||||
file delete -force foo.db
|
||||
catchcmd "foo.db" {.echo ON
|
||||
.headers ON
|
||||
CREATE TABLE foo1(a);
|
||||
INSERT INTO foo1(a) VALUES(1);
|
||||
CREATE TABLE foo2(b);
|
||||
INSERT INTO foo2(b) VALUES(1);
|
||||
SELECT * FROM foo1; SELECT * FROM foo2;
|
||||
INSERT INTO foo1(a) VALUES(2); INSERT INTO foo2(b) VALUES(2);
|
||||
SELECT * FROM foo1; SELECT * FROM foo2;
|
||||
}
|
||||
} {0 {.headers ON
|
||||
CREATE TABLE foo1(a);
|
||||
INSERT INTO foo1(a) VALUES(1);
|
||||
CREATE TABLE foo2(b);
|
||||
INSERT INTO foo2(b) VALUES(1);
|
||||
SELECT * FROM foo1;
|
||||
a
|
||||
1
|
||||
SELECT * FROM foo2;
|
||||
b
|
||||
1
|
||||
INSERT INTO foo1(a) VALUES(2);
|
||||
INSERT INTO foo2(b) VALUES(2);
|
||||
SELECT * FROM foo1;
|
||||
a
|
||||
1
|
||||
2
|
||||
SELECT * FROM foo2;
|
||||
b
|
||||
1
|
||||
2}}
|
||||
|
||||
finish_test
|
||||
97
test/shell3.test
Normal file
97
test/shell3.test
Normal file
@@ -0,0 +1,97 @@
|
||||
# 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.
|
||||
#
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
if {$tcl_platform(platform)=="windows"} {
|
||||
set CLI "sqlite3.exe"
|
||||
} else {
|
||||
set CLI "./sqlite3"
|
||||
}
|
||||
if {![file executable $CLI]} {
|
||||
finish_test
|
||||
return
|
||||
}
|
||||
db close
|
||||
forcedelete test.db test.db-journal test.db-wal
|
||||
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}}
|
||||
|
||||
finish_test
|
||||
116
test/shell4.test
Normal file
116
test/shell4.test
Normal file
@@ -0,0 +1,116 @@
|
||||
# 2010 July 28
|
||||
#
|
||||
# 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.
|
||||
# These tests are specific to the .stats command.
|
||||
#
|
||||
# $Id: shell4.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $
|
||||
#
|
||||
|
||||
# Test plan:
|
||||
#
|
||||
# shell4-1.*: Basic tests specific to the "stats" command.
|
||||
#
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
if {$tcl_platform(platform)=="windows"} {
|
||||
set CLI "sqlite3.exe"
|
||||
} else {
|
||||
set CLI "./sqlite3"
|
||||
}
|
||||
if {![file executable $CLI]} {
|
||||
finish_test
|
||||
return
|
||||
}
|
||||
db close
|
||||
forcedelete test.db test.db-journal test.db-wal
|
||||
sqlite3 db test.db
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Test cases shell4-1.*: Tests specific to the "stats" command.
|
||||
#
|
||||
|
||||
# should default to off
|
||||
do_test shell4-1.1.1 {
|
||||
set res [catchcmd "test.db" ".show"]
|
||||
list [regexp {stats: off} $res]
|
||||
} {1}
|
||||
|
||||
do_test shell4-1.1.2 {
|
||||
set res [catchcmd "test.db" ".show"]
|
||||
list [regexp {stats: on} $res]
|
||||
} {0}
|
||||
|
||||
# -stats should turn it on
|
||||
do_test shell4-1.2.1 {
|
||||
set res [catchcmd "-stats test.db" ".show"]
|
||||
list [regexp {stats: on} $res]
|
||||
} {1}
|
||||
|
||||
do_test shell4-1.2.2 {
|
||||
set res [catchcmd "-stats test.db" ".show"]
|
||||
list [regexp {stats: off} $res]
|
||||
} {0}
|
||||
|
||||
# .stats ON|OFF Turn stats on or off
|
||||
do_test shell4-1.3.1 {
|
||||
catchcmd "test.db" ".stats"
|
||||
} {1 {Error: unknown command or invalid arguments: "stats". Enter ".help" for help}}
|
||||
do_test shell4-1.3.2 {
|
||||
catchcmd "test.db" ".stats ON"
|
||||
} {0 {}}
|
||||
do_test shell4-1.3.3 {
|
||||
catchcmd "test.db" ".stats OFF"
|
||||
} {0 {}}
|
||||
do_test shell4-1.3.4 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".stats OFF BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "stats". Enter ".help" for help}}
|
||||
|
||||
# NB. whitespace is important
|
||||
do_test shell4-1.4.1 {
|
||||
set res [catchcmd "test.db" {.show}]
|
||||
list [regexp {stats: off} $res]
|
||||
} {1}
|
||||
|
||||
do_test shell4-1.4.2 {
|
||||
set res [catchcmd "test.db" {.stats ON
|
||||
.show
|
||||
}]
|
||||
list [regexp {stats: on} $res]
|
||||
} {1}
|
||||
|
||||
do_test shell4-1.4.3 {
|
||||
set res [catchcmd "test.db" {.stats OFF
|
||||
.show
|
||||
}]
|
||||
list [regexp {stats: off} $res]
|
||||
} {1}
|
||||
|
||||
# make sure stats not present when off
|
||||
do_test shell4-1.5.1 {
|
||||
set res [catchcmd "test.db" {SELECT 1;}]
|
||||
list [regexp {Memory Used} $res] \
|
||||
[regexp {Heap Usage} $res] \
|
||||
[regexp {Autoindex Inserts} $res]
|
||||
} {0 0 0}
|
||||
|
||||
# make sure stats are present when on
|
||||
do_test shell4-1.5.2 {
|
||||
set res [catchcmd "test.db" {.stats ON
|
||||
SELECT 1;
|
||||
}]
|
||||
list [regexp {Memory Used} $res] \
|
||||
[regexp {Heap Usage} $res] \
|
||||
[regexp {Autoindex Inserts} $res]
|
||||
} {1 1 1}
|
||||
|
||||
finish_test
|
||||
229
test/shell5.test
Normal file
229
test/shell5.test
Normal file
@@ -0,0 +1,229 @@
|
||||
# 2010 August 4
|
||||
#
|
||||
# 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.
|
||||
# These tests are specific to the .import command.
|
||||
#
|
||||
# $Id: shell5.test,v 1.7 2009/07/17 16:54:48 shaneh Exp $
|
||||
#
|
||||
|
||||
# Test plan:
|
||||
#
|
||||
# shell5-1.*: Basic tests specific to the ".import" command.
|
||||
#
|
||||
set testdir [file dirname $argv0]
|
||||
source $testdir/tester.tcl
|
||||
if {$tcl_platform(platform)=="windows"} {
|
||||
set CLI "sqlite3.exe"
|
||||
} else {
|
||||
set CLI "./sqlite3"
|
||||
}
|
||||
if {![file executable $CLI]} {
|
||||
finish_test
|
||||
return
|
||||
}
|
||||
db close
|
||||
forcedelete test.db test.db-journal test.db-wal
|
||||
sqlite3 db test.db
|
||||
|
||||
#----------------------------------------------------------------------------
|
||||
# Test cases shell5-1.*: Basic handling of the .import and .separator commands.
|
||||
#
|
||||
|
||||
# .import FILE TABLE Import data from FILE into TABLE
|
||||
do_test shell5-1.1.1 {
|
||||
catchcmd "test.db" ".import"
|
||||
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
|
||||
do_test shell5-1.1.2 {
|
||||
catchcmd "test.db" ".import FOO"
|
||||
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
|
||||
do_test shell5-1.1.2 {
|
||||
catchcmd "test.db" ".import FOO BAR"
|
||||
} {1 {Error: no such table: BAR}}
|
||||
do_test shell5-1.1.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".import FOO BAR BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "import". Enter ".help" for help}}
|
||||
|
||||
# .separator STRING Change separator used by output mode and .import
|
||||
do_test shell1-1.2.1 {
|
||||
catchcmd "test.db" ".separator"
|
||||
} {1 {Error: unknown command or invalid arguments: "separator". Enter ".help" for help}}
|
||||
do_test shell1-1.2.2 {
|
||||
catchcmd "test.db" ".separator FOO"
|
||||
} {0 {}}
|
||||
do_test shell1-1.2.3 {
|
||||
# too many arguments
|
||||
catchcmd "test.db" ".separator FOO BAD"
|
||||
} {1 {Error: unknown command or invalid arguments: "separator". Enter ".help" for help}}
|
||||
|
||||
# separator should default to "|"
|
||||
do_test shell5-1.3.1 {
|
||||
set res [catchcmd "test.db" ".show"]
|
||||
list [regexp {separator: \"\|\"} $res]
|
||||
} {1}
|
||||
|
||||
# set separator to different value.
|
||||
# check that .show reports new value
|
||||
do_test shell5-1.3.2 {
|
||||
set res [catchcmd "test.db" {.separator ,
|
||||
.show}]
|
||||
list [regexp {separator: \",\"} $res]
|
||||
} {1}
|
||||
|
||||
# import file doesn't exist
|
||||
do_test shell5-1.4.1 {
|
||||
file delete -force FOO
|
||||
set res [catchcmd "test.db" {CREATE TABLE t1(a, b);
|
||||
.import FOO t1}]
|
||||
} {1 {Error: cannot open "FOO"}}
|
||||
|
||||
# empty import file
|
||||
do_test shell5-1.4.2 {
|
||||
file delete -force shell5.csv
|
||||
set in [open shell5.csv w]
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1
|
||||
SELECT COUNT(*) FROM t1;}]
|
||||
} {0 0}
|
||||
|
||||
# import file with 1 row, 1 column (expecting 2 cols)
|
||||
do_test shell5-1.4.3 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "1"
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1}]
|
||||
} {1 {Error: shell5.csv line 1: expected 2 columns of data but found 1}}
|
||||
|
||||
# import file with 1 row, 3 columns (expecting 2 cols)
|
||||
do_test shell5-1.4.4 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "1|2|3"
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1}]
|
||||
} {1 {Error: shell5.csv line 1: expected 2 columns of data but found 3}}
|
||||
|
||||
# import file with 1 row, 2 columns
|
||||
do_test shell5-1.4.5 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "1|2"
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1
|
||||
SELECT COUNT(*) FROM t1;}]
|
||||
} {0 1}
|
||||
|
||||
# import file with 2 rows, 2 columns
|
||||
# note we end up with 3 rows because of the 1 row
|
||||
# imported above.
|
||||
do_test shell5-1.4.6 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "2|3"
|
||||
puts $in "3|4"
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1
|
||||
SELECT COUNT(*) FROM t1;}]
|
||||
} {0 3}
|
||||
|
||||
# import file with 1 row, 2 columns, using a comma
|
||||
do_test shell5-1.4.7 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "4,5"
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.separator ,
|
||||
.import shell5.csv t1
|
||||
SELECT COUNT(*) FROM t1;}]
|
||||
} {0 4}
|
||||
|
||||
# import file with 1 row, 2 columns, text data
|
||||
do_test shell5-1.4.8.1 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "5|Now is the time for all good men to come to the aid of their country."
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1
|
||||
SELECT COUNT(*) FROM t1;}]
|
||||
} {0 5}
|
||||
|
||||
do_test shell5-1.4.8.2 {
|
||||
catchcmd "test.db" {SELECT b FROM t1 WHERE a='5';}
|
||||
} {0 {Now is the time for all good men to come to the aid of their country.}}
|
||||
|
||||
# import file with 1 row, 2 columns, quoted text data
|
||||
# note that currently sqlite doesn't support quoted fields, and
|
||||
# imports the entire field, quotes and all.
|
||||
do_test shell5-1.4.9.1 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "6|'Now is the time for all good men to come to the aid of their country.'"
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1
|
||||
SELECT COUNT(*) FROM t1;}]
|
||||
} {0 6}
|
||||
|
||||
do_test shell5-1.4.9.2 {
|
||||
catchcmd "test.db" {SELECT b FROM t1 WHERE a='6';}
|
||||
} {0 {'Now is the time for all good men to come to the aid of their country.'}}
|
||||
|
||||
# import file with 1 row, 2 columns, quoted text data
|
||||
do_test shell5-1.4.10.1 {
|
||||
set in [open shell5.csv w]
|
||||
puts $in "7|\"Now is the time for all good men to come to the aid of their country.\""
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1
|
||||
SELECT COUNT(*) FROM t1;}]
|
||||
} {0 7}
|
||||
|
||||
do_test shell5-1.4.10.2 {
|
||||
catchcmd "test.db" {SELECT b FROM t1 WHERE a='7';}
|
||||
} {0 {Now is the time for all good men to come to the aid of their country.}}
|
||||
|
||||
# check importing very long field
|
||||
do_test shell5-1.5.1 {
|
||||
set str [string repeat X 999]
|
||||
set in [open shell5.csv w]
|
||||
puts $in "8|$str"
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t1
|
||||
SELECT length(b) FROM t1 WHERE a='8';}]
|
||||
} {0 999}
|
||||
|
||||
# try importing into a table with a large number of columns.
|
||||
# This is limited by SQLITE_MAX_VARIABLE_NUMBER, which defaults to 999.
|
||||
set cols 999
|
||||
do_test shell5-1.6.1 {
|
||||
set sql {CREATE TABLE t2(}
|
||||
set data {}
|
||||
for {set i 1} {$i<$cols} {incr i} {
|
||||
append sql "c$i,"
|
||||
append data "$i|"
|
||||
}
|
||||
append sql "c$cols);"
|
||||
append data "$cols"
|
||||
catchcmd "test.db" $sql
|
||||
set in [open shell5.csv w]
|
||||
puts $in $data
|
||||
close $in
|
||||
set res [catchcmd "test.db" {.import shell5.csv t2
|
||||
SELECT COUNT(*) FROM t2;}]
|
||||
} {0 1}
|
||||
|
||||
# try importing a large number of rows
|
||||
set rows 999999
|
||||
do_test shell5-1.7.1 {
|
||||
set in [open shell5.csv w]
|
||||
for {set i 1} {$i<=$rows} {incr i} {
|
||||
puts $in $i
|
||||
}
|
||||
close $in
|
||||
set res [catchcmd "test.db" {CREATE TABLE t3(a);
|
||||
.import shell5.csv t3
|
||||
SELECT COUNT(*) FROM t3;}]
|
||||
} [list 0 $rows]
|
||||
|
||||
finish_test
|
||||
@@ -504,7 +504,6 @@ proc incr_ntest {} {
|
||||
# Invoke the do_test procedure to run a single test
|
||||
#
|
||||
proc do_test {name cmd expected} {
|
||||
|
||||
global argv cmdlinearg
|
||||
|
||||
fix_testname name
|
||||
@@ -535,11 +534,24 @@ proc do_test {name cmd expected} {
|
||||
if {[catch {uplevel #0 "$cmd;\n"} result]} {
|
||||
puts "\nError: $result"
|
||||
fail_test $name
|
||||
} elseif {[string compare $result $expected]} {
|
||||
puts "\nExpected: \[$expected\]\n Got: \[$result\]"
|
||||
fail_test $name
|
||||
} else {
|
||||
puts " Ok"
|
||||
if {[regexp {^~?/.*/$} $expected]} {
|
||||
if {[string index $expected 0]=="~"} {
|
||||
set re [string range $expected 2 end-1]
|
||||
set ok [expr {![regexp $re $result]}]
|
||||
} else {
|
||||
set re [string range $expected 1 end-1]
|
||||
set ok [regexp $re $result]
|
||||
}
|
||||
} else {
|
||||
set ok [expr {[string compare $result $expected]==0}]
|
||||
}
|
||||
if {!$ok} {
|
||||
puts "\nExpected: \[$expected\]\n Got: \[$result\]"
|
||||
fail_test $name
|
||||
} else {
|
||||
puts " Ok"
|
||||
}
|
||||
}
|
||||
} else {
|
||||
puts " Omitted"
|
||||
@@ -548,6 +560,16 @@ proc do_test {name cmd expected} {
|
||||
flush stdout
|
||||
}
|
||||
|
||||
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
|
||||
}
|
||||
|
||||
proc filepath_normalize {p} {
|
||||
# test cases should be written to assume "unix"-like file paths
|
||||
if {$::tcl_platform(platform)!="unix"} {
|
||||
|
||||
Reference in New Issue
Block a user