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