test/shell1.test

   1 # 2009 Nov 11
   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 # TESTRUNNER: shell
  15 #
  16
  17 # Test plan:
  18 #
  19 #   shell1-1.*: Basic command line option handling.
  20 #   shell1-2.*: Basic "dot" command token parsing.
  21 #   shell1-3.*: Basic test that "dot" command can be called.
  22 #   shell1-{4-8}.*: Test various "dot" commands's functionality.
  23 #   shell1-9.*: Basic test that "dot" commands and SQL intermix ok.
  24 #
  25 set testdir [file dirname $argv0]
  26 source $testdir/tester.tcl
  27 set CLI [test_cli_invocation]
  28 db close
  29 forcedelete test.db test.db-journal test.db-wal
  30 sqlite3 db test.db
  31
  32 #----------------------------------------------------------------------------
  33 # Test cases shell1-1.*: Basic command line option handling.
  34 #
  35
  36 # invalid option
  37 do_test shell1-1.1.1 {
  38   set res [catchcmd "-bad test.db" ""]
  39   set rc [lindex $res 0]
  40   list $rc \
  41        [regexp {Error: unknown option: -bad} $res]
  42 } {1 1}
  43 do_test shell1-1.1.1b {
  44   set res [catchcmd "test.db -bad" ""]
  45   set rc [lindex $res 0]
  46   list $rc \
  47        [regexp {Error: unknown option: -bad} $res]
  48 } {1 1}
  49 # error on extra options
  50 do_test shell1-1.1.2 {
  51   catchcmd "test.db \"select+3\" \"select+4\"" ""
  52 } {0 {3
  53 4}}
  54 # error on extra options
  55 do_test shell1-1.1.3 {
  56   catchcmd "test.db FOO test.db BAD" ".quit"
  57 } {/1 .Error: in prepare, near "FOO": syntax error*/}
  58
  59 # -help
  60 do_test shell1-1.2.1 {
  61   set res [catchcmd "-help test.db" ""]
  62   set rc [lindex $res 0]
  63   list $rc \
  64        [regexp {Usage} $res] \
  65        [regexp {\-init} $res] \
  66        [regexp {\-version} $res]
  67 } {1 1 1 1}
  68
  69 # -init filename       read/process named file
  70 forcedelete FOO
  71 set out [open FOO w]
  72 puts $out ""
  73 close $out
  74 do_test shell1-1.3.1 {
  75   catchcmd "-init FOO test.db" ""
  76 } {0 {}}
  77 do_test shell1-1.3.2 {
  78   catchcmd "-init FOO test.db .quit BAD" ""
  79 } {0 {}}
  80 do_test shell1-1.3.3 {
  81   catchcmd "-init FOO test.db BAD .quit" ""
  82 } {/1 .Error: in prepare, near "BAD": syntax error*/}
  83
  84 # -echo                print commands before execution
  85 do_test shell1-1.4.1 {
  86   catchcmd "-echo test.db" ""
  87 } {0 {}}
  88
  89 # -[no]header          turn headers on or off
  90 do_test shell1-1.5.1 {
  91   catchcmd "-header test.db" ""
  92 } {0 {}}
  93 do_test shell1-1.5.2 {
  94   catchcmd "-noheader test.db" ""
  95 } {0 {}}
  96
  97 # -bail                stop after hitting an error
  98 do_test shell1-1.6.1 {
  99   catchcmd "-bail test.db" ""
 100 } {0 {}}
 101
 102 # -interactive         force interactive I/O
 103 do_test shell1-1.7.1 {
 104   set res [catchcmd "-interactive test.db" ".quit"]
 105   set rc [lindex $res 0]
 106   list $rc \
 107        [regexp {SQLite version} $res] \
 108        [regexp {Enter ".help" for usage hints} $res]
 109 } {0 1 1}
 110
 111 # -batch               force batch I/O
 112 do_test shell1-1.8.1 {
 113   catchcmd "-batch test.db" ""
 114 } {0 {}}
 115
 116 # -column              set output mode to 'column'
 117 do_test shell1-1.9.1 {
 118   catchcmd "-column test.db" ""
 119 } {0 {}}
 120
 121 # -csv                 set output mode to 'csv'
 122 do_test shell1-1.10.1 {
 123   catchcmd "-csv test.db" ""
 124 } {0 {}}
 125
 126 # -html                set output mode to HTML
 127 do_test shell1-1.11.1 {
 128   catchcmd "-html test.db" ""
 129 } {0 {}}
 130
 131 # -line                set output mode to 'line'
 132 do_test shell1-1.12.1 {
 133   catchcmd "-line test.db" ""
 134 } {0 {}}
 135
 136 # -list                set output mode to 'list'
 137 do_test shell1-1.13.1 {
 138   catchcmd "-list test.db" ""
 139 } {0 {}}
 140
 141 # -separator 'x'       set output field separator (|)
 142 do_test shell1-1.14.1 {
 143   catchcmd "-separator 'x' test.db" ""
 144 } {0 {}}
 145 do_test shell1-1.14.2 {
 146   catchcmd "-separator x test.db" ""
 147 } {0 {}}
 148 do_test shell1-1.14.3 {
 149   set res [catchcmd "-separator" ""]
 150   set rc [lindex $res 0]
 151   list $rc \
 152        [regexp {Error: missing argument to -separator} $res]
 153 } {1 1}
 154
 155 # -stats               print memory stats before each finalize
 156 do_test shell1-1.14b.1 {
 157   catchcmd "-stats test.db" ""
 158 } {0 {}}
 159
 160 # -nullvalue 'text'    set text string for NULL values
 161 do_test shell1-1.15.1 {
 162   catchcmd "-nullvalue 'x' test.db" ""
 163 } {0 {}}
 164 do_test shell1-1.15.2 {
 165   catchcmd "-nullvalue x test.db" ""
 166 } {0 {}}
 167 do_test shell1-1.15.3 {
 168   set res [catchcmd "-nullvalue" ""]
 169   set rc [lindex $res 0]
 170   list $rc \
 171        [regexp {Error: missing argument to -nullvalue} $res]
 172 } {1 1}
 173
 174 # -version             show SQLite version
 175 do_test shell1-1.16.1 {
 176   set x [catchcmd "-version test.db" ""]
 177 } {/3.[0-9.]+ 20\d\d-[01]\d-\d\d \d\d:\d\d:\d\d [0-9a-f]+/}
 178
 179 # Handle no-more-options option
 180 forcedelete ./--db
 181 do_test shell1-1.17.1 {
 182   catchcmd {-- --db "CREATE TABLE T(c1);"}
 183 } {0 {}}
 184 do_test shell1-1.17.2 {
 185   catchcmd {-- --db "SELECT name from sqlite_schema;"}
 186 } {0 T}
 187 forcedelete ./--db
 188
 189 #----------------------------------------------------------------------------
 190 # Test cases shell1-2.*: Basic "dot" command token parsing.
 191 #
 192
 193 # check first token handling
 194 do_test shell1-2.1.1 {
 195   catchcmd "test.db" ".foo"
 196 } {1 {Error: unknown command or invalid arguments:  "foo". Enter ".help" for help}}
 197 do_test shell1-2.1.2 {
 198   catchcmd "test.db" ".\"foo OFF\""
 199 } {1 {Error: unknown command or invalid arguments:  "foo OFF". Enter ".help" for help}}
 200 do_test shell1-2.1.3 {
 201   catchcmd "test.db" ".\'foo OFF\'"
 202 } {1 {Error: unknown command or invalid arguments:  "foo OFF". Enter ".help" for help}}
 203
 204 # unbalanced quotes
 205 do_test shell1-2.2.1 {
 206   catchcmd "test.db" ".\"foo OFF"
 207 } {1 {Error: unknown command or invalid arguments:  "foo OFF". Enter ".help" for help}}
 208 do_test shell1-2.2.2 {
 209   catchcmd "test.db" ".\'foo OFF"
 210 } {1 {Error: unknown command or invalid arguments:  "foo OFF". Enter ".help" for help}}
 211 do_test shell1-2.2.3 {
 212   catchcmd "test.db" ".explain \"OFF"
 213 } {0 {}}
 214 do_test shell1-2.2.4 {
 215   catchcmd "test.db" ".explain \'OFF"
 216 } {0 {}}
 217 do_test shell1-2.2.5 {
 218   catchcmd "test.db" ".mode \"insert FOO"
 219 } {1 {Error: mode should be one of: ascii box column csv html insert json line list markdown qbox quote table tabs tcl}}
 220 do_test shell1-2.2.6 {
 221   catchcmd "test.db" ".mode \'insert FOO"
 222 } {1 {Error: mode should be one of: ascii box column csv html insert json line list markdown qbox quote table tabs tcl}}
 223
 224 # check multiple tokens, and quoted tokens
 225 do_test shell1-2.3.1 {
 226   catchcmd "test.db" ".explain 1"
 227 } {0 {}}
 228 do_test shell1-2.3.2 {
 229   catchcmd "test.db" ".explain on"
 230 } {0 {}}
 231 do_test shell1-2.3.3 {
 232   catchcmd "test.db" ".explain \"1 2 3\""
 233 } {1 {ERROR: Not a boolean value: "1 2 3". Assuming "no".}}
 234 do_test shell1-2.3.4 {
 235   catchcmd "test.db" ".explain \"OFF\""
 236 } {0 {}}
 237 do_test shell1-2.3.5 {
 238   catchcmd "test.db" ".\'explain\' \'OFF\'"
 239 } {0 {}}
 240 do_test shell1-2.3.6 {
 241   catchcmd "test.db" ".explain \'OFF\'"
 242 } {0 {}}
 243 do_test shell1-2.3.7 {
 244   catchcmd "test.db" ".\'explain\' \'OFF\'"
 245 } {0 {}}
 246
 247 # check quoted args are unquoted
 248 do_test shell1-2.4.1 {
 249   catchcmd "test.db" ".mode FOO"
 250 } {1 {Error: mode should be one of: ascii box column csv html insert json line list markdown qbox quote table tabs tcl}}
 251 do_test shell1-2.4.2 {
 252   catchcmd "test.db" ".mode csv"
 253 } {0 {}}
 254 do_test shell1-2.4.2 {
 255   catchcmd "test.db" ".mode \"csv\""
 256 } {0 {}}
 257
 258 # check that certain quoted arg escapes work
 259 do_test shell1-2.5.1 {
 260   catchcmd ":memory:" ".print \"\\060\\077 \\x3f\\x30 \\a\\t\""
 261 } [list 0 "0? ?0 \a\t"]
 262
 263
 264 #----------------------------------------------------------------------------
 265 # Test cases shell1-3.*: Basic test that "dot" command can be called.
 266 #
 267
 268 # .backup ?DB? FILE      Backup DB (default "main") to FILE
 269 do_test shell1-3.1.1 {
 270   catchcmd "test.db" ".backup"
 271 } {1 {missing FILENAME argument on .backup}}
 272 forcedelete FOO
 273 do_test shell1-3.1.2 {
 274   catchcmd "test.db" ".backup FOO"
 275 } {0 {}}
 276 do_test shell1-3.1.3 {
 277   catchcmd "test.db" ".backup FOO BAR"
 278 } {1 {Error: unknown database FOO}}
 279 do_test shell1-3.1.4 {
 280   # too many arguments
 281   catchcmd "test.db" ".backup FOO BAR BAD"
 282 } {1 {Usage: .backup ?DB? ?OPTIONS? FILENAME}}
 283
 284 # .bail ON|OFF           Stop after hitting an error.  Default OFF
 285 do_test shell1-3.2.1 {
 286   catchcmd "test.db" ".bail"
 287 } {1 {Usage: .bail on|off}}
 288 do_test shell1-3.2.2 {
 289   catchcmd "test.db" ".bail ON"
 290 } {0 {}}
 291 do_test shell1-3.2.3 {
 292   catchcmd "test.db" ".bail OFF"
 293 } {0 {}}
 294 do_test shell1-3.2.4 {
 295   # too many arguments
 296   catchcmd "test.db" ".bail OFF BAD"
 297 } {1 {Usage: .bail on|off}}
 298
 299 ifcapable vtab {
 300 # .databases             List names and files of attached databases
 301 do_test shell1-3.3.1 {
 302   catchcmd "-csv test.db" ".databases"
 303 } "/0.+main.+[string map {/ ".{1,2}"} [string range [get_pwd] 0 10]].*/"
 304 do_test shell1-3.3.2 {
 305   # extra arguments ignored
 306   catchcmd "test.db" ".databases BAD"
 307 } "/0.+main.+[string map {/ ".{1,2}"} [string range [get_pwd] 0 10]].*/"
 308 }
 309
 310 # .dump ?TABLE? ...      Dump the database in an SQL text format
 311 #                          If TABLE specified, only dump tables matching
 312 #                          LIKE pattern TABLE.
 313 do_test shell1-3.4.1 {
 314   set res [catchcmd "test.db" ".dump"]
 315   list [regexp {BEGIN TRANSACTION;} $res] \
 316        [regexp {COMMIT;} $res]
 317 } {1 1}
 318 do_test shell1-3.4.2 {
 319   set res [catchcmd "test.db" ".dump FOO"]
 320   list [regexp {BEGIN TRANSACTION;} $res] \
 321        [regexp {COMMIT;} $res]
 322 } {1 1}
 323 # The .dump command now accepts multiple arguments
 324 #do_test shell1-3.4.3 {
 325 #  # too many arguments
 326 #  catchcmd "test.db" ".dump FOO BAD"
 327 #} {1 {Usage: .dump ?--preserve-rowids? ?--newlines? ?LIKE-PATTERN?}}
 328
 329 # .echo ON|OFF           Turn command echo on or off
 330 do_test shell1-3.5.1 {
 331   catchcmd "test.db" ".echo"
 332 } {1 {Usage: .echo on|off}}
 333 do_test shell1-3.5.2 {
 334   catchcmd "test.db" ".echo ON"
 335 } {0 {}}
 336 do_test shell1-3.5.3 {
 337   catchcmd "test.db" ".echo OFF"
 338 } {0 {}}
 339 do_test shell1-3.5.4 {
 340   # too many arguments
 341   catchcmd "test.db" ".echo OFF BAD"
 342 } {1 {Usage: .echo on|off}}
 343
 344 # .exit                  Exit this program
 345 do_test shell1-3.6.1 {
 346   catchcmd "test.db" ".exit"
 347 } {0 {}}
 348
 349 # .explain ON|OFF        Turn output mode suitable for EXPLAIN on or off.
 350 do_test shell1-3.7.1 {
 351   catchcmd "test.db" ".explain"
 352   # explain is the exception to the booleans.  without an option, it turns it on.
 353 } {0 {}}
 354 do_test shell1-3.7.2 {
 355   catchcmd "test.db" ".explain ON"
 356 } {0 {}}
 357 do_test shell1-3.7.3 {
 358   catchcmd "test.db" ".explain OFF"
 359 } {0 {}}
 360 do_test shell1-3.7.4 {
 361   # extra arguments ignored
 362   catchcmd "test.db" ".explain OFF BAD"
 363 } {0 {}}
 364
 365
 366 # .header(s) ON|OFF      Turn display of headers on or off
 367 do_test shell1-3.9.1 {
 368   catchcmd "test.db" ".header"
 369 } {1 {Usage: .headers on|off}}
 370 do_test shell1-3.9.2 {
 371   catchcmd "test.db" ".header ON"
 372 } {0 {}}
 373 do_test shell1-3.9.3 {
 374   catchcmd "test.db" ".header OFF"
 375 } {0 {}}
 376 do_test shell1-3.9.4 {
 377   # too many arguments
 378   catchcmd "test.db" ".header OFF BAD"
 379 } {1 {Usage: .headers on|off}}
 380
 381 do_test shell1-3.9.5 {
 382   catchcmd "test.db" ".headers"
 383 } {1 {Usage: .headers on|off}}
 384 do_test shell1-3.9.6 {
 385   catchcmd "test.db" ".headers ON"
 386 } {0 {}}
 387 do_test shell1-3.9.7 {
 388   catchcmd "test.db" ".headers OFF"
 389 } {0 {}}
 390 do_test shell1-3.9.8 {
 391   # too many arguments
 392   catchcmd "test.db" ".headers OFF BAD"
 393 } {1 {Usage: .headers on|off}}
 394
 395 # .help                  Show this message
 396 do_test shell1-3.10.1 {
 397   set res [catchcmd "test.db" ".help"]
 398   # look for a few of the possible help commands
 399   list [regexp {.help} $res] \
 400        [regexp {.quit} $res] \
 401        [regexp {.show} $res]
 402 } {1 1 1}
 403 do_test shell1-3.10.2 {
 404   # we allow .help to take extra args (it is help after all)
 405   set res [catchcmd "test.db" ".help *"]
 406   # look for a few of the possible help commands
 407   list [regexp {.help} $res] \
 408        [regexp {.quit} $res] \
 409        [regexp {.show} $res]
 410 } {1 1 1}
 411
 412 # .import FILE TABLE     Import data from FILE into TABLE
 413 do_test shell1-3.11.1 {
 414   catchcmd "test.db" ".import"
 415 } {/1 .ERROR: missing FILE argument.*/}
 416 do_test shell1-3.11.2 {
 417   catchcmd "test.db" ".import FOO"
 418 } {/1 .ERROR: missing TABLE argument.*/}
 419 do_test shell1-3.11.3 {
 420   # too many arguments
 421   catchcmd "test.db" ".import FOO BAR BAD"
 422 } {/1 .ERROR: extra argument: "BAD".*./}
 423
 424 # .indexes ?TABLE?       Show names of all indexes
 425 #                          If TABLE specified, only show indexes for tables
 426 #                          matching LIKE pattern TABLE.
 427 do_test shell1-3.12.1 {
 428   catchcmd "test.db" ".indexes"
 429 } {0 {}}
 430 do_test shell1-3.12.2 {
 431   catchcmd "test.db" ".indexes FOO"
 432 } {0 {}}
 433 do_test shell1-3.12.2-legacy {
 434   catchcmd "test.db" ".indices FOO"
 435 } {0 {}}
 436 do_test shell1-3.12.3 {
 437   # too many arguments
 438   catchcmd "test.db" ".indexes FOO BAD"
 439 } {1 {Usage: .indexes ?LIKE-PATTERN?}}
 440
 441 # .mode MODE ?TABLE?     Set output mode where MODE is one of:
 442 #                          ascii    Columns/rows delimited by 0x1F and 0x1E
 443 #                          csv      Comma-separated values
 444 #                          column   Left-aligned columns.  (See .width)
 445 #                          html     HTML <table> code
 446 #                          insert   SQL insert statements for TABLE
 447 #                          line     One value per line
 448 #                          list     Values delimited by .separator strings
 449 #                          tabs     Tab-separated values
 450 #                          tcl      TCL list elements
 451 do_test shell1-3.13.1 {
 452   catchcmd "test.db" ".mode"
 453 } {0 {current output mode: list}}
 454 do_test shell1-3.13.2 {
 455   catchcmd "test.db" ".mode FOO"
 456 } {1 {Error: mode should be one of: ascii box column csv html insert json line list markdown qbox quote table tabs tcl}}
 457 do_test shell1-3.13.3 {
 458   catchcmd "test.db" ".mode csv"
 459 } {0 {}}
 460 do_test shell1-3.13.4 {
 461   catchcmd "test.db" ".mode column"
 462 } {0 {}}
 463 do_test shell1-3.13.5 {
 464   catchcmd "test.db" ".mode html"
 465 } {0 {}}
 466 do_test shell1-3.13.6 {
 467   catchcmd "test.db" ".mode insert"
 468 } {0 {}}
 469 do_test shell1-3.13.7 {
 470   catchcmd "test.db" ".mode line"
 471 } {0 {}}
 472 do_test shell1-3.13.8 {
 473   catchcmd "test.db" ".mode list"
 474 } {0 {}}
 475 do_test shell1-3.13.9 {
 476   catchcmd "test.db" ".mode tabs"
 477 } {0 {}}
 478 do_test shell1-3.13.10 {
 479   catchcmd "test.db" ".mode tcl"
 480 } {0 {}}
 481 do_test shell1-3.13.11 {
 482   # extra arguments ignored
 483   catchcmd "test.db" ".mode tcl BAD"
 484 } {0 {}}
 485
 486 # .nullvalue STRING      Print STRING in place of NULL values
 487 do_test shell1-3.14.1 {
 488   catchcmd "test.db" ".nullvalue"
 489 } {1 {Usage: .nullvalue STRING}}
 490 do_test shell1-3.14.2 {
 491   catchcmd "test.db" ".nullvalue FOO"
 492 } {0 {}}
 493 do_test shell1-3.14.3 {
 494   # too many arguments
 495   catchcmd "test.db" ".nullvalue FOO BAD"
 496 } {1 {Usage: .nullvalue STRING}}
 497
 498 # .output FILENAME       Send output to FILENAME
 499 do_test shell1-3.15.1 {
 500   catchcmd "test.db" ".output
 501 .print x"
 502 } {0 x}
 503 do_test shell1-3.15.2 {
 504   catchcmd "test.db" ".output FOO
 505 .print x
 506 .output
 507 SELECT readfile('FOO');"
 508 } {0 {x
 509 }}
 510 do_test shell1-3.15.3 {
 511   # too many arguments
 512   catchcmd "test.db" ".output FOO BAD"
 513 } {1 {ERROR: extra parameter: "BAD".  Usage:
 514 .output ?FILE?           Send output to FILE or stdout if FILE is omitted
 515    If FILE begins with '|' then open it as a pipe.
 516    Options:
 517      --bom                 Prefix output with a UTF8 byte-order mark
 518      -e                    Send output to the system text editor
 519      --plain               Use text/plain for -w option
 520      -w                    Send output to a web browser
 521      -x                    Send output as CSV to a spreadsheet
 522 child process exited abnormally}}
 523
 524 # .output stdout         Send output to the screen
 525 do_test shell1-3.16.1 {
 526   catchcmd "test.db" ".output stdout"
 527 } {0 {}}
 528 do_test shell1-3.16.2 {
 529   # too many arguments
 530   catchcmd "test.db" ".output stdout BAD"
 531 } {1 {ERROR: extra parameter: "BAD".  Usage:
 532 .output ?FILE?           Send output to FILE or stdout if FILE is omitted
 533    If FILE begins with '|' then open it as a pipe.
 534    Options:
 535      --bom                 Prefix output with a UTF8 byte-order mark
 536      -e                    Send output to the system text editor
 537      --plain               Use text/plain for -w option
 538      -w                    Send output to a web browser
 539      -x                    Send output as CSV to a spreadsheet
 540 child process exited abnormally}}
 541
 542 # .prompt MAIN CONTINUE  Replace the standard prompts
 543 do_test shell1-3.17.1 {
 544   catchcmd "test.db" ".prompt"
 545 } {0 {}}
 546 do_test shell1-3.17.2 {
 547   catchcmd "test.db" ".prompt FOO"
 548 } {0 {}}
 549 do_test shell1-3.17.3 {
 550   catchcmd "test.db" ".prompt FOO BAR"
 551 } {0 {}}
 552 do_test shell1-3.17.4 {
 553   # too many arguments
 554   catchcmd "test.db" ".prompt FOO BAR BAD"
 555 } {0 {}}
 556
 557 # .quit                  Exit this program
 558 do_test shell1-3.18.1 {
 559   catchcmd "test.db" ".quit"
 560 } {0 {}}
 561 do_test shell1-3.18.2 {
 562   # too many arguments
 563   catchcmd "test.db" ".quit BAD"
 564 } {0 {}}
 565
 566 # .read FILENAME         Execute SQL in FILENAME
 567 do_test shell1-3.19.1 {
 568   catchcmd "test.db" ".read"
 569 } {1 {Usage: .read FILE}}
 570 do_test shell1-3.19.2 {
 571   forcedelete FOO
 572   catchcmd "test.db" ".read FOO"
 573 } {1 {Error: cannot open "FOO"}}
 574 do_test shell1-3.19.3 {
 575   # too many arguments
 576   catchcmd "test.db" ".read FOO BAD"
 577 } {1 {Usage: .read FILE}}
 578
 579 # .restore ?DB? FILE     Restore content of DB (default "main") from FILE
 580 do_test shell1-3.20.1 {
 581   catchcmd "test.db" ".restore"
 582 } {1 {Usage: .restore ?DB? FILE}}
 583 do_test shell1-3.20.2 {
 584   catchcmd "test.db" ".restore FOO"
 585 } {0 {}}
 586 do_test shell1-3.20.3 {
 587   catchcmd "test.db" ".restore FOO BAR"
 588 } {1 {Error: unknown database FOO}}
 589 do_test shell1-3.20.4 {
 590   # too many arguments
 591   catchcmd "test.db" ".restore FOO BAR BAD"
 592 } {1 {Usage: .restore ?DB? FILE}}
 593
 594 ifcapable vtab {
 595 # .schema ?TABLE?        Show the CREATE statements
 596 #                          If TABLE specified, only show tables matching
 597 #                          LIKE pattern TABLE.
 598 do_test shell1-3.21.1 {
 599   catchcmd "test.db" ".schema"
 600 } {0 {}}
 601 do_test shell1-3.21.2 {
 602   catchcmd "test.db" ".schema FOO"
 603 } {0 {}}
 604 do_test shell1-3.21.3 {
 605   # too many arguments
 606   catchcmd "test.db" ".schema FOO BAD"
 607 } {1 {Usage: .schema ?--indent? ?--nosys? ?LIKE-PATTERN?}}
 608
 609 do_test shell1-3.21.4 {
 610   catchcmd "test.db" {
 611      CREATE TABLE t1(x);
 612      CREATE VIEW v2 AS SELECT x+1 AS y FROM t1;
 613      CREATE VIEW v1 AS SELECT y+1 FROM v2;
 614   }
 615   catchcmd "test.db" ".schema"
 616 } {0 {CREATE TABLE t1(x);
 617 CREATE VIEW v2 AS SELECT x+1 AS y FROM t1
 618 /* v2(y) */;
 619 CREATE VIEW v1 AS SELECT y+1 FROM v2
 620 /* v1("y+1") */;}}
 621
 622   catch {db eval {DROP VIEW v1; DROP VIEW v2; DROP TABLE t1;}}
 623 }
 624
 625 # .separator STRING  Change column separator used by output and .import
 626 do_test shell1-3.22.1 {
 627   catchcmd "test.db" ".separator"
 628 } {1 {Usage: .separator COL ?ROW?}}
 629 do_test shell1-3.22.2 {
 630   catchcmd "test.db" ".separator FOO"
 631 } {0 {}}
 632 do_test shell1-3.22.3 {
 633   catchcmd "test.db" ".separator ABC XYZ"
 634 } {0 {}}
 635 do_test shell1-3.22.4 {
 636   # too many arguments
 637   catchcmd "test.db" ".separator FOO BAD BAD2"
 638 } {1 {Usage: .separator COL ?ROW?}}
 639
 640 # .show                  Show the current values for various settings
 641 do_test shell1-3.23.1 {
 642   set res [catchcmd "test.db" ".show"]
 643   list [regexp {echo:} $res] \
 644        [regexp {explain:} $res] \
 645        [regexp {headers:} $res] \
 646        [regexp {mode:} $res] \
 647        [regexp {nullvalue:} $res] \
 648        [regexp {output:} $res] \
 649        [regexp {colseparator:} $res] \
 650        [regexp {rowseparator:} $res] \
 651        [regexp {stats:} $res] \
 652        [regexp {width:} $res]
 653 } {1 1 1 1 1 1 1 1 1 1}
 654 do_test shell1-3.23.2 {
 655   # too many arguments
 656   catchcmd "test.db" ".show BAD"
 657 } {1 {Usage: .show}}
 658
 659 # .stats ON|OFF          Turn stats on or off
 660 #do_test shell1-3.23b.1 {
 661 #  catchcmd "test.db" ".stats"
 662 #} {1 {Usage: .stats on|off|stmt|vmstep}}
 663 do_test shell1-3.23b.2 {
 664   catchcmd "test.db" ".stats ON"
 665 } {0 {}}
 666 do_test shell1-3.23b.3 {
 667   catchcmd "test.db" ".stats OFF"
 668 } {0 {}}
 669 do_test shell1-3.23b.4 {
 670   # too many arguments
 671   catchcmd "test.db" ".stats OFF BAD"
 672 } {1 {Usage: .stats ?on|off|stmt|vmstep?}}
 673
 674 # Ticket 7be932dfa60a8a6b3b26bcf7623ec46e0a403ddb 2018-06-07
 675 # Adverse interaction between .stats and .eqp
 676 #
 677 do_test shell1-3.23b.5 {
 678   catchcmd "test.db" [string map {"\n    " "\n"} {
 679     CREATE TEMP TABLE t1(x);
 680     INSERT INTO t1 VALUES(1),(2);
 681     .stats on
 682     .eqp full
 683     SELECT * FROM t1;
 684   }]
 685 } {/1\n2\n/}
 686
 687 # .tables ?TABLE?        List names of tables
 688 #                          If TABLE specified, only list tables matching
 689 #                          LIKE pattern TABLE.
 690 do_test shell1-3.24.1 {
 691   catchcmd "test.db" ".tables"
 692 } {0 {}}
 693 do_test shell1-3.24.2 {
 694   catchcmd "test.db" ".tables FOO"
 695 } {0 {}}
 696 do_test shell1-3.24.3 {
 697   # too many arguments
 698   catchcmd "test.db" ".tables FOO BAD"
 699 } {0 {}}
 700
 701 # .timeout MS            Try opening locked tables for MS milliseconds
 702 do_test shell1-3.25.1 {
 703   catchcmd "test.db" ".timeout"
 704 } {0 {}}
 705 do_test shell1-3.25.2 {
 706   catchcmd "test.db" ".timeout zzz"
 707   # this should be treated the same as a '0' timeout
 708 } {0 {}}
 709 do_test shell1-3.25.3 {
 710   catchcmd "test.db" ".timeout 1"
 711 } {0 {}}
 712 do_test shell1-3.25.4 {
 713   # too many arguments
 714   catchcmd "test.db" ".timeout 1 BAD"
 715 } {0 {}}
 716
 717 # .width NUM NUM ...     Set column widths for "column" mode
 718 do_test shell1-3.26.1 {
 719   catchcmd "test.db" ".width"
 720 } {0 {}}
 721 do_test shell1-3.26.2 {
 722   catchcmd "test.db" ".width xxx"
 723   # this should be treated the same as a '0' width for col 1
 724 } {0 {}}
 725 do_test shell1-3.26.3 {
 726   catchcmd "test.db" ".width xxx yyy"
 727   # this should be treated the same as a '0' width for col 1 and 2
 728 } {0 {}}
 729 do_test shell1-3.26.4 {
 730   catchcmd "test.db" ".width 1 1"
 731   # this should be treated the same as a '1' width for col 1 and 2
 732 } {0 {}}
 733 do_test shell1-3.26.5 {
 734   catchcmd "test.db" ".mode column\n.header off\n.width 10 -10\nSELECT 'abcdefg', 123456;"
 735   # this should be treated the same as a '1' width for col 1 and 2
 736 } {0 {abcdefg         123456}}
 737 do_test shell1-3.26.6 {
 738   catchcmd "test.db" ".mode column\n.header off\n.width -10 10\nSELECT 'abcdefg', 123456;"
 739   # this should be treated the same as a '1' width for col 1 and 2
 740 } {0 {   abcdefg  123456    }}
 741
 742
 743 # .timer ON|OFF          Turn the CPU timer measurement on or off
 744 do_test shell1-3.27.1 {
 745   catchcmd "test.db" ".timer"
 746 } {1 {Usage: .timer on|off}}
 747 do_test shell1-3.27.2 {
 748   catchcmd "test.db" ".timer ON"
 749 } {0 {}}
 750 do_test shell1-3.27.3 {
 751   catchcmd "test.db" ".timer OFF"
 752 } {0 {}}
 753 do_test shell1-3.27.4 {
 754   # too many arguments
 755   catchcmd "test.db" ".timer OFF BAD"
 756 } {1 {Usage: .timer on|off}}
 757
 758 do_test shell1-3-28.1 {
 759   catchcmd test.db \
 760      ".log stdout\nSELECT coalesce(sqlite_log(123,'hello'),'456');"
 761 } "0 {(123) hello\n456}"
 762
 763 do_test shell1-3-29.1 {
 764   catchcmd "test.db" ".print this is a test"
 765 } {0 {this is a test}}
 766
 767 # dot-command argument quoting
 768 do_test shell1-3-30.1 {
 769   catchcmd {test.db} {.print "this\"is'a\055test" 'this\"is\\a\055test'}
 770 } {0 {this"is'a-test this\"is\\a\055test}}
 771 do_test shell1-3-31.1 {
 772   catchcmd {test.db} {.print "this\nis\ta\\test" 'this\nis\ta\\test'}
 773 } [list 0 "this\nis\ta\\test this\\nis\\ta\\\\test"]
 774
 775
 776 # Test the output of the ".dump" command
 777 #
 778 do_test shell1-4.1 {
 779   db close
 780   forcedelete test.db
 781   sqlite3 db test.db
 782   db eval {
 783     PRAGMA encoding=UTF16;
 784     CREATE TABLE t1(x);
 785     INSERT INTO t1 VALUES(null), (''), (1), (2.25), ('hello'), (x'807f');
 786     CREATE TABLE t3(x,y);
 787     INSERT INTO t3 VALUES(1,null), (2,''), (3,1),
 788                          (4,2.25), (5,'hello'), (6,x'807f');
 789   }
 790   catchcmd test.db {.dump}
 791 } {0 {PRAGMA foreign_keys=OFF;
 792 BEGIN TRANSACTION;
 793 CREATE TABLE t1(x);
 794 INSERT INTO t1 VALUES(NULL);
 795 INSERT INTO t1 VALUES('');
 796 INSERT INTO t1 VALUES(1);
 797 INSERT INTO t1 VALUES(2.25);
 798 INSERT INTO t1 VALUES('hello');
 799 INSERT INTO t1 VALUES(X'807f');
 800 CREATE TABLE t3(x,y);
 801 INSERT INTO t3 VALUES(1,NULL);
 802 INSERT INTO t3 VALUES(2,'');
 803 INSERT INTO t3 VALUES(3,1);
 804 INSERT INTO t3 VALUES(4,2.25);
 805 INSERT INTO t3 VALUES(5,'hello');
 806 INSERT INTO t3 VALUES(6,X'807f');
 807 COMMIT;}}
 808
 809
 810 ifcapable vtab {
 811
 812 # The --preserve-rowids option to .dump
 813 #
 814 do_test shell1-4.1.1 {
 815   catchcmd test.db {.dump --preserve-rowids}
 816 } {0 {PRAGMA foreign_keys=OFF;
 817 BEGIN TRANSACTION;
 818 CREATE TABLE t1(x);
 819 INSERT INTO t1(rowid,x) VALUES(1,NULL);
 820 INSERT INTO t1(rowid,x) VALUES(2,'');
 821 INSERT INTO t1(rowid,x) VALUES(3,1);
 822 INSERT INTO t1(rowid,x) VALUES(4,2.25);
 823 INSERT INTO t1(rowid,x) VALUES(5,'hello');
 824 INSERT INTO t1(rowid,x) VALUES(6,X'807f');
 825 CREATE TABLE t3(x,y);
 826 INSERT INTO t3(rowid,x,y) VALUES(1,1,NULL);
 827 INSERT INTO t3(rowid,x,y) VALUES(2,2,'');
 828 INSERT INTO t3(rowid,x,y) VALUES(3,3,1);
 829 INSERT INTO t3(rowid,x,y) VALUES(4,4,2.25);
 830 INSERT INTO t3(rowid,x,y) VALUES(5,5,'hello');
 831 INSERT INTO t3(rowid,x,y) VALUES(6,6,X'807f');
 832 COMMIT;}}
 833
 834 # If the table contains an INTEGER PRIMARY KEY, do not record a separate
 835 # rowid column in the output.
 836 #
 837 do_test shell1-4.1.2 {
 838   db close
 839   forcedelete test2.db
 840   sqlite3 db test2.db
 841   db eval {
 842     CREATE TABLE t1(x INTEGER PRIMARY KEY, y);
 843     INSERT INTO t1 VALUES(1,null), (2,''), (3,1),
 844                          (4,2.25), (5,'hello'), (6,x'807f');
 845   }
 846   catchcmd test2.db {.dump --preserve-rowids}
 847 } {0 {PRAGMA foreign_keys=OFF;
 848 BEGIN TRANSACTION;
 849 CREATE TABLE t1(x INTEGER PRIMARY KEY, y);
 850 INSERT INTO t1 VALUES(1,NULL);
 851 INSERT INTO t1 VALUES(2,'');
 852 INSERT INTO t1 VALUES(3,1);
 853 INSERT INTO t1 VALUES(4,2.25);
 854 INSERT INTO t1 VALUES(5,'hello');
 855 INSERT INTO t1 VALUES(6,X'807f');
 856 COMMIT;}}
 857
 858 # Verify that the table named [table] is correctly quoted and that
 859 # an INTEGER PRIMARY KEY DESC is not an alias for the rowid.
 860 #
 861 do_test shell1-4.1.3 {
 862   db close
 863   forcedelete test2.db
 864   sqlite3 db test2.db
 865   db eval {
 866     CREATE TABLE [table](x INTEGER PRIMARY KEY DESC, y);
 867     INSERT INTO [table] VALUES(1,null), (12,''), (23,1),
 868                          (34,2.25), (45,'hello'), (56,x'807f');
 869   }
 870   catchcmd test2.db {.dump --preserve-rowids}
 871 } {0 {PRAGMA foreign_keys=OFF;
 872 BEGIN TRANSACTION;
 873 CREATE TABLE [table](x INTEGER PRIMARY KEY DESC, y);
 874 INSERT INTO "table"(rowid,x,y) VALUES(1,1,NULL);
 875 INSERT INTO "table"(rowid,x,y) VALUES(2,12,'');
 876 INSERT INTO "table"(rowid,x,y) VALUES(3,23,1);
 877 INSERT INTO "table"(rowid,x,y) VALUES(4,34,2.25);
 878 INSERT INTO "table"(rowid,x,y) VALUES(5,45,'hello');
 879 INSERT INTO "table"(rowid,x,y) VALUES(6,56,X'807f');
 880 COMMIT;}}
 881
 882 # Do not record rowids for a WITHOUT ROWID table.  Also check correct quoting
 883 # of table names that contain odd characters.
 884 #
 885 do_test shell1-4.1.4 {
 886   db close
 887   forcedelete test2.db
 888   sqlite3 db test2.db
 889   db eval {
 890     CREATE TABLE [ta<>ble](x INTEGER PRIMARY KEY, y) WITHOUT ROWID;
 891     INSERT INTO [ta<>ble] VALUES(1,null), (12,''), (23,1),
 892                          (34,2.25), (45,'hello'), (56,x'807f');
 893   }
 894   catchcmd test2.db {.dump --preserve-rowids}
 895 } {0 {PRAGMA foreign_keys=OFF;
 896 BEGIN TRANSACTION;
 897 CREATE TABLE [ta<>ble](x INTEGER PRIMARY KEY, y) WITHOUT ROWID;
 898 INSERT INTO "ta<>ble" VALUES(1,NULL);
 899 INSERT INTO "ta<>ble" VALUES(12,'');
 900 INSERT INTO "ta<>ble" VALUES(23,1);
 901 INSERT INTO "ta<>ble" VALUES(34,2.25);
 902 INSERT INTO "ta<>ble" VALUES(45,'hello');
 903 INSERT INTO "ta<>ble" VALUES(56,X'807f');
 904 COMMIT;}}
 905
 906 # Do not record rowids if the rowid is inaccessible
 907 #
 908 do_test shell1-4.1.5 {
 909   db close
 910   forcedelete test2.db
 911   sqlite3 db test2.db
 912   db eval {
 913     CREATE TABLE t1(_ROWID_,rowid,oid);
 914     INSERT INTO t1 VALUES(1,null,'alpha'), (12,'',99), (23,1,x'b0b1b2');
 915   }
 916   catchcmd test2.db {.dump --preserve-rowids}
 917 } {0 {PRAGMA foreign_keys=OFF;
 918 BEGIN TRANSACTION;
 919 CREATE TABLE t1(_ROWID_,rowid,oid);
 920 INSERT INTO t1 VALUES(1,NULL,'alpha');
 921 INSERT INTO t1 VALUES(12,'',99);
 922 INSERT INTO t1 VALUES(23,1,X'b0b1b2');
 923 COMMIT;}}
 924
 925 } else {
 926
 927 do_test shell1-4.1.6 {
 928   db close
 929   forcedelete test2.db
 930   sqlite3 db test2.db
 931   db eval {
 932     CREATE TABLE t1(x INTEGER PRIMARY KEY, y);
 933     INSERT INTO t1 VALUES(1,null), (2,''), (3,1),
 934                          (4,2.25), (5,'hello'), (6,x'807f');
 935   }
 936   catchcmd test2.db {.dump --preserve-rowids}
 937 } {1 {The --preserve-rowids option is not compatible with SQLITE_OMIT_VIRTUALTABLE}}
 938
 939 }
 940
 941
 942 # Test the output of ".mode insert"
 943 #
 944 do_test shell1-4.2.1 {
 945   catchcmd test.db ".mode insert t1\nselect * from t1;"
 946 } {0 {INSERT INTO t1 VALUES(NULL);
 947 INSERT INTO t1 VALUES('');
 948 INSERT INTO t1 VALUES(1);
 949 INSERT INTO t1 VALUES(2.25);
 950 INSERT INTO t1 VALUES('hello');
 951 INSERT INTO t1 VALUES(X'807f');}}
 952
 953 # Test the output of ".mode insert" with headers
 954 #
 955 do_test shell1-4.2.2 {
 956   catchcmd test.db ".mode insert t1\n.headers on\nselect * from t1;"
 957 } {0 {INSERT INTO t1(x) VALUES(NULL);
 958 INSERT INTO t1(x) VALUES('');
 959 INSERT INTO t1(x) VALUES(1);
 960 INSERT INTO t1(x) VALUES(2.25);
 961 INSERT INTO t1(x) VALUES('hello');
 962 INSERT INTO t1(x) VALUES(X'807f');}}
 963
 964 # Test the output of ".mode insert"
 965 #
 966 do_test shell1-4.2.3 {
 967   catchcmd test.db ".mode insert t3\nselect * from t3;"
 968 } {0 {INSERT INTO t3 VALUES(1,NULL);
 969 INSERT INTO t3 VALUES(2,'');
 970 INSERT INTO t3 VALUES(3,1);
 971 INSERT INTO t3 VALUES(4,2.25);
 972 INSERT INTO t3 VALUES(5,'hello');
 973 INSERT INTO t3 VALUES(6,X'807f');}}
 974
 975 # Test the output of ".mode insert" with headers
 976 #
 977 do_test shell1-4.2.4 {
 978   catchcmd test.db ".mode insert t3\n.headers on\nselect * from t3;"
 979 } {0 {INSERT INTO t3(x,y) VALUES(1,NULL);
 980 INSERT INTO t3(x,y) VALUES(2,'');
 981 INSERT INTO t3(x,y) VALUES(3,1);
 982 INSERT INTO t3(x,y) VALUES(4,2.25);
 983 INSERT INTO t3(x,y) VALUES(5,'hello');
 984 INSERT INTO t3(x,y) VALUES(6,X'807f');}}
 985
 986 # Test the output of ".mode tcl"
 987 #
 988 do_test shell1-4.3 {
 989   db close
 990   forcedelete test.db
 991   sqlite3 db test.db
 992   db eval {
 993     PRAGMA encoding=UTF8;
 994     CREATE TABLE t1(x);
 995     INSERT INTO t1 VALUES(null), (''), (1), (2.25), ('hello'), (x'807f');
 996   }
 997   catchcmd test.db ".mode tcl\nselect * from t1;"
 998 } {0 {""
 999 ""
1000 "1"
1001 "2.25"
1002 "hello"
1003 "\200\177"}}
1004
1005 # Test the output of ".mode tcl" with multiple columns
1006 #
1007 do_test shell1-4.4 {
1008   db eval {
1009     CREATE TABLE t2(x,y);
1010     INSERT INTO t2 VALUES(null, ''), (1, 2.25), ('hello', x'807f');
1011   }
1012   catchcmd test.db ".mode tcl\nselect * from t2;"
1013 } {0 {"" ""
1014 "1" "2.25"
1015 "hello" "\200\177"}}
1016
1017 # Test the output of ".mode tcl" with ".nullvalue"
1018 #
1019 do_test shell1-4.5 {
1020   catchcmd test.db ".mode tcl\n.nullvalue NULL\nselect * from t2;"
1021 } {0 {"NULL" ""
1022 "1" "2.25"
1023 "hello" "\200\177"}}
1024
1025 # Test the output of ".mode tcl" with Tcl reserved characters
1026 #
1027 do_test shell1-4.6 {
1028   db eval {
1029     CREATE TABLE tcl1(x);
1030     INSERT INTO tcl1 VALUES('"'), ('['), (']'), ('\{'), ('\}'), (';'), ('$');
1031   }
1032   foreach {x y} [catchcmd test.db ".mode tcl\nselect * from tcl1;"] break
1033   list $x $y [llength $y]
1034 } {0 {"\""
1035 "["
1036 "]"
1037 "\\{"
1038 "\\}"
1039 ";"
1040 "$"} 7}
1041
1042 # Test the output of ".mode quote"
1043 #
1044 do_test shell1-4.7 {
1045   catchcmd test.db ".mode quote\nselect x'0123456789ABCDEF';"
1046 } {0 X'0123456789abcdef'}
1047
1048 # Test using arbitrary byte data with the shell via standard input/output.
1049 #
1050 do_test shell1-5.0 {
1051   #
1052   # NOTE: Skip NUL byte because it appears to be incompatible with command
1053   #       shell argument parsing.
1054   #
1055   for {set i 1} {$i < 256} {incr i} {
1056     #
1057     # NOTE: Due to how the Tcl [exec] command works (i.e. where it treats
1058     #       command channels opened for it as textual ones), the carriage
1059     #       return character (and on Windows, the end-of-file character)
1060     #       cannot be used here.
1061     #
1062     if {$i==0x0D || ($tcl_platform(platform)=="windows" && $i==0x1A)} {
1063       continue
1064     }
1065     # Tcl 8.7 maps 0x80 through 0x9f into valid UTF8.  So skip those tests.
1066     if {$i>=0x80} {
1067       if {$i<=0x9F || $tcl_version>=9.0} continue
1068       if {$tcl_platform(platform)=="windows"} continue
1069     }
1070     if {$i>=0xE0 && $tcl_platform(os)=="OpenBSD"}  continue
1071     if {$i>=0xE0 && $i<=0xEF && $tcl_platform(os)=="Linux"}  continue
1072     set hex [format %02X $i]
1073     set char [subst \\x$hex]; set oldChar $char
1074     set escapes [list]
1075     if {$tcl_platform(platform)=="windows"} {
1076       #
1077       # NOTE: On Windows, we need to escape all the whitespace characters,
1078       #       the alarm (\a) character, and those with special meaning to
1079       #       the SQLite shell itself.
1080       #
1081       set escapes [list \
1082           \a \\a \b \\b \t \\t \n \\n \v \\v \f \\f \r \\r \
1083           " " "\" \"" \" \\\" \\ \\\\]
1084     } else {
1085       #
1086       # NOTE: On Unix, we need to escape most of the whitespace characters
1087       #       and those with special meaning to the SQLite shell itself.
1088       #       The alarm (\a), backspace (\b), and carriage-return (\r)
1089       #       characters do not appear to require escaping on Unix.  For
1090       #       the alarm and backspace characters, this is probably due to
1091       #       differences in the command shell.  For the carriage-return,
1092       #       it is probably due to differences in how Tcl handles command
1093       #       channel end-of-line translations.
1094       #
1095       set escapes [list \
1096           \t \\t \n \\n \v \\v \f \\f \
1097           " " "\" \"" \" \\\" \\ \\\\]
1098     }
1099     set char [string map $escapes $char]
1100     set x [catchcmdex test.db ".print \"$char\"\n"]
1101     set code [lindex $x 0]
1102     set res [lindex $x 1]
1103     if {$code ne "0"} {
1104       error "failed with error: $res"
1105     }
1106     if {$res ne "$oldChar\n"} {
1107       if {[llength $res] > 0} {
1108         set got [format %02X [scan $res %c]]
1109       } else {
1110         set got <empty>
1111       }
1112       error "failed with byte $hex mismatch, got $got"
1113     }
1114   }
1115 } {}
1116
1117 # These test cases do not work on MinGW
1118 if 0 {
1119
1120 # The string used here is the word "test" in Chinese.
1121 # In UTF-8, it is encoded as: \xE6\xB5\x8B\xE8\xAF\x95
1122 set test \u6D4B\u8BD5
1123
1124 do_test shell1-6.0 {
1125   set fileName $test; append fileName .db
1126   catch {forcedelete $fileName}
1127   set x [catchcmdex $fileName "CREATE TABLE t1(x);\n.schema\n"]
1128   set code [lindex $x 0]
1129   set res [string trim [lindex $x 1]]
1130   if {$code ne "0"} {
1131     error "failed with error: $res"
1132   }
1133   if {$res ne "CREATE TABLE t1(x);"} {
1134     error "failed with mismatch: $res"
1135   }
1136   if {![file exists $fileName]} {
1137     error "file \"$fileName\" (Unicode) does not exist"
1138   }
1139   forcedelete $fileName
1140 } {}
1141
1142 do_test shell1-6.1 {
1143   catch {forcedelete test3.db}
1144   set x [catchcmdex test3.db \
1145       "CREATE TABLE [encoding convertto utf-8 $test](x);\n.schema\n"]
1146   set code [lindex $x 0]
1147   set res [string trim [lindex $x 1]]
1148   if {$code ne "0"} {
1149     error "failed with error: $res"
1150   }
1151   if {$res ne "CREATE TABLE ${test}(x);"} {
1152     error "failed with mismatch: $res"
1153   }
1154   forcedelete test3.db
1155 } {}
1156 }
1157
1158 db close
1159 forcedelete test.db test.db-journal test.db-wal
1160 sqlite3 db test.db
1161
1162 # The shell tool ".schema" command uses virtual table "pragma_database_list"
1163 #
1164 ifcapable vtab {
1165
1166 do_test shell1-7.1.1 {
1167   db eval {
1168     CREATE TABLE Z (x TEXT PRIMARY KEY);
1169     CREATE TABLE _ (x TEXT PRIMARY KEY);
1170     CREATE TABLE YY (x TEXT PRIMARY KEY);
1171     CREATE TABLE __ (x TEXT PRIMARY KEY);
1172     CREATE TABLE WWW (x TEXT PRIMARY KEY);
1173     CREATE TABLE ___ (x TEXT PRIMARY KEY);
1174   }
1175 } {}
1176 do_test shell1-7.1.2 {
1177   catchcmd "test.db" ".schema _"
1178 } {0 {CREATE TABLE Z (x TEXT PRIMARY KEY);
1179 CREATE TABLE _ (x TEXT PRIMARY KEY);}}
1180 do_test shell1-7.1.3 {
1181   catchcmd "test.db" ".schema \"\\\\_\""
1182 } {0 {CREATE TABLE _ (x TEXT PRIMARY KEY);}}
1183 do_test shell1-7.1.4 {
1184   catchcmd "test.db" ".schema __"
1185 } {0 {CREATE TABLE YY (x TEXT PRIMARY KEY);
1186 CREATE TABLE __ (x TEXT PRIMARY KEY);}}
1187 do_test shell1-7.1.5 {
1188   catchcmd "test.db" ".schema \"\\\\_\\\\_\""
1189 } {0 {CREATE TABLE __ (x TEXT PRIMARY KEY);}}
1190 do_test shell1-7.1.6 {
1191   catchcmd "test.db" ".schema ___"
1192 } {0 {CREATE TABLE WWW (x TEXT PRIMARY KEY);
1193 CREATE TABLE ___ (x TEXT PRIMARY KEY);}}
1194 do_test shell1-7.1.7 {
1195   catchcmd "test.db" ".schema \"\\\\_\\\\_\\\\_\""
1196 } {0 {CREATE TABLE ___ (x TEXT PRIMARY KEY);}}
1197
1198 }
1199
1200 # Test case for the ieee754 and decimal extensions in the shell.
1201 # See the "floatingpoint.html" file in the documentation for more
1202 # information.
1203 #
1204 do_test shell1-8.1 {
1205   catchcmd ":memory:" {
1206     -- The pow2 table will hold all the necessary powers of two.
1207     CREATE TABLE pow2(x INTEGER PRIMARY KEY, v TEXT);
1208     WITH RECURSIVE c(x,v) AS (
1209       VALUES(0,'1')
1210       UNION ALL
1211       SELECT x+1, decimal_mul(v,'2') FROM c WHERE x+1<=971
1212     ) INSERT INTO pow2(x,v) SELECT x, v FROM c;
1213     WITH RECURSIVE c(x,v) AS (
1214       VALUES(-1,'0.5')
1215       UNION ALL
1216       SELECT x-1, decimal_mul(v,'0.5') FROM c WHERE x-1>=-1075
1217     ) INSERT INTO pow2(x,v) SELECT x, v FROM c;
1218
1219     -- This query finds the decimal representation of each value in the "c" table.
1220     WITH c(n) AS (VALUES(47.49))
1221                      ----XXXXX----------- Replace with whatever you want
1222     SELECT decimal_mul(ieee754_mantissa(c.n),pow2.v)
1223       FROM pow2, c WHERE pow2.x=ieee754_exponent(c.n);
1224   }
1225 } {0 47.49000000000000198951966012828052043914794921875}
1226 do_test shell1-8.2 {
1227   catchcmd :memory: {
1228 .mode box
1229 SELECT ieee754(47.49) AS x;
1230   }
1231 } {0 {┌───────────────────────────────┐
1232 │               x               │
1233 ├───────────────────────────────┤
1234 │ ieee754(6683623321994527,-47) │
1235 └───────────────────────────────┘}}
1236 do_test shell1-8.3 {
1237   catchcmd ":memory: --box" {
1238     select ieee754(6683623321994527,-47) as x;
1239   }
1240 } {0 {┌───────┐
1241 │   x   │
1242 ├───────┤
1243 │ 47.49 │
1244 └───────┘}}
1245 do_test shell1-8.4 {
1246   catchcmd ":memory: --table" {SELECT ieee754_mantissa(47.49) AS M, ieee754_exponent(47.49) AS E;}
1247 } {0 {+------------------+-----+
1248 |        M         |  E  |
1249 +------------------+-----+
1250 | 6683623321994527 | -47 |
1251 +------------------+-----+}}
1252 do_test shell1-8.5 {
1253   catchcmd ":memory: --box" {
1254 create table t(a text, b int);
1255 insert into t values ('too long for one line', 1), ('shorter', NULL);
1256 .header on
1257 .width 10 10
1258 .nullvalue NADA
1259 select * from t;}
1260 } {0 {┌────────────┬────────────┐
1261 │     a      │     b      │
1262 ├────────────┼────────────┤
1263 │ too long f │ 1          │
1264 │ or one lin │            │
1265 │ e          │            │
1266 ├────────────┼────────────┤
1267 │ shorter    │ NADA       │
1268 └────────────┴────────────┘}}
1269
1270 #----------------------------------------------------------------------------
1271 # Test cases shell1-9.*: Basic test that "dot" commands and SQL intermix ok.
1272 #
1273 do_test shell1-9.1 {
1274   catchcmd :memory: {
1275 .mode csv
1276 /*
1277 x */ select 1,2; --x
1278  -- .nada
1279 ;
1280 .mode csv
1281 --x
1282 select 2,1; select 3,4;
1283 }
1284 } {0 {1,2
1285 2,1
1286 3,4}}
1287
1288 #----------------------------------------------------------------------------
1289 # Test cases shell1-10.*: Test that certain static extensions are there.
1290 #
1291 do_test shell1-10.1 {
1292   catchcmd :memory: {
1293 .mode list
1294 .header off
1295 select base64(base64(cast('digity-doo' as blob))),
1296  base85(base85(cast('digity-doo' as blob)));
1297 }
1298 } {0 digity-doo|digity-doo}
1299
1300 finish_test