/ Hex Artifact Content
Login

Artifact 4fad469e8003938426355afdf34155f08c587836:


0000: 23 20 32 30 30 39 20 44 65 63 20 31 36 0a 23 0a  # 2009 Dec 16.#.
0010: 23 20 54 68 65 20 61 75 74 68 6f 72 20 64 69 73  # The author dis
0020: 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67 68 74  claims copyright
0030: 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63 65 20   to this source 
0040: 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63 65 20  code.  In place 
0050: 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e 6f 74  of.# a legal not
0060: 69 63 65 2c 20 68 65 72 65 20 69 73 20 61 20 62  ice, here is a b
0070: 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20 20 20  lessing:.#.#    
0080: 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f 64 20  May you do good 
0090: 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a 23 20  and not evil..# 
00a0: 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e 64 20     May you find 
00b0: 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f 72 20  forgiveness for 
00c0: 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66 6f 72  yourself and for
00d0: 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23 20 20  give others..#  
00e0: 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72 65 20    May you share 
00f0: 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20 74 61  freely, never ta
0100: 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e 20 79  king more than y
0110: 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a 2a 2a  ou give..#.#****
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 0a 23 0a 23 20 54 68 65 20 66 6f 63 75  ***.#.# The focu
0170: 73 20 6f 66 20 74 68 69 73 20 66 69 6c 65 20 69  s of this file i
0180: 73 20 74 65 73 74 69 6e 67 20 74 68 65 20 43 4c  s testing the CL
0190: 49 20 73 68 65 6c 6c 20 74 6f 6f 6c 2e 0a 23 0a  I shell tool..#.
01a0: 23 20 24 49 64 3a 20 73 68 65 6c 6c 32 2e 74 65  # $Id: shell2.te
01b0: 73 74 2c 76 20 31 2e 37 20 32 30 30 39 2f 30 37  st,v 1.7 2009/07
01c0: 2f 31 37 20 31 36 3a 35 34 3a 34 38 20 73 68 61  /17 16:54:48 sha
01d0: 6e 65 68 20 45 78 70 20 24 0a 23 0a 0a 23 20 54  neh Exp $.#..# T
01e0: 65 73 74 20 70 6c 61 6e 3a 0a 23 0a 23 20 20 20  est plan:.#.#   
01f0: 73 68 65 6c 6c 33 2d 31 2e 2a 3a 20 42 61 73 69  shell3-1.*: Basi
0200: 63 20 74 65 73 74 73 20 66 6f 72 20 72 75 6e 6e  c tests for runn
0210: 69 6e 67 20 53 51 4c 20 73 74 61 74 6d 65 6e 74  ing SQL statment
0220: 73 20 66 72 6f 6d 20 63 6f 6d 6d 61 6e 64 20 6c  s from command l
0230: 69 6e 65 2e 0a 23 20 20 20 73 68 65 6c 6c 33 2d  ine..#   shell3-
0240: 32 2e 2a 3a 20 42 61 73 69 63 20 74 65 73 74 73  2.*: Basic tests
0250: 20 66 6f 72 20 72 75 6e 6e 69 6e 67 20 53 51 4c   for running SQL
0260: 20 66 69 6c 65 20 66 72 6f 6d 20 63 6f 6d 6d 61   file from comma
0270: 6e 64 20 6c 69 6e 65 2e 0a 23 0a 0a 70 61 63 6b  nd line..#..pack
0280: 61 67 65 20 72 65 71 75 69 72 65 20 73 71 6c 69  age require sqli
0290: 74 65 33 0a 0a 73 65 74 20 43 4c 49 20 22 2e 2f  te3..set CLI "./
02a0: 73 71 6c 69 74 65 33 22 0a 0a 70 72 6f 63 20 64  sqlite3"..proc d
02b0: 6f 5f 74 65 73 74 20 7b 6e 61 6d 65 20 63 6d 64  o_test {name cmd
02c0: 20 65 78 70 65 63 74 65 64 7d 20 7b 0a 20 20 70   expected} {.  p
02d0: 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65 20 22  uts -nonewline "
02e0: 24 6e 61 6d 65 20 2e 2e 2e 22 0a 20 20 73 65 74  $name ...".  set
02f0: 20 72 65 73 20 5b 75 70 6c 65 76 65 6c 20 24 63   res [uplevel $c
0300: 6d 64 5d 0a 20 20 69 66 20 7b 24 72 65 73 20 65  md].  if {$res e
0310: 71 20 24 65 78 70 65 63 74 65 64 7d 20 7b 0a 20  q $expected} {. 
0320: 20 20 20 70 75 74 73 20 4f 6b 0a 20 20 7d 20 65     puts Ok.  } e
0330: 6c 73 65 20 7b 0a 20 20 20 20 70 75 74 73 20 45  lse {.    puts E
0340: 72 72 6f 72 0a 20 20 20 20 70 75 74 73 20 22 20  rror.    puts " 
0350: 20 47 6f 74 3a 20 24 72 65 73 22 0a 20 20 20 20   Got: $res".    
0360: 70 75 74 73 20 22 20 20 45 78 70 65 63 74 65 64  puts "  Expected
0370: 3a 20 24 65 78 70 65 63 74 65 64 22 0a 20 20 20  : $expected".   
0380: 20 65 78 69 74 0a 20 20 7d 0a 7d 0a 0a 70 72 6f   exit.  }.}..pro
0390: 63 20 65 78 65 63 73 71 6c 20 7b 73 71 6c 7d 20  c execsql {sql} 
03a0: 7b 0a 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73  {.  uplevel [lis
03b0: 74 20 64 62 20 65 76 61 6c 20 24 73 71 6c 5d 0a  t db eval $sql].
03c0: 7d 0a 0a 70 72 6f 63 20 63 61 74 63 68 73 71 6c  }..proc catchsql
03d0: 20 7b 73 71 6c 7d 20 7b 0a 20 20 73 65 74 20 72   {sql} {.  set r
03e0: 63 20 5b 63 61 74 63 68 20 7b 75 70 6c 65 76 65  c [catch {upleve
03f0: 6c 20 5b 6c 69 73 74 20 64 62 20 65 76 61 6c 20  l [list db eval 
0400: 24 73 71 6c 5d 7d 20 6d 73 67 5d 0a 20 20 6c 69  $sql]} msg].  li
0410: 73 74 20 24 72 63 20 24 6d 73 67 0a 7d 0a 0a 70  st $rc $msg.}..p
0420: 72 6f 63 20 63 61 74 63 68 63 6d 64 20 7b 64 62  roc catchcmd {db
0430: 20 7b 63 6d 64 20 22 22 7d 7d 20 7b 0a 20 20 67   {cmd ""}} {.  g
0440: 6c 6f 62 61 6c 20 43 4c 49 0a 20 20 73 65 74 20  lobal CLI.  set 
0450: 6f 75 74 20 5b 6f 70 65 6e 20 63 6d 64 73 2e 74  out [open cmds.t
0460: 78 74 20 77 5d 0a 20 20 70 75 74 73 20 24 6f 75  xt w].  puts $ou
0470: 74 20 24 63 6d 64 0a 20 20 63 6c 6f 73 65 20 24  t $cmd.  close $
0480: 6f 75 74 0a 20 20 73 65 74 20 6c 69 6e 65 20 22  out.  set line "
0490: 65 78 65 63 20 24 43 4c 49 20 24 64 62 20 3c 20  exec $CLI $db < 
04a0: 63 6d 64 73 2e 74 78 74 22 0a 20 20 73 65 74 20  cmds.txt".  set 
04b0: 72 63 20 5b 63 61 74 63 68 20 7b 20 65 76 61 6c  rc [catch { eval
04c0: 20 24 6c 69 6e 65 20 7d 20 6d 73 67 5d 0a 20 20   $line } msg].  
04d0: 6c 69 73 74 20 24 72 63 20 24 6d 73 67 0a 7d 0a  list $rc $msg.}.
04e0: 0a 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f  .file delete -fo
04f0: 72 63 65 20 74 65 73 74 2e 64 62 20 74 65 73 74  rce test.db test
0500: 2e 64 62 2e 6a 6f 75 72 6e 61 6c 0a 73 71 6c 69  .db.journal.sqli
0510: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a 0a  te3 db test.db..
0520: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
0530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23  --------------.#
0570: 20 20 20 73 68 65 6c 6c 33 2d 31 2e 2a 3a 20 42     shell3-1.*: B
0580: 61 73 69 63 20 74 65 73 74 73 20 66 6f 72 20 72  asic tests for r
0590: 75 6e 6e 69 6e 67 20 53 51 4c 20 73 74 61 74 6d  unning SQL statm
05a0: 65 6e 74 73 20 66 72 6f 6d 20 63 6f 6d 6d 61 6e  ents from comman
05b0: 64 20 6c 69 6e 65 2e 0a 23 0a 0a 23 20 52 75 6e  d line..#..# Run
05c0: 20 53 51 4c 20 73 74 61 74 65 6d 65 6e 74 20 66   SQL statement f
05d0: 72 6f 6d 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e 65  rom command line
05e0: 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 33 2d  .do_test shell3-
05f0: 31 2e 31 20 7b 0a 20 20 66 69 6c 65 20 64 65 6c  1.1 {.  file del
0600: 65 74 65 20 2d 66 6f 72 63 65 20 66 6f 6f 2e 64  ete -force foo.d
0610: 62 0a 20 20 73 65 74 20 72 63 20 5b 20 63 61 74  b.  set rc [ cat
0620: 63 68 63 6d 64 20 22 66 6f 6f 2e 64 62 20 5c 22  chcmd "foo.db \"
0630: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28  CREATE TABLE t1(
0640: 61 29 3b 5c 22 22 20 5d 0a 20 20 73 65 74 20 66  a);\"" ].  set f
0650: 65 78 69 73 74 20 5b 66 69 6c 65 20 65 78 69 73  exist [file exis
0660: 74 20 66 6f 6f 2e 64 62 5d 0a 20 20 6c 69 73 74  t foo.db].  list
0670: 20 24 72 63 20 24 66 65 78 69 73 74 0a 7d 20 7b   $rc $fexist.} {
0680: 7b 30 20 7b 7d 7d 20 31 7d 0a 64 6f 5f 74 65 73  {0 {}} 1}.do_tes
0690: 74 20 73 68 65 6c 6c 33 2d 31 2e 32 20 7b 0a 20  t shell3-1.2 {. 
06a0: 20 63 61 74 63 68 63 6d 64 20 22 66 6f 6f 2e 64   catchcmd "foo.d
06b0: 62 22 20 22 2e 74 61 62 6c 65 73 22 0a 7d 20 7b  b" ".tables".} {
06c0: 30 20 74 31 7d 0a 64 6f 5f 74 65 73 74 20 73 68  0 t1}.do_test sh
06d0: 65 6c 6c 33 2d 31 2e 33 20 7b 0a 20 20 63 61 74  ell3-1.3 {.  cat
06e0: 63 68 63 6d 64 20 22 66 6f 6f 2e 64 62 20 5c 22  chcmd "foo.db \"
06f0: 44 52 4f 50 20 54 41 42 4c 45 20 74 31 3b 5c 22  DROP TABLE t1;\"
0700: 22 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65  ".} {0 {}}.do_te
0710: 73 74 20 73 68 65 6c 6c 33 2d 31 2e 34 20 7b 0a  st shell3-1.4 {.
0720: 20 20 63 61 74 63 68 63 6d 64 20 22 66 6f 6f 2e    catchcmd "foo.
0730: 64 62 22 20 22 2e 74 61 62 6c 65 73 22 0a 7d 20  db" ".tables".} 
0740: 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 73  {0 {}}.do_test s
0750: 68 65 6c 6c 33 2d 31 2e 35 20 7b 0a 20 20 63 61  hell3-1.5 {.  ca
0760: 74 63 68 63 6d 64 20 22 66 6f 6f 2e 64 62 20 5c  tchcmd "foo.db \
0770: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31  "CREATE TABLE t1
0780: 28 61 29 3b 20 44 52 4f 50 20 54 41 42 4c 45 20  (a); DROP TABLE 
0790: 74 31 3b 5c 22 22 0a 7d 20 7b 30 20 7b 7d 7d 0a  t1;\"".} {0 {}}.
07a0: 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 33 2d 31  do_test shell3-1
07b0: 2e 36 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20  .6 {.  catchcmd 
07c0: 22 66 6f 6f 2e 64 62 22 20 22 2e 74 61 62 6c 65  "foo.db" ".table
07d0: 73 22 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74  s".} {0 {}}.do_t
07e0: 65 73 74 20 73 68 65 6c 6c 33 2d 31 2e 37 20 7b  est shell3-1.7 {
07f0: 0a 20 20 63 61 74 63 68 63 6d 64 20 22 66 6f 6f  .  catchcmd "foo
0800: 2e 64 62 20 5c 22 43 52 45 41 54 45 20 54 41 42  .db \"CREATE TAB
0810: 4c 45 5c 22 22 0a 7d 20 7b 31 20 7b 45 72 72 6f  LE\"".} {1 {Erro
0820: 72 3a 20 6e 65 61 72 20 22 54 41 42 4c 45 22 3a  r: near "TABLE":
0830: 20 73 79 6e 74 61 78 20 65 72 72 6f 72 7d 7d 0a   syntax error}}.
0840: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
0850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23  --------------.#
0890: 20 20 20 73 68 65 6c 6c 33 2d 32 2e 2a 3a 20 42     shell3-2.*: B
08a0: 61 73 69 63 20 74 65 73 74 73 20 66 6f 72 20 72  asic tests for r
08b0: 75 6e 6e 69 6e 67 20 53 51 4c 20 66 69 6c 65 20  unning SQL file 
08c0: 66 72 6f 6d 20 63 6f 6d 6d 61 6e 64 20 6c 69 6e  from command lin
08d0: 65 2e 0a 23 0a 0a 23 20 52 75 6e 20 53 51 4c 20  e..#..# Run SQL 
08e0: 66 69 6c 65 20 66 72 6f 6d 20 63 6f 6d 6d 61 6e  file from comman
08f0: 64 20 6c 69 6e 65 0a 64 6f 5f 74 65 73 74 20 73  d line.do_test s
0900: 68 65 6c 6c 33 2d 32 2e 31 20 7b 0a 20 20 66 69  hell3-2.1 {.  fi
0910: 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63 65  le delete -force
0920: 20 66 6f 6f 2e 64 62 0a 20 20 73 65 74 20 72 63   foo.db.  set rc
0930: 20 5b 20 63 61 74 63 68 63 6d 64 20 22 66 6f 6f   [ catchcmd "foo
0940: 2e 64 62 22 20 22 43 52 45 41 54 45 20 54 41 42  .db" "CREATE TAB
0950: 4c 45 20 74 31 28 61 29 3b 22 20 5d 0a 20 20 73  LE t1(a);" ].  s
0960: 65 74 20 66 65 78 69 73 74 20 5b 66 69 6c 65 20  et fexist [file 
0970: 65 78 69 73 74 20 66 6f 6f 2e 64 62 5d 0a 20 20  exist foo.db].  
0980: 6c 69 73 74 20 24 72 63 20 24 66 65 78 69 73 74  list $rc $fexist
0990: 0a 7d 20 7b 7b 30 20 7b 7d 7d 20 31 7d 0a 64 6f  .} {{0 {}} 1}.do
09a0: 5f 74 65 73 74 20 73 68 65 6c 6c 33 2d 32 2e 32  _test shell3-2.2
09b0: 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20 22 66   {.  catchcmd "f
09c0: 6f 6f 2e 64 62 22 20 22 2e 74 61 62 6c 65 73 22  oo.db" ".tables"
09d0: 0a 7d 20 7b 30 20 74 31 7d 0a 64 6f 5f 74 65 73  .} {0 t1}.do_tes
09e0: 74 20 73 68 65 6c 6c 33 2d 32 2e 33 20 7b 0a 20  t shell3-2.3 {. 
09f0: 20 63 61 74 63 68 63 6d 64 20 22 66 6f 6f 2e 64   catchcmd "foo.d
0a00: 62 22 20 22 44 52 4f 50 20 54 41 42 4c 45 20 74  b" "DROP TABLE t
0a10: 31 3b 22 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f  1;".} {0 {}}.do_
0a20: 74 65 73 74 20 73 68 65 6c 6c 33 2d 32 2e 34 20  test shell3-2.4 
0a30: 7b 0a 20 20 63 61 74 63 68 63 6d 64 20 22 66 6f  {.  catchcmd "fo
0a40: 6f 2e 64 62 22 20 22 2e 74 61 62 6c 65 73 22 0a  o.db" ".tables".
0a50: 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74  } {0 {}}.do_test
0a60: 20 73 68 65 6c 6c 33 2d 32 2e 35 20 7b 0a 20 20   shell3-2.5 {.  
0a70: 63 61 74 63 68 63 6d 64 20 22 66 6f 6f 2e 64 62  catchcmd "foo.db
0a80: 22 20 22 43 52 45 41 54 45 20 54 41 42 4c 45 20  " "CREATE TABLE 
0a90: 74 31 28 61 29 3b 20 44 52 4f 50 20 54 41 42 4c  t1(a); DROP TABL
0aa0: 45 20 74 31 3b 22 0a 7d 20 7b 30 20 7b 7d 7d 0a  E t1;".} {0 {}}.
0ab0: 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 33 2d 32  do_test shell3-2
0ac0: 2e 36 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20  .6 {.  catchcmd 
0ad0: 22 66 6f 6f 2e 64 62 22 20 22 2e 74 61 62 6c 65  "foo.db" ".table
0ae0: 73 22 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74  s".} {0 {}}.do_t
0af0: 65 73 74 20 73 68 65 6c 6c 33 2d 32 2e 37 20 7b  est shell3-2.7 {
0b00: 0a 20 20 63 61 74 63 68 63 6d 64 20 22 66 6f 6f  .  catchcmd "foo
0b10: 2e 64 62 22 20 22 43 52 45 41 54 45 20 54 41 42  .db" "CREATE TAB
0b20: 4c 45 22 0a 7d 20 7b 31 20 7b 45 72 72 6f 72 3a  LE".} {1 {Error:
0b30: 20 69 6e 63 6f 6d 70 6c 65 74 65 20 53 51 4c 3a   incomplete SQL:
0b40: 20 43 52 45 41 54 45 20 54 41 42 4c 45 7d 7d 0a   CREATE TABLE}}.
0b50: 0a 0a 70 75 74 73 20 22 43 4c 49 20 74 65 73 74  ..puts "CLI test
0b60: 73 20 63 6f 6d 70 6c 65 74 65 64 20 73 75 63 63  s completed succ
0b70: 65 73 73 66 75 6c 6c 79 22 0a                    essfully".