sqlite-src-3350500/test/shell1.test

6 #    May you do good and not evil.
22 set testdir [file dirname $argv0]
24 set CLI [test_find_cli]
35   set res [catchcmd "-bad test.db" ""]
36   set rc [lindex $res 0]
41   set res [catchcmd "test.db -bad" ""]
42   set rc [lindex $res 0]
58   set res [catchcmd "-help test.db" ""]
59   set rc [lindex $res 0]
68 set out [open FOO w]
101   set res [catchcmd "-interactive test.db" ".quit"]
102   set rc [lindex $res 0]
113 # -column              set output mode to 'column'
118 # -csv                 set output mode to 'csv'
123 # -html                set output mode to HTML
128 # -line                set output mode to 'line'
133 # -list                set output mode to 'list'
138 # -separator 'x'       set output field separator (|)
146   set res [catchcmd "-separator" ""]
147   set rc [lindex $res 0]
157 # -nullvalue 'text'    set text string for NULL values
165   set res [catchcmd "-nullvalue" ""]
166   set rc [lindex $res 0]
173   set x [catchcmd "-version test.db" ""]
296   set res [catchcmd "test.db" ".dump"]
301   set res [catchcmd "test.db" ".dump FOO"]
379   set res [catchcmd "test.db" ".help"]
387   set res [catchcmd "test.db" ".help *"]
625   set res [catchcmd "test.db" ".show"]
658 # Adverse interaction between .stats and .eqp
665     .eqp full
817 # If the table contains an INTEGER PRIMARY KEY, do not record a separate
842 # an INTEGER PRIMARY KEY DESC is not an alias for the rowid.
865 # Do not record rowids for a WITHOUT ROWID table.  Also check correct quoting
889 # Do not record rowids if the rowid is inaccessible
920 } {1 {The --preserve-rowids option is not compatible with SQLITE_OMIT_VIRTUALTABLE}}
1032   for {set i 1} {$i < 256} {incr i} {
1046     set hex [format %02X $i]
1047     set char [subst \\x$hex]; set oldChar $char
1048     set escapes [list]
1055       set escapes [list \
1063       #       characters do not appear to require escaping on Unix.  For
1069       set escapes [list \
1073     set char [string map $escapes $char]
1074     set x [catchcmdex test.db ".print $char\n"]
1075     set code [lindex $x 0]
1076     set res [lindex $x 1]
1082         set got [format %02X [scan $res %c]]
1084         set got <empty>
1091 # These test cases do not work on MinGW
1096 set test \u6D4B\u8BD5
1099   set fileName $test; append fileName .db
1101   set x [catchcmdex $fileName "CREATE TABLE t1(x);\n.schema\n"]
1102   set code [lindex $x 0]
1103   set res [string trim [lindex $x 1]]
1111     error "file \"$fileName\" (Unicode) does not exist"
1118   set x [catchcmdex test3.db \
1120   set code [lindex $x 0]
1121   set res [string trim [lindex $x 1]]