/ Hex Artifact Content
Login

Artifact bfa21ecc173adcbc15db2c075baa468778f67f88:


0000: 23 20 32 30 31 30 20 41 75 67 75 73 74 20 34 0a  # 2010 August 4.
0010: 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72 20 64  #.# The author d
0020: 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72 69 67  isclaims copyrig
0030: 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75 72 63  ht to this sourc
0040: 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c 61 63  e code.  In plac
0050: 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c 20 6e  e of.# a legal n
0060: 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73 20 61  otice, here is a
0070: 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23 20 20   blessing:.#.#  
0080: 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67 6f 6f    May you do goo
0090: 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c 2e 0a  d and not evil..
00a0: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66 69 6e  #    May you fin
00b0: 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20 66 6f  d forgiveness fo
00c0: 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64 20 66  r yourself and f
00d0: 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e 0a 23  orgive others..#
00e0: 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68 61 72      May you shar
00f0: 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65 72 20  e freely, never 
0100: 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68 61 6e  taking more than
0110: 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23 2a 2a   you 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 2a 2a 0a 23 0a 23 20 54 68 65 20 66 6f  *****.#.# The fo
0170: 63 75 73 20 6f 66 20 74 68 69 73 20 66 69 6c 65  cus of this file
0180: 20 69 73 20 74 65 73 74 69 6e 67 20 74 68 65 20   is testing the 
0190: 43 4c 49 20 73 68 65 6c 6c 20 74 6f 6f 6c 2e 0a  CLI shell tool..
01a0: 23 20 54 68 65 73 65 20 74 65 73 74 73 20 61 72  # These tests ar
01b0: 65 20 73 70 65 63 69 66 69 63 20 74 6f 20 74 68  e specific to th
01c0: 65 20 2e 69 6d 70 6f 72 74 20 63 6f 6d 6d 61 6e  e .import comman
01d0: 64 2e 0a 23 0a 23 20 24 49 64 3a 20 73 68 65 6c  d..#.# $Id: shel
01e0: 6c 35 2e 74 65 73 74 2c 76 20 31 2e 37 20 32 30  l5.test,v 1.7 20
01f0: 30 39 2f 30 37 2f 31 37 20 31 36 3a 35 34 3a 34  09/07/17 16:54:4
0200: 38 20 73 68 61 6e 65 68 20 45 78 70 20 24 0a 23  8 shaneh Exp $.#
0210: 0a 0a 23 20 54 65 73 74 20 70 6c 61 6e 3a 0a 23  ..# Test plan:.#
0220: 0a 23 20 20 20 73 68 65 6c 6c 35 2d 31 2e 2a 3a  .#   shell5-1.*:
0230: 20 42 61 73 69 63 20 74 65 73 74 73 20 73 70 65   Basic tests spe
0240: 63 69 66 69 63 20 74 6f 20 74 68 65 20 22 2e 69  cific to the ".i
0250: 6d 70 6f 72 74 22 20 63 6f 6d 6d 61 6e 64 2e 0a  mport" command..
0260: 23 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66  #.set testdir [f
0270: 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67  ile dirname $arg
0280: 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74  v0].source $test
0290: 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 69  dir/tester.tcl.i
02a0: 66 20 7b 24 74 63 6c 5f 70 6c 61 74 66 6f 72 6d  f {$tcl_platform
02b0: 28 70 6c 61 74 66 6f 72 6d 29 3d 3d 22 77 69 6e  (platform)=="win
02c0: 64 6f 77 73 22 7d 20 7b 0a 20 20 73 65 74 20 43  dows"} {.  set C
02d0: 4c 49 20 22 73 71 6c 69 74 65 33 2e 65 78 65 22  LI "sqlite3.exe"
02e0: 0a 7d 20 65 6c 73 65 20 7b 0a 20 20 73 65 74 20  .} else {.  set 
02f0: 43 4c 49 20 22 2e 2f 73 71 6c 69 74 65 33 22 0a  CLI "./sqlite3".
0300: 7d 0a 69 66 20 7b 21 5b 66 69 6c 65 20 65 78 65  }.if {![file exe
0310: 63 75 74 61 62 6c 65 20 24 43 4c 49 5d 7d 20 7b  cutable $CLI]} {
0320: 0a 20 20 66 69 6e 69 73 68 5f 74 65 73 74 0a 20  .  finish_test. 
0330: 20 72 65 74 75 72 6e 0a 7d 0a 64 62 20 63 6c 6f   return.}.db clo
0340: 73 65 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 74  se.forcedelete t
0350: 65 73 74 2e 64 62 20 74 65 73 74 2e 64 62 2d 6a  est.db test.db-j
0360: 6f 75 72 6e 61 6c 20 74 65 73 74 2e 64 62 2d 77  ournal test.db-w
0370: 61 6c 0a 73 71 6c 69 74 65 33 20 64 62 20 74 65  al.sqlite3 db te
0380: 73 74 2e 64 62 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d  st.db..#--------
0390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
03d0: 2d 2d 2d 2d 0a 23 20 54 65 73 74 20 63 61 73 65  ----.# Test case
03e0: 73 20 73 68 65 6c 6c 35 2d 31 2e 2a 3a 20 42 61  s shell5-1.*: Ba
03f0: 73 69 63 20 68 61 6e 64 6c 69 6e 67 20 6f 66 20  sic handling of 
0400: 74 68 65 20 2e 69 6d 70 6f 72 74 20 61 6e 64 20  the .import and 
0410: 2e 73 65 70 61 72 61 74 6f 72 20 63 6f 6d 6d 61  .separator comma
0420: 6e 64 73 2e 0a 23 0a 0a 23 20 2e 69 6d 70 6f 72  nds..#..# .impor
0430: 74 20 46 49 4c 45 20 54 41 42 4c 45 20 20 20 20  t FILE TABLE    
0440: 20 49 6d 70 6f 72 74 20 64 61 74 61 20 66 72 6f   Import data fro
0450: 6d 20 46 49 4c 45 20 69 6e 74 6f 20 54 41 42 4c  m FILE into TABL
0460: 45 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35  E.do_test shell5
0470: 2d 31 2e 31 2e 31 20 7b 0a 20 20 63 61 74 63 68  -1.1.1 {.  catch
0480: 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 22 2e  cmd "test.db" ".
0490: 69 6d 70 6f 72 74 22 0a 7d 20 7b 31 20 7b 45 72  import".} {1 {Er
04a0: 72 6f 72 3a 20 75 6e 6b 6e 6f 77 6e 20 63 6f 6d  ror: unknown com
04b0: 6d 61 6e 64 20 6f 72 20 69 6e 76 61 6c 69 64 20  mand or invalid 
04c0: 61 72 67 75 6d 65 6e 74 73 3a 20 20 22 69 6d 70  arguments:  "imp
04d0: 6f 72 74 22 2e 20 45 6e 74 65 72 20 22 2e 68 65  ort". Enter ".he
04e0: 6c 70 22 20 66 6f 72 20 68 65 6c 70 7d 7d 0a 64  lp" for help}}.d
04f0: 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e  o_test shell5-1.
0500: 31 2e 32 20 7b 0a 20 20 63 61 74 63 68 63 6d 64  1.2 {.  catchcmd
0510: 20 22 74 65 73 74 2e 64 62 22 20 22 2e 69 6d 70   "test.db" ".imp
0520: 6f 72 74 20 46 4f 4f 22 0a 7d 20 7b 31 20 7b 45  ort FOO".} {1 {E
0530: 72 72 6f 72 3a 20 75 6e 6b 6e 6f 77 6e 20 63 6f  rror: unknown co
0540: 6d 6d 61 6e 64 20 6f 72 20 69 6e 76 61 6c 69 64  mmand or invalid
0550: 20 61 72 67 75 6d 65 6e 74 73 3a 20 20 22 69 6d   arguments:  "im
0560: 70 6f 72 74 22 2e 20 45 6e 74 65 72 20 22 2e 68  port". Enter ".h
0570: 65 6c 70 22 20 66 6f 72 20 68 65 6c 70 7d 7d 0a  elp" for help}}.
0580: 23 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d  #do_test shell5-
0590: 31 2e 31 2e 32 20 7b 0a 23 20 20 63 61 74 63 68  1.1.2 {.#  catch
05a0: 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 22 2e  cmd "test.db" ".
05b0: 69 6d 70 6f 72 74 20 46 4f 4f 20 42 41 52 22 0a  import FOO BAR".
05c0: 23 7d 20 7b 31 20 7b 45 72 72 6f 72 3a 20 6e 6f  #} {1 {Error: no
05d0: 20 73 75 63 68 20 74 61 62 6c 65 3a 20 42 41 52   such table: BAR
05e0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c  }}.do_test shell
05f0: 35 2d 31 2e 31 2e 33 20 7b 0a 20 20 23 20 74 6f  5-1.1.3 {.  # to
0600: 6f 20 6d 61 6e 79 20 61 72 67 75 6d 65 6e 74 73  o many arguments
0610: 0a 20 20 63 61 74 63 68 63 6d 64 20 22 74 65 73  .  catchcmd "tes
0620: 74 2e 64 62 22 20 22 2e 69 6d 70 6f 72 74 20 46  t.db" ".import F
0630: 4f 4f 20 42 41 52 20 42 41 44 22 0a 7d 20 7b 31  OO BAR BAD".} {1
0640: 20 7b 45 72 72 6f 72 3a 20 75 6e 6b 6e 6f 77 6e   {Error: unknown
0650: 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 69 6e 76 61   command or inva
0660: 6c 69 64 20 61 72 67 75 6d 65 6e 74 73 3a 20 20  lid arguments:  
0670: 22 69 6d 70 6f 72 74 22 2e 20 45 6e 74 65 72 20  "import". Enter 
0680: 22 2e 68 65 6c 70 22 20 66 6f 72 20 68 65 6c 70  ".help" for help
0690: 7d 7d 0a 0a 23 20 2e 73 65 70 61 72 61 74 6f 72  }}..# .separator
06a0: 20 53 54 52 49 4e 47 20 20 20 20 20 20 43 68 61   STRING      Cha
06b0: 6e 67 65 20 73 65 70 61 72 61 74 6f 72 20 75 73  nge separator us
06c0: 65 64 20 62 79 20 6f 75 74 70 75 74 20 6d 6f 64  ed by output mod
06d0: 65 20 61 6e 64 20 2e 69 6d 70 6f 72 74 0a 64 6f  e and .import.do
06e0: 5f 74 65 73 74 20 73 68 65 6c 6c 31 2d 31 2e 32  _test shell1-1.2
06f0: 2e 31 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20  .1 {.  catchcmd 
0700: 22 74 65 73 74 2e 64 62 22 20 22 2e 73 65 70 61  "test.db" ".sepa
0710: 72 61 74 6f 72 22 0a 7d 20 7b 31 20 7b 45 72 72  rator".} {1 {Err
0720: 6f 72 3a 20 75 6e 6b 6e 6f 77 6e 20 63 6f 6d 6d  or: unknown comm
0730: 61 6e 64 20 6f 72 20 69 6e 76 61 6c 69 64 20 61  and or invalid a
0740: 72 67 75 6d 65 6e 74 73 3a 20 20 22 73 65 70 61  rguments:  "sepa
0750: 72 61 74 6f 72 22 2e 20 45 6e 74 65 72 20 22 2e  rator". Enter ".
0760: 68 65 6c 70 22 20 66 6f 72 20 68 65 6c 70 7d 7d  help" for help}}
0770: 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 31 2d  .do_test shell1-
0780: 31 2e 32 2e 32 20 7b 0a 20 20 63 61 74 63 68 63  1.2.2 {.  catchc
0790: 6d 64 20 22 74 65 73 74 2e 64 62 22 20 22 2e 73  md "test.db" ".s
07a0: 65 70 61 72 61 74 6f 72 20 46 4f 4f 22 0a 7d 20  eparator FOO".} 
07b0: 7b 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 73  {0 {}}.do_test s
07c0: 68 65 6c 6c 31 2d 31 2e 32 2e 33 20 7b 0a 20 20  hell1-1.2.3 {.  
07d0: 23 20 74 6f 6f 20 6d 61 6e 79 20 61 72 67 75 6d  # too many argum
07e0: 65 6e 74 73 0a 20 20 63 61 74 63 68 63 6d 64 20  ents.  catchcmd 
07f0: 22 74 65 73 74 2e 64 62 22 20 22 2e 73 65 70 61  "test.db" ".sepa
0800: 72 61 74 6f 72 20 46 4f 4f 20 42 41 44 22 0a 7d  rator FOO BAD".}
0810: 20 7b 31 20 7b 45 72 72 6f 72 3a 20 75 6e 6b 6e   {1 {Error: unkn
0820: 6f 77 6e 20 63 6f 6d 6d 61 6e 64 20 6f 72 20 69  own command or i
0830: 6e 76 61 6c 69 64 20 61 72 67 75 6d 65 6e 74 73  nvalid arguments
0840: 3a 20 20 22 73 65 70 61 72 61 74 6f 72 22 2e 20  :  "separator". 
0850: 45 6e 74 65 72 20 22 2e 68 65 6c 70 22 20 66 6f  Enter ".help" fo
0860: 72 20 68 65 6c 70 7d 7d 0a 0a 23 20 73 65 70 61  r help}}..# sepa
0870: 72 61 74 6f 72 20 73 68 6f 75 6c 64 20 64 65 66  rator should def
0880: 61 75 6c 74 20 74 6f 20 22 7c 22 0a 64 6f 5f 74  ault to "|".do_t
0890: 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 33 2e 31  est shell5-1.3.1
08a0: 20 7b 0a 20 20 73 65 74 20 72 65 73 20 5b 63 61   {.  set res [ca
08b0: 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22  tchcmd "test.db"
08c0: 20 22 2e 73 68 6f 77 22 5d 0a 20 20 6c 69 73 74   ".show"].  list
08d0: 20 5b 72 65 67 65 78 70 20 7b 73 65 70 61 72 61   [regexp {separa
08e0: 74 6f 72 3a 20 5c 22 5c 7c 5c 22 7d 20 24 72 65  tor: \"\|\"} $re
08f0: 73 5d 0a 7d 20 7b 31 7d 0a 0a 23 20 73 65 74 20  s].} {1}..# set 
0900: 73 65 70 61 72 61 74 6f 72 20 74 6f 20 64 69 66  separator to dif
0910: 66 65 72 65 6e 74 20 76 61 6c 75 65 2e 0a 23 20  ferent value..# 
0920: 63 68 65 63 6b 20 74 68 61 74 20 2e 73 68 6f 77  check that .show
0930: 20 72 65 70 6f 72 74 73 20 6e 65 77 20 76 61 6c   reports new val
0940: 75 65 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c  ue.do_test shell
0950: 35 2d 31 2e 33 2e 32 20 7b 0a 20 20 73 65 74 20  5-1.3.2 {.  set 
0960: 72 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74  res [catchcmd "t
0970: 65 73 74 2e 64 62 22 20 7b 2e 73 65 70 61 72 61  est.db" {.separa
0980: 74 6f 72 20 2c 0a 2e 73 68 6f 77 7d 5d 0a 20 20  tor ,..show}].  
0990: 6c 69 73 74 20 5b 72 65 67 65 78 70 20 7b 73 65  list [regexp {se
09a0: 70 61 72 61 74 6f 72 3a 20 5c 22 2c 5c 22 7d 20  parator: \",\"} 
09b0: 24 72 65 73 5d 0a 7d 20 7b 31 7d 0a 0a 23 20 69  $res].} {1}..# i
09c0: 6d 70 6f 72 74 20 66 69 6c 65 20 64 6f 65 73 6e  mport file doesn
09d0: 27 74 20 65 78 69 73 74 0a 64 6f 5f 74 65 73 74  't exist.do_test
09e0: 20 73 68 65 6c 6c 35 2d 31 2e 34 2e 31 20 7b 0a   shell5-1.4.1 {.
09f0: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66    file delete -f
0a00: 6f 72 63 65 20 46 4f 4f 0a 20 20 73 65 74 20 72  orce FOO.  set r
0a10: 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74 65  es [catchcmd "te
0a20: 73 74 2e 64 62 22 20 7b 43 52 45 41 54 45 20 54  st.db" {CREATE T
0a30: 41 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 2e  ABLE t1(a, b);..
0a40: 69 6d 70 6f 72 74 20 46 4f 4f 20 74 31 7d 5d 0a  import FOO t1}].
0a50: 7d 20 7b 31 20 7b 45 72 72 6f 72 3a 20 63 61 6e  } {1 {Error: can
0a60: 6e 6f 74 20 6f 70 65 6e 20 22 46 4f 4f 22 7d 7d  not open "FOO"}}
0a70: 0a 0a 23 20 65 6d 70 74 79 20 69 6d 70 6f 72 74  ..# empty import
0a80: 20 66 69 6c 65 0a 64 6f 5f 74 65 73 74 20 73 68   file.do_test sh
0a90: 65 6c 6c 35 2d 31 2e 34 2e 32 20 7b 0a 20 20 66  ell5-1.4.2 {.  f
0aa0: 69 6c 65 20 64 65 6c 65 74 65 20 2d 66 6f 72 63  ile delete -forc
0ab0: 65 20 73 68 65 6c 6c 35 2e 63 73 76 0a 20 20 73  e shell5.csv.  s
0ac0: 65 74 20 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c  et in [open shel
0ad0: 6c 35 2e 63 73 76 20 77 5d 0a 20 20 63 6c 6f 73  l5.csv w].  clos
0ae0: 65 20 24 69 6e 0a 20 20 73 65 74 20 72 65 73 20  e $in.  set res 
0af0: 5b 63 61 74 63 68 63 6d 64 20 22 74 65 73 74 2e  [catchcmd "test.
0b00: 64 62 22 20 7b 2e 69 6d 70 6f 72 74 20 73 68 65  db" {.import she
0b10: 6c 6c 35 2e 63 73 76 20 74 31 0a 53 45 4c 45 43  ll5.csv t1.SELEC
0b20: 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20  T COUNT(*) FROM 
0b30: 74 31 3b 7d 5d 0a 7d 20 7b 30 20 30 7d 0a 0a 23  t1;}].} {0 0}..#
0b40: 20 69 6d 70 6f 72 74 20 66 69 6c 65 20 77 69 74   import file wit
0b50: 68 20 31 20 72 6f 77 2c 20 31 20 63 6f 6c 75 6d  h 1 row, 1 colum
0b60: 6e 20 28 65 78 70 65 63 74 69 6e 67 20 32 20 63  n (expecting 2 c
0b70: 6f 6c 73 29 0a 64 6f 5f 74 65 73 74 20 73 68 65  ols).do_test she
0b80: 6c 6c 35 2d 31 2e 34 2e 33 20 7b 0a 20 20 73 65  ll5-1.4.3 {.  se
0b90: 74 20 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c 6c  t in [open shell
0ba0: 35 2e 63 73 76 20 77 5d 0a 20 20 70 75 74 73 20  5.csv w].  puts 
0bb0: 24 69 6e 20 22 31 22 0a 20 20 63 6c 6f 73 65 20  $in "1".  close 
0bc0: 24 69 6e 0a 20 20 73 65 74 20 72 65 73 20 5b 63  $in.  set res [c
0bd0: 61 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62  atchcmd "test.db
0be0: 22 20 7b 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c  " {.import shell
0bf0: 35 2e 63 73 76 20 74 31 7d 5d 0a 7d 20 7b 31 20  5.csv t1}].} {1 
0c00: 7b 73 68 65 6c 6c 35 2e 63 73 76 3a 31 3a 20 65  {shell5.csv:1: e
0c10: 78 70 65 63 74 65 64 20 32 20 63 6f 6c 75 6d 6e  xpected 2 column
0c20: 73 20 62 75 74 20 66 6f 75 6e 64 20 31 20 2d 20  s but found 1 - 
0c30: 66 69 6c 6c 69 6e 67 20 74 68 65 20 72 65 73 74  filling the rest
0c40: 20 77 69 74 68 20 4e 55 4c 4c 7d 7d 0a 0a 23 20   with NULL}}..# 
0c50: 69 6d 70 6f 72 74 20 66 69 6c 65 20 77 69 74 68  import file with
0c60: 20 31 20 72 6f 77 2c 20 33 20 63 6f 6c 75 6d 6e   1 row, 3 column
0c70: 73 20 28 65 78 70 65 63 74 69 6e 67 20 32 20 63  s (expecting 2 c
0c80: 6f 6c 73 29 0a 64 6f 5f 74 65 73 74 20 73 68 65  ols).do_test she
0c90: 6c 6c 35 2d 31 2e 34 2e 34 20 7b 0a 20 20 73 65  ll5-1.4.4 {.  se
0ca0: 74 20 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c 6c  t in [open shell
0cb0: 35 2e 63 73 76 20 77 5d 0a 20 20 70 75 74 73 20  5.csv w].  puts 
0cc0: 24 69 6e 20 22 31 7c 32 7c 33 22 0a 20 20 63 6c  $in "1|2|3".  cl
0cd0: 6f 73 65 20 24 69 6e 0a 20 20 73 65 74 20 72 65  ose $in.  set re
0ce0: 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74 65 73  s [catchcmd "tes
0cf0: 74 2e 64 62 22 20 7b 2e 69 6d 70 6f 72 74 20 73  t.db" {.import s
0d00: 68 65 6c 6c 35 2e 63 73 76 20 74 31 7d 5d 0a 7d  hell5.csv t1}].}
0d10: 20 7b 31 20 7b 73 68 65 6c 6c 35 2e 63 73 76 3a   {1 {shell5.csv:
0d20: 31 3a 20 65 78 70 65 63 74 65 64 20 32 20 63 6f  1: expected 2 co
0d30: 6c 75 6d 6e 73 20 62 75 74 20 66 6f 75 6e 64 20  lumns but found 
0d40: 33 20 2d 20 65 78 74 72 61 73 20 69 67 6e 6f 72  3 - extras ignor
0d50: 65 64 7d 7d 0a 0a 23 20 69 6d 70 6f 72 74 20 66  ed}}..# import f
0d60: 69 6c 65 20 77 69 74 68 20 31 20 72 6f 77 2c 20  ile with 1 row, 
0d70: 32 20 63 6f 6c 75 6d 6e 73 0a 64 6f 5f 74 65 73  2 columns.do_tes
0d80: 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e 35 20 7b  t shell5-1.4.5 {
0d90: 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20  .  set in [open 
0da0: 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a 20 20  shell5.csv w].  
0db0: 70 75 74 73 20 24 69 6e 20 22 31 7c 32 22 0a 20  puts $in "1|2". 
0dc0: 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73 65 74   close $in.  set
0dd0: 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22   res [catchcmd "
0de0: 74 65 73 74 2e 64 62 22 20 7b 44 45 4c 45 54 45  test.db" {DELETE
0df0: 20 46 52 4f 4d 20 74 31 3b 0a 2e 69 6d 70 6f 72   FROM t1;..impor
0e00: 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 31 0a  t shell5.csv t1.
0e10: 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20  SELECT COUNT(*) 
0e20: 46 52 4f 4d 20 74 31 3b 7d 5d 0a 7d 20 7b 30 20  FROM t1;}].} {0 
0e30: 31 7d 0a 0a 23 20 69 6d 70 6f 72 74 20 66 69 6c  1}..# import fil
0e40: 65 20 77 69 74 68 20 32 20 72 6f 77 73 2c 20 32  e with 2 rows, 2
0e50: 20 63 6f 6c 75 6d 6e 73 0a 23 20 6e 6f 74 65 20   columns.# note 
0e60: 77 65 20 65 6e 64 20 75 70 20 77 69 74 68 20 33  we end up with 3
0e70: 20 72 6f 77 73 20 62 65 63 61 75 73 65 20 6f 66   rows because of
0e80: 20 74 68 65 20 31 20 72 6f 77 20 0a 23 20 69 6d   the 1 row .# im
0e90: 70 6f 72 74 65 64 20 61 62 6f 76 65 2e 0a 64 6f  ported above..do
0ea0: 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 34  _test shell5-1.4
0eb0: 2e 36 20 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f  .6 {.  set in [o
0ec0: 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77  pen shell5.csv w
0ed0: 5d 0a 20 20 70 75 74 73 20 24 69 6e 20 22 32 7c  ].  puts $in "2|
0ee0: 33 22 0a 20 20 70 75 74 73 20 24 69 6e 20 22 33  3".  puts $in "3
0ef0: 7c 34 22 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a  |4".  close $in.
0f00: 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63 68    set res [catch
0f10: 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 7b 2e  cmd "test.db" {.
0f20: 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73  import shell5.cs
0f30: 76 20 74 31 0a 53 45 4c 45 43 54 20 43 4f 55 4e  v t1.SELECT COUN
0f40: 54 28 2a 29 20 46 52 4f 4d 20 74 31 3b 7d 5d 0a  T(*) FROM t1;}].
0f50: 7d 20 7b 30 20 33 7d 0a 0a 23 20 69 6d 70 6f 72  } {0 3}..# impor
0f60: 74 20 66 69 6c 65 20 77 69 74 68 20 31 20 72 6f  t file with 1 ro
0f70: 77 2c 20 32 20 63 6f 6c 75 6d 6e 73 2c 20 75 73  w, 2 columns, us
0f80: 69 6e 67 20 61 20 63 6f 6d 6d 61 0a 64 6f 5f 74  ing a comma.do_t
0f90: 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e 37  est shell5-1.4.7
0fa0: 20 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70 65   {.  set in [ope
0fb0: 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a  n shell5.csv w].
0fc0: 20 20 70 75 74 73 20 24 69 6e 20 22 34 2c 35 22    puts $in "4,5"
0fd0: 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73  .  close $in.  s
0fe0: 65 74 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64  et res [catchcmd
0ff0: 20 22 74 65 73 74 2e 64 62 22 20 7b 2e 73 65 70   "test.db" {.sep
1000: 61 72 61 74 6f 72 20 2c 0a 2e 69 6d 70 6f 72 74  arator ,..import
1010: 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 31 0a 53   shell5.csv t1.S
1020: 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46  ELECT COUNT(*) F
1030: 52 4f 4d 20 74 31 3b 7d 5d 0a 7d 20 7b 30 20 34  ROM t1;}].} {0 4
1040: 7d 0a 0a 23 20 69 6d 70 6f 72 74 20 66 69 6c 65  }..# import file
1050: 20 77 69 74 68 20 31 20 72 6f 77 2c 20 32 20 63   with 1 row, 2 c
1060: 6f 6c 75 6d 6e 73 2c 20 74 65 78 74 20 64 61 74  olumns, text dat
1070: 61 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35  a.do_test shell5
1080: 2d 31 2e 34 2e 38 2e 31 20 7b 0a 20 20 73 65 74  -1.4.8.1 {.  set
1090: 20 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35   in [open shell5
10a0: 2e 63 73 76 20 77 5d 0a 20 20 70 75 74 73 20 24  .csv w].  puts $
10b0: 69 6e 20 22 35 7c 4e 6f 77 20 69 73 20 74 68 65  in "5|Now is the
10c0: 20 74 69 6d 65 20 66 6f 72 20 61 6c 6c 20 67 6f   time for all go
10d0: 6f 64 20 6d 65 6e 20 74 6f 20 63 6f 6d 65 20 74  od men to come t
10e0: 6f 20 74 68 65 20 61 69 64 20 6f 66 20 74 68 65  o the aid of the
10f0: 69 72 20 63 6f 75 6e 74 72 79 2e 22 0a 20 20 63  ir country.".  c
1100: 6c 6f 73 65 20 24 69 6e 0a 20 20 73 65 74 20 72  lose $in.  set r
1110: 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74 65  es [catchcmd "te
1120: 73 74 2e 64 62 22 20 7b 2e 69 6d 70 6f 72 74 20  st.db" {.import 
1130: 73 68 65 6c 6c 35 2e 63 73 76 20 74 31 0a 53 45  shell5.csv t1.SE
1140: 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52  LECT COUNT(*) FR
1150: 4f 4d 20 74 31 3b 7d 5d 0a 7d 20 7b 30 20 35 7d  OM t1;}].} {0 5}
1160: 0a 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35  ..do_test shell5
1170: 2d 31 2e 34 2e 38 2e 32 20 7b 0a 20 20 63 61 74  -1.4.8.2 {.  cat
1180: 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20  chcmd "test.db" 
1190: 7b 53 45 4c 45 43 54 20 62 20 46 52 4f 4d 20 74  {SELECT b FROM t
11a0: 31 20 57 48 45 52 45 20 61 3d 27 35 27 3b 7d 0a  1 WHERE a='5';}.
11b0: 7d 20 7b 30 20 7b 4e 6f 77 20 69 73 20 74 68 65  } {0 {Now is the
11c0: 20 74 69 6d 65 20 66 6f 72 20 61 6c 6c 20 67 6f   time for all go
11d0: 6f 64 20 6d 65 6e 20 74 6f 20 63 6f 6d 65 20 74  od men to come t
11e0: 6f 20 74 68 65 20 61 69 64 20 6f 66 20 74 68 65  o the aid of the
11f0: 69 72 20 63 6f 75 6e 74 72 79 2e 7d 7d 0a 0a 23  ir country.}}..#
1200: 20 69 6d 70 6f 72 74 20 66 69 6c 65 20 77 69 74   import file wit
1210: 68 20 31 20 72 6f 77 2c 20 32 20 63 6f 6c 75 6d  h 1 row, 2 colum
1220: 6e 73 2c 20 71 75 6f 74 65 64 20 74 65 78 74 20  ns, quoted text 
1230: 64 61 74 61 0a 23 20 6e 6f 74 65 20 74 68 61 74  data.# note that
1240: 20 63 75 72 72 65 6e 74 6c 79 20 73 71 6c 69 74   currently sqlit
1250: 65 20 64 6f 65 73 6e 27 74 20 73 75 70 70 6f 72  e doesn't suppor
1260: 74 20 71 75 6f 74 65 64 20 66 69 65 6c 64 73 2c  t quoted fields,
1270: 20 61 6e 64 0a 23 20 69 6d 70 6f 72 74 73 20 74   and.# imports t
1280: 68 65 20 65 6e 74 69 72 65 20 66 69 65 6c 64 2c  he entire field,
1290: 20 71 75 6f 74 65 73 20 61 6e 64 20 61 6c 6c 2e   quotes and all.
12a0: 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d  .do_test shell5-
12b0: 31 2e 34 2e 39 2e 31 20 7b 0a 20 20 73 65 74 20  1.4.9.1 {.  set 
12c0: 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e  in [open shell5.
12d0: 63 73 76 20 77 5d 0a 20 20 70 75 74 73 20 24 69  csv w].  puts $i
12e0: 6e 20 22 36 7c 27 4e 6f 77 20 69 73 20 74 68 65  n "6|'Now is the
12f0: 20 74 69 6d 65 20 66 6f 72 20 61 6c 6c 20 67 6f   time for all go
1300: 6f 64 20 6d 65 6e 20 74 6f 20 63 6f 6d 65 20 74  od men to come t
1310: 6f 20 74 68 65 20 61 69 64 20 6f 66 20 74 68 65  o the aid of the
1320: 69 72 20 63 6f 75 6e 74 72 79 2e 27 22 0a 20 20  ir country.'".  
1330: 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73 65 74 20  close $in.  set 
1340: 72 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74  res [catchcmd "t
1350: 65 73 74 2e 64 62 22 20 7b 2e 69 6d 70 6f 72 74  est.db" {.import
1360: 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 31 0a 53   shell5.csv t1.S
1370: 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46  ELECT COUNT(*) F
1380: 52 4f 4d 20 74 31 3b 7d 5d 0a 7d 20 7b 30 20 36  ROM t1;}].} {0 6
1390: 7d 0a 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c  }..do_test shell
13a0: 35 2d 31 2e 34 2e 39 2e 32 20 7b 0a 20 20 63 61  5-1.4.9.2 {.  ca
13b0: 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22  tchcmd "test.db"
13c0: 20 7b 53 45 4c 45 43 54 20 62 20 46 52 4f 4d 20   {SELECT b FROM 
13d0: 74 31 20 57 48 45 52 45 20 61 3d 27 36 27 3b 7d  t1 WHERE a='6';}
13e0: 0a 7d 20 7b 30 20 7b 27 4e 6f 77 20 69 73 20 74  .} {0 {'Now is t
13f0: 68 65 20 74 69 6d 65 20 66 6f 72 20 61 6c 6c 20  he time for all 
1400: 67 6f 6f 64 20 6d 65 6e 20 74 6f 20 63 6f 6d 65  good men to come
1410: 20 74 6f 20 74 68 65 20 61 69 64 20 6f 66 20 74   to the aid of t
1420: 68 65 69 72 20 63 6f 75 6e 74 72 79 2e 27 7d 7d  heir country.'}}
1430: 0a 0a 23 20 69 6d 70 6f 72 74 20 66 69 6c 65 20  ..# import file 
1440: 77 69 74 68 20 31 20 72 6f 77 2c 20 32 20 63 6f  with 1 row, 2 co
1450: 6c 75 6d 6e 73 2c 20 71 75 6f 74 65 64 20 74 65  lumns, quoted te
1460: 78 74 20 64 61 74 61 0a 64 6f 5f 74 65 73 74 20  xt data.do_test 
1470: 73 68 65 6c 6c 35 2d 31 2e 34 2e 31 30 2e 31 20  shell5-1.4.10.1 
1480: 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e  {.  set in [open
1490: 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a 20   shell5.csv w]. 
14a0: 20 70 75 74 73 20 24 69 6e 20 22 37 7c 5c 22 4e   puts $in "7|\"N
14b0: 6f 77 20 69 73 20 74 68 65 20 74 69 6d 65 20 66  ow is the time f
14c0: 6f 72 20 61 6c 6c 20 67 6f 6f 64 20 6d 65 6e 20  or all good men 
14d0: 74 6f 20 63 6f 6d 65 20 74 6f 20 74 68 65 20 61  to come to the a
14e0: 69 64 20 6f 66 20 74 68 65 69 72 20 63 6f 75 6e  id of their coun
14f0: 74 72 79 2e 5c 22 22 0a 20 20 63 6c 6f 73 65 20  try.\"".  close 
1500: 24 69 6e 0a 20 20 73 65 74 20 72 65 73 20 5b 63  $in.  set res [c
1510: 61 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62  atchcmd "test.db
1520: 22 20 7b 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c  " {.import shell
1530: 35 2e 63 73 76 20 74 31 0a 53 45 4c 45 43 54 20  5.csv t1.SELECT 
1540: 43 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74 31  COUNT(*) FROM t1
1550: 3b 7d 5d 0a 7d 20 7b 30 20 37 7d 0a 0a 64 6f 5f  ;}].} {0 7}..do_
1560: 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e  test shell5-1.4.
1570: 31 30 2e 32 20 7b 0a 20 20 63 61 74 63 68 63 6d  10.2 {.  catchcm
1580: 64 20 22 74 65 73 74 2e 64 62 22 20 7b 53 45 4c  d "test.db" {SEL
1590: 45 43 54 20 62 20 46 52 4f 4d 20 74 31 20 57 48  ECT b FROM t1 WH
15a0: 45 52 45 20 61 3d 27 37 27 3b 7d 0a 7d 20 7b 30  ERE a='7';}.} {0
15b0: 20 7b 4e 6f 77 20 69 73 20 74 68 65 20 74 69 6d   {Now is the tim
15c0: 65 20 66 6f 72 20 61 6c 6c 20 67 6f 6f 64 20 6d  e for all good m
15d0: 65 6e 20 74 6f 20 63 6f 6d 65 20 74 6f 20 74 68  en to come to th
15e0: 65 20 61 69 64 20 6f 66 20 74 68 65 69 72 20 63  e aid of their c
15f0: 6f 75 6e 74 72 79 2e 7d 7d 0a 0a 23 20 63 68 65  ountry.}}..# che
1600: 63 6b 20 69 6d 70 6f 72 74 69 6e 67 20 76 65 72  ck importing ver
1610: 79 20 6c 6f 6e 67 20 66 69 65 6c 64 0a 64 6f 5f  y long field.do_
1620: 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 35 2e  test shell5-1.5.
1630: 31 20 7b 0a 20 20 73 65 74 20 73 74 72 20 5b 73  1 {.  set str [s
1640: 74 72 69 6e 67 20 72 65 70 65 61 74 20 58 20 39  tring repeat X 9
1650: 39 39 5d 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70  99].  set in [op
1660: 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d  en shell5.csv w]
1670: 0a 20 20 70 75 74 73 20 24 69 6e 20 22 38 7c 24  .  puts $in "8|$
1680: 73 74 72 22 0a 20 20 63 6c 6f 73 65 20 24 69 6e  str".  close $in
1690: 0a 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63  .  set res [catc
16a0: 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 7b  hcmd "test.db" {
16b0: 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63  .import shell5.c
16c0: 73 76 20 74 31 0a 53 45 4c 45 43 54 20 6c 65 6e  sv t1.SELECT len
16d0: 67 74 68 28 62 29 20 46 52 4f 4d 20 74 31 20 57  gth(b) FROM t1 W
16e0: 48 45 52 45 20 61 3d 27 38 27 3b 7d 5d 0a 7d 20  HERE a='8';}].} 
16f0: 7b 30 20 39 39 39 7d 0a 0a 23 20 74 72 79 20 69  {0 999}..# try i
1700: 6d 70 6f 72 74 69 6e 67 20 69 6e 74 6f 20 61 20  mporting into a 
1710: 74 61 62 6c 65 20 77 69 74 68 20 61 20 6c 61 72  table with a lar
1720: 67 65 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c  ge number of col
1730: 75 6d 6e 73 2e 0a 23 20 54 68 69 73 20 69 73 20  umns..# This is 
1740: 6c 69 6d 69 74 65 64 20 62 79 20 53 51 4c 49 54  limited by SQLIT
1750: 45 5f 4d 41 58 5f 56 41 52 49 41 42 4c 45 5f 4e  E_MAX_VARIABLE_N
1760: 55 4d 42 45 52 2c 20 77 68 69 63 68 20 64 65 66  UMBER, which def
1770: 61 75 6c 74 73 20 74 6f 20 39 39 39 2e 0a 73 65  aults to 999..se
1780: 74 20 63 6f 6c 73 20 39 39 39 0a 64 6f 5f 74 65  t cols 999.do_te
1790: 73 74 20 73 68 65 6c 6c 35 2d 31 2e 36 2e 31 20  st shell5-1.6.1 
17a0: 7b 0a 20 20 73 65 74 20 64 61 74 61 20 7b 7d 0a  {.  set data {}.
17b0: 20 20 66 6f 72 20 7b 73 65 74 20 69 20 31 7d 20    for {set i 1} 
17c0: 7b 24 69 3c 24 63 6f 6c 73 7d 20 7b 69 6e 63 72  {$i<$cols} {incr
17d0: 20 69 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e 64   i} {.    append
17e0: 20 64 61 74 61 20 22 63 24 69 7c 22 0a 20 20 7d   data "c$i|".  }
17f0: 0a 20 20 61 70 70 65 6e 64 20 64 61 74 61 20 22  .  append data "
1800: 63 24 63 6f 6c 73 5c 6e 22 3b 0a 20 20 66 6f 72  c$cols\n";.  for
1810: 20 7b 73 65 74 20 69 20 31 7d 20 7b 24 69 3c 24   {set i 1} {$i<$
1820: 63 6f 6c 73 7d 20 7b 69 6e 63 72 20 69 7d 20 7b  cols} {incr i} {
1830: 0a 20 20 20 20 61 70 70 65 6e 64 20 64 61 74 61  .    append data
1840: 20 22 24 69 7c 22 0a 20 20 7d 0a 20 20 61 70 70   "$i|".  }.  app
1850: 65 6e 64 20 64 61 74 61 20 22 24 63 6f 6c 73 22  end data "$cols"
1860: 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20  .  set in [open 
1870: 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a 20 20  shell5.csv w].  
1880: 70 75 74 73 20 24 69 6e 20 24 64 61 74 61 0a 20  puts $in $data. 
1890: 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73 65 74   close $in.  set
18a0: 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22   res [catchcmd "
18b0: 74 65 73 74 2e 64 62 22 20 7b 2e 69 6d 70 6f 72  test.db" {.impor
18c0: 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 32 0a  t shell5.csv t2.
18d0: 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20  SELECT COUNT(*) 
18e0: 46 52 4f 4d 20 74 32 3b 7d 5d 0a 7d 20 7b 30 20  FROM t2;}].} {0 
18f0: 31 7d 0a 0a 23 20 74 72 79 20 69 6d 70 6f 72 74  1}..# try import
1900: 69 6e 67 20 61 20 6c 61 72 67 65 20 6e 75 6d 62  ing a large numb
1910: 65 72 20 6f 66 20 72 6f 77 73 0a 73 65 74 20 72  er of rows.set r
1920: 6f 77 73 20 39 39 39 39 0a 64 6f 5f 74 65 73 74  ows 9999.do_test
1930: 20 73 68 65 6c 6c 35 2d 31 2e 37 2e 31 20 7b 0a   shell5-1.7.1 {.
1940: 20 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20 73    set in [open s
1950: 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a 20 20 70  hell5.csv w].  p
1960: 75 74 73 20 24 69 6e 20 61 0a 20 20 66 6f 72 20  uts $in a.  for 
1970: 7b 73 65 74 20 69 20 31 7d 20 7b 24 69 3c 3d 24  {set i 1} {$i<=$
1980: 72 6f 77 73 7d 20 7b 69 6e 63 72 20 69 7d 20 7b  rows} {incr i} {
1990: 0a 20 20 20 20 70 75 74 73 20 24 69 6e 20 24 69  .    puts $in $i
19a0: 0a 20 20 7d 0a 20 20 63 6c 6f 73 65 20 24 69 6e  .  }.  close $in
19b0: 0a 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63  .  set res [catc
19c0: 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 7b  hcmd "test.db" {
19d0: 2e 6d 6f 64 65 20 63 73 76 0a 2e 69 6d 70 6f 72  .mode csv..impor
19e0: 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 33 0a  t shell5.csv t3.
19f0: 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29 20  SELECT COUNT(*) 
1a00: 46 52 4f 4d 20 74 33 3b 7d 5d 0a 7d 20 5b 6c 69  FROM t3;}].} [li
1a10: 73 74 20 30 20 24 72 6f 77 73 5d 0a 0a 23 20 49  st 0 $rows]..# I
1a20: 6e 70 6f 72 74 20 66 72 6f 6d 20 61 20 70 69 70  nport from a pip
1a30: 65 2e 20 20 28 55 6e 69 78 20 6f 6e 6c 79 2c 20  e.  (Unix only, 
1a40: 61 73 20 69 74 20 72 65 71 75 69 72 65 73 20 22  as it requires "
1a50: 61 77 6b 22 29 0a 69 66 20 7b 24 74 63 6c 5f 70  awk").if {$tcl_p
1a60: 6c 61 74 66 6f 72 6d 28 70 6c 61 74 66 6f 72 6d  latform(platform
1a70: 29 3d 3d 22 75 6e 69 78 22 7d 20 7b 0a 20 20 64  )=="unix"} {.  d
1a80: 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e  o_test shell5-1.
1a90: 38 20 7b 0a 20 20 20 20 66 69 6c 65 20 64 65 6c  8 {.    file del
1aa0: 65 74 65 20 2d 66 6f 72 63 65 20 74 65 73 74 2e  ete -force test.
1ab0: 64 62 0a 20 20 20 20 63 61 74 63 68 63 6d 64 20  db.    catchcmd 
1ac0: 74 65 73 74 2e 64 62 20 7b 2e 6d 6f 64 65 20 63  test.db {.mode c
1ad0: 73 76 0a 2e 69 6d 70 6f 72 74 20 22 7c 61 77 6b  sv..import "|awk
1ae0: 20 27 45 4e 44 7b 70 72 69 6e 74 20 5c 22 78 2c   'END{print \"x,
1af0: 79 5c 22 3b 66 6f 72 28 69 3d 31 3b 69 3c 3d 35  y\";for(i=1;i<=5
1b00: 3b 69 2b 2b 29 7b 70 72 69 6e 74 20 69 20 5c 22  ;i++){print i \"
1b10: 2c 74 68 69 73 20 69 73 20 5c 22 20 69 7d 7d 27  ,this is \" i}}'
1b20: 22 20 74 31 0a 53 45 4c 45 43 54 20 2a 20 46 52  " t1.SELECT * FR
1b30: 4f 4d 20 74 31 3b 7d 0a 20 20 7d 20 7b 30 20 7b  OM t1;}.  } {0 {
1b40: 31 2c 22 74 68 69 73 20 69 73 20 31 22 0a 32 2c  1,"this is 1".2,
1b50: 22 74 68 69 73 20 69 73 20 32 22 0a 33 2c 22 74  "this is 2".3,"t
1b60: 68 69 73 20 69 73 20 33 22 0a 34 2c 22 74 68 69  his is 3".4,"thi
1b70: 73 20 69 73 20 34 22 0a 35 2c 22 74 68 69 73 20  s is 4".5,"this 
1b80: 69 73 20 35 22 7d 7d 0a 7d 0a 0a 23 20 49 6d 70  is 5"}}.}..# Imp
1b90: 6f 72 74 20 63 6f 6c 75 6d 6e 73 20 63 6f 6e 74  ort columns cont
1ba0: 61 69 6e 69 6e 67 20 71 75 6f 74 65 64 20 73 74  aining quoted st
1bb0: 72 69 6e 67 73 0a 64 6f 5f 74 65 73 74 20 73 68  rings.do_test sh
1bc0: 65 6c 6c 35 2d 31 2e 39 20 7b 0a 20 20 73 65 74  ell5-1.9 {.  set
1bd0: 20 6f 75 74 20 5b 6f 70 65 6e 20 73 68 65 6c 6c   out [open shell
1be0: 35 2e 63 73 76 20 77 5d 0a 20 20 70 75 74 73 20  5.csv w].  puts 
1bf0: 24 6f 75 74 20 7b 31 2c 22 22 2c 31 31 7d 0a 20  $out {1,"",11}. 
1c00: 20 70 75 74 73 20 24 6f 75 74 20 7b 32 2c 22 78   puts $out {2,"x
1c10: 22 2c 32 32 7d 0a 20 20 70 75 74 73 20 24 6f 75  ",22}.  puts $ou
1c20: 74 20 7b 33 2c 22 22 22 22 2c 33 33 7d 0a 20 20  t {3,"""",33}.  
1c30: 70 75 74 73 20 24 6f 75 74 20 7b 34 2c 22 68 65  puts $out {4,"he
1c40: 6c 6c 6f 22 2c 34 34 7d 0a 20 20 70 75 74 73 20  llo",44}.  puts 
1c50: 24 6f 75 74 20 22 35 2c 35 35 2c 5c 22 5c 22 5c  $out "5,55,\"\"\
1c60: 72 22 0a 20 20 70 75 74 73 20 24 6f 75 74 20 7b  r".  puts $out {
1c70: 36 2c 36 36 2c 22 78 22 7d 0a 20 20 70 75 74 73  6,66,"x"}.  puts
1c80: 20 24 6f 75 74 20 7b 37 2c 37 37 2c 22 22 22 22   $out {7,77,""""
1c90: 7d 0a 20 20 70 75 74 73 20 24 6f 75 74 20 7b 38  }.  puts $out {8
1ca0: 2c 38 38 2c 22 68 65 6c 6c 6f 22 7d 0a 20 20 70  ,88,"hello"}.  p
1cb0: 75 74 73 20 24 6f 75 74 20 7b 22 22 2c 39 2c 39  uts $out {"",9,9
1cc0: 39 7d 0a 20 20 70 75 74 73 20 24 6f 75 74 20 7b  9}.  puts $out {
1cd0: 22 78 22 2c 31 30 2c 31 31 30 7d 0a 20 20 70 75  "x",10,110}.  pu
1ce0: 74 73 20 24 6f 75 74 20 7b 22 22 22 22 2c 31 31  ts $out {"""",11
1cf0: 2c 31 32 31 7d 0a 20 20 70 75 74 73 20 24 6f 75  ,121}.  puts $ou
1d00: 74 20 7b 22 68 65 6c 6c 6f 22 2c 31 32 2c 31 33  t {"hello",12,13
1d10: 32 7d 0a 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a  2}.  close $out.
1d20: 20 20 66 69 6c 65 20 64 65 6c 65 74 65 20 2d 66    file delete -f
1d30: 6f 72 63 65 20 74 65 73 74 2e 64 62 0a 20 20 63  orce test.db.  c
1d40: 61 74 63 68 63 6d 64 20 74 65 73 74 2e 64 62 20  atchcmd test.db 
1d50: 7b 2e 6d 6f 64 65 20 63 73 76 0a 20 20 20 20 43  {.mode csv.    C
1d60: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 61  REATE TABLE t1(a
1d70: 2c 62 2c 63 29 3b 0a 2e 69 6d 70 6f 72 74 20 73  ,b,c);..import s
1d80: 68 65 6c 6c 35 2e 63 73 76 20 74 31 0a 20 20 7d  hell5.csv t1.  }
1d90: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 20 74 65  .  sqlite3 db te
1da0: 73 74 2e 64 62 0a 20 20 64 62 20 65 76 61 6c 20  st.db.  db eval 
1db0: 7b 53 45 4c 45 43 54 20 2a 2c 20 27 7c 27 20 46  {SELECT *, '|' F
1dc0: 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59 20  ROM t1 ORDER BY 
1dd0: 72 6f 77 69 64 7d 0a 7d 20 7b 31 20 7b 7d 20 31  rowid}.} {1 {} 1
1de0: 31 20 7c 20 32 20 78 20 32 32 20 7c 20 33 20 7b  1 | 2 x 22 | 3 {
1df0: 22 7d 20 33 33 20 7c 20 34 20 68 65 6c 6c 6f 20  "} 33 | 4 hello 
1e00: 34 34 20 7c 20 35 20 35 35 20 7b 7d 20 7c 20 36  44 | 5 55 {} | 6
1e10: 20 36 36 20 78 20 7c 20 37 20 37 37 20 7b 22 7d   66 x | 7 77 {"}
1e20: 20 7c 20 38 20 38 38 20 68 65 6c 6c 6f 20 7c 20   | 8 88 hello | 
1e30: 7b 7d 20 39 20 39 39 20 7c 20 78 20 31 30 20 31  {} 9 99 | x 10 1
1e40: 31 30 20 7c 20 7b 22 7d 20 31 31 20 31 32 31 20  10 | {"} 11 121 
1e50: 7c 20 68 65 6c 6c 6f 20 31 32 20 31 33 32 20 7c  | hello 12 132 |
1e60: 7d 0a 64 62 20 63 6c 6f 73 65 0a 0a 66 69 6e 69  }.db close..fini
1e70: 73 68 5f 74 65 73 74 0a                          sh_test.