/ Hex Artifact Content
Login

Artifact 0d973866d0df8501486a840f51d1502ab0d9b38ca12c9b242ee26adc788af576:


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 73  dir/tester.tcl.s
02a0: 65 74 20 43 4c 49 20 5b 74 65 73 74 5f 66 69 6e  et CLI [test_fin
02b0: 64 5f 63 6c 69 5d 0a 64 62 20 63 6c 6f 73 65 0a  d_cli].db close.
02c0: 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74  forcedelete test
02d0: 2e 64 62 20 74 65 73 74 2e 64 62 2d 6a 6f 75 72  .db test.db-jour
02e0: 6e 61 6c 20 74 65 73 74 2e 64 62 2d 77 61 6c 0a  nal test.db-wal.
02f0: 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  .#--------------
0300: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0310: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 23  --------------.#
0340: 20 54 65 73 74 20 63 61 73 65 73 20 73 68 65 6c   Test cases shel
0350: 6c 35 2d 31 2e 2a 3a 20 42 61 73 69 63 20 68 61  l5-1.*: Basic ha
0360: 6e 64 6c 69 6e 67 20 6f 66 20 74 68 65 20 2e 69  ndling of the .i
0370: 6d 70 6f 72 74 20 61 6e 64 20 2e 73 65 70 61 72  mport and .separ
0380: 61 74 6f 72 20 63 6f 6d 6d 61 6e 64 73 2e 0a 23  ator commands..#
0390: 0a 0a 23 20 2e 69 6d 70 6f 72 74 20 46 49 4c 45  ..# .import FILE
03a0: 20 54 41 42 4c 45 20 20 20 20 20 49 6d 70 6f 72   TABLE     Impor
03b0: 74 20 64 61 74 61 20 66 72 6f 6d 20 46 49 4c 45  t data from FILE
03c0: 20 69 6e 74 6f 20 54 41 42 4c 45 0a 64 6f 5f 74   into TABLE.do_t
03d0: 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 31 2e 31  est shell5-1.1.1
03e0: 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20 22 74   {.  catchcmd "t
03f0: 65 73 74 2e 64 62 22 20 22 2e 69 6d 70 6f 72 74  est.db" ".import
0400: 22 0a 7d 20 7b 31 20 7b 55 73 61 67 65 3a 20 2e  ".} {1 {Usage: .
0410: 69 6d 70 6f 72 74 20 46 49 4c 45 20 54 41 42 4c  import FILE TABL
0420: 45 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c  E}}.do_test shel
0430: 6c 35 2d 31 2e 31 2e 32 20 7b 0a 20 20 63 61 74  l5-1.1.2 {.  cat
0440: 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20  chcmd "test.db" 
0450: 22 2e 69 6d 70 6f 72 74 20 46 4f 4f 22 0a 7d 20  ".import FOO".} 
0460: 7b 31 20 7b 55 73 61 67 65 3a 20 2e 69 6d 70 6f  {1 {Usage: .impo
0470: 72 74 20 46 49 4c 45 20 54 41 42 4c 45 7d 7d 0a  rt FILE TABLE}}.
0480: 23 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d  #do_test shell5-
0490: 31 2e 31 2e 32 20 7b 0a 23 20 20 63 61 74 63 68  1.1.2 {.#  catch
04a0: 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 22 2e  cmd "test.db" ".
04b0: 69 6d 70 6f 72 74 20 46 4f 4f 20 42 41 52 22 0a  import FOO BAR".
04c0: 23 7d 20 7b 31 20 7b 45 72 72 6f 72 3a 20 6e 6f  #} {1 {Error: no
04d0: 20 73 75 63 68 20 74 61 62 6c 65 3a 20 42 41 52   such table: BAR
04e0: 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c  }}.do_test shell
04f0: 35 2d 31 2e 31 2e 33 20 7b 0a 20 20 23 20 74 6f  5-1.1.3 {.  # to
0500: 6f 20 6d 61 6e 79 20 61 72 67 75 6d 65 6e 74 73  o many arguments
0510: 0a 20 20 63 61 74 63 68 63 6d 64 20 22 74 65 73  .  catchcmd "tes
0520: 74 2e 64 62 22 20 22 2e 69 6d 70 6f 72 74 20 46  t.db" ".import F
0530: 4f 4f 20 42 41 52 20 42 41 44 22 0a 7d 20 7b 31  OO BAR BAD".} {1
0540: 20 7b 55 73 61 67 65 3a 20 2e 69 6d 70 6f 72 74   {Usage: .import
0550: 20 46 49 4c 45 20 54 41 42 4c 45 7d 7d 0a 0a 23   FILE TABLE}}..#
0560: 20 2e 73 65 70 61 72 61 74 6f 72 20 53 54 52 49   .separator STRI
0570: 4e 47 20 20 20 20 20 20 43 68 61 6e 67 65 20 73  NG      Change s
0580: 65 70 61 72 61 74 6f 72 20 75 73 65 64 20 62 79  eparator used by
0590: 20 6f 75 74 70 75 74 20 6d 6f 64 65 20 61 6e 64   output mode and
05a0: 20 2e 69 6d 70 6f 72 74 0a 64 6f 5f 74 65 73 74   .import.do_test
05b0: 20 73 68 65 6c 6c 35 2d 31 2e 32 2e 31 20 7b 0a   shell5-1.2.1 {.
05c0: 20 20 63 61 74 63 68 63 6d 64 20 22 74 65 73 74    catchcmd "test
05d0: 2e 64 62 22 20 22 2e 73 65 70 61 72 61 74 6f 72  .db" ".separator
05e0: 22 0a 7d 20 7b 31 20 7b 55 73 61 67 65 3a 20 2e  ".} {1 {Usage: .
05f0: 73 65 70 61 72 61 74 6f 72 20 43 4f 4c 20 3f 52  separator COL ?R
0600: 4f 57 3f 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68  OW?}}.do_test sh
0610: 65 6c 6c 35 2d 31 2e 32 2e 32 20 7b 0a 20 20 63  ell5-1.2.2 {.  c
0620: 61 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62  atchcmd "test.db
0630: 22 20 22 2e 73 65 70 61 72 61 74 6f 72 20 4f 4e  " ".separator ON
0640: 45 22 0a 7d 20 7b 30 20 7b 7d 7d 0a 64 6f 5f 74  E".} {0 {}}.do_t
0650: 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 32 2e 33  est shell5-1.2.3
0660: 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20 22 74   {.  catchcmd "t
0670: 65 73 74 2e 64 62 22 20 22 2e 73 65 70 61 72 61  est.db" ".separa
0680: 74 6f 72 20 4f 4e 45 20 54 57 4f 22 0a 7d 20 7b  tor ONE TWO".} {
0690: 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 73 68  0 {}}.do_test sh
06a0: 65 6c 6c 35 2d 31 2e 32 2e 34 20 7b 0a 20 20 23  ell5-1.2.4 {.  #
06b0: 20 74 6f 6f 20 6d 61 6e 79 20 61 72 67 75 6d 65   too many argume
06c0: 6e 74 73 0a 20 20 63 61 74 63 68 63 6d 64 20 22  nts.  catchcmd "
06d0: 74 65 73 74 2e 64 62 22 20 22 2e 73 65 70 61 72  test.db" ".separ
06e0: 61 74 6f 72 20 4f 4e 45 20 54 57 4f 20 54 48 52  ator ONE TWO THR
06f0: 45 45 22 0a 7d 20 7b 31 20 7b 55 73 61 67 65 3a  EE".} {1 {Usage:
0700: 20 2e 73 65 70 61 72 61 74 6f 72 20 43 4f 4c 20   .separator COL 
0710: 3f 52 4f 57 3f 7d 7d 0a 0a 23 20 63 6f 6c 75 6d  ?ROW?}}..# colum
0720: 6e 20 73 65 70 61 72 61 74 6f 72 20 73 68 6f 75  n separator shou
0730: 6c 64 20 64 65 66 61 75 6c 74 20 74 6f 20 22 7c  ld default to "|
0740: 22 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35  ".do_test shell5
0750: 2d 31 2e 33 2e 31 2e 31 20 7b 0a 20 20 73 65 74  -1.3.1.1 {.  set
0760: 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22   res [catchcmd "
0770: 74 65 73 74 2e 64 62 22 20 22 2e 73 68 6f 77 22  test.db" ".show"
0780: 5d 0a 20 20 6c 69 73 74 20 5b 72 65 67 65 78 70  ].  list [regexp
0790: 20 7b 63 6f 6c 73 65 70 61 72 61 74 6f 72 3a 20   {colseparator: 
07a0: 5c 22 5c 7c 5c 22 7d 20 24 72 65 73 5d 0a 7d 20  \"\|\"} $res].} 
07b0: 7b 31 7d 0a 0a 23 20 72 6f 77 20 73 65 70 61 72  {1}..# row separ
07c0: 61 74 6f 72 20 73 68 6f 75 6c 64 20 64 65 66 61  ator should defa
07d0: 75 6c 74 20 74 6f 20 22 5c 6e 22 0a 64 6f 5f 74  ult to "\n".do_t
07e0: 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 33 2e 31  est shell5-1.3.1
07f0: 2e 32 20 7b 0a 20 20 73 65 74 20 72 65 73 20 5b  .2 {.  set res [
0800: 63 61 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64  catchcmd "test.d
0810: 62 22 20 22 2e 73 68 6f 77 22 5d 0a 20 20 6c 69  b" ".show"].  li
0820: 73 74 20 5b 72 65 67 65 78 70 20 7b 72 6f 77 73  st [regexp {rows
0830: 65 70 61 72 61 74 6f 72 3a 20 5c 22 5c 5c 6e 5c  eparator: \"\\n\
0840: 22 7d 20 24 72 65 73 5d 0a 7d 20 7b 31 7d 0a 0a  "} $res].} {1}..
0850: 23 20 73 65 74 20 73 65 70 61 72 61 74 6f 72 20  # set separator 
0860: 74 6f 20 64 69 66 66 65 72 65 6e 74 20 76 61 6c  to different val
0870: 75 65 2e 0a 23 20 63 68 65 63 6b 20 74 68 61 74  ue..# check that
0880: 20 2e 73 68 6f 77 20 72 65 70 6f 72 74 73 20 6e   .show reports n
0890: 65 77 20 76 61 6c 75 65 0a 64 6f 5f 74 65 73 74  ew value.do_test
08a0: 20 73 68 65 6c 6c 35 2d 31 2e 33 2e 32 20 7b 0a   shell5-1.3.2 {.
08b0: 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63 68    set res [catch
08c0: 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 7b 2e  cmd "test.db" {.
08d0: 73 65 70 61 72 61 74 6f 72 20 2c 0a 2e 73 68 6f  separator ,..sho
08e0: 77 7d 5d 0a 20 20 6c 69 73 74 20 5b 72 65 67 65  w}].  list [rege
08f0: 78 70 20 7b 73 65 70 61 72 61 74 6f 72 3a 20 5c  xp {separator: \
0900: 22 2c 5c 22 7d 20 24 72 65 73 5d 0a 7d 20 7b 31  ",\"} $res].} {1
0910: 7d 0a 0a 23 20 69 6d 70 6f 72 74 20 66 69 6c 65  }..# import file
0920: 20 64 6f 65 73 6e 27 74 20 65 78 69 73 74 0a 64   doesn't exist.d
0930: 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e  o_test shell5-1.
0940: 34 2e 31 20 7b 0a 20 20 66 6f 72 63 65 64 65 6c  4.1 {.  forcedel
0950: 65 74 65 20 46 4f 4f 0a 20 20 73 65 74 20 72 65  ete FOO.  set re
0960: 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74 65 73  s [catchcmd "tes
0970: 74 2e 64 62 22 20 7b 43 52 45 41 54 45 20 54 41  t.db" {CREATE TA
0980: 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 2e 69  BLE t1(a, b);..i
0990: 6d 70 6f 72 74 20 46 4f 4f 20 74 31 7d 5d 0a 7d  mport FOO t1}].}
09a0: 20 7b 31 20 7b 45 72 72 6f 72 3a 20 63 61 6e 6e   {1 {Error: cann
09b0: 6f 74 20 6f 70 65 6e 20 22 46 4f 4f 22 7d 7d 0a  ot open "FOO"}}.
09c0: 0a 23 20 65 6d 70 74 79 20 69 6d 70 6f 72 74 20  .# empty import 
09d0: 66 69 6c 65 0a 64 6f 5f 74 65 73 74 20 73 68 65  file.do_test she
09e0: 6c 6c 35 2d 31 2e 34 2e 32 20 7b 0a 20 20 66 6f  ll5-1.4.2 {.  fo
09f0: 72 63 65 64 65 6c 65 74 65 20 73 68 65 6c 6c 35  rcedelete shell5
0a00: 2e 63 73 76 0a 20 20 73 65 74 20 69 6e 20 5b 6f  .csv.  set in [o
0a10: 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77  pen shell5.csv w
0a20: 5d 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20  ].  close $in.  
0a30: 73 65 74 20 72 65 73 20 5b 63 61 74 63 68 63 6d  set res [catchcm
0a40: 64 20 22 74 65 73 74 2e 64 62 22 20 7b 2e 69 6d  d "test.db" {.im
0a50: 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73 76 20  port shell5.csv 
0a60: 74 31 0a 53 45 4c 45 43 54 20 43 4f 55 4e 54 28  t1.SELECT COUNT(
0a70: 2a 29 20 46 52 4f 4d 20 74 31 3b 7d 5d 0a 7d 20  *) FROM t1;}].} 
0a80: 7b 30 20 30 7d 0a 0a 23 20 69 6d 70 6f 72 74 20  {0 0}..# import 
0a90: 66 69 6c 65 20 77 69 74 68 20 31 20 72 6f 77 2c  file with 1 row,
0aa0: 20 31 20 63 6f 6c 75 6d 6e 20 28 65 78 70 65 63   1 column (expec
0ab0: 74 69 6e 67 20 32 20 63 6f 6c 73 29 0a 64 6f 5f  ting 2 cols).do_
0ac0: 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e  test shell5-1.4.
0ad0: 33 20 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70  3 {.  set in [op
0ae0: 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d  en shell5.csv w]
0af0: 0a 20 20 70 75 74 73 20 24 69 6e 20 22 31 22 0a  .  puts $in "1".
0b00: 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73 65    close $in.  se
0b10: 74 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64 20  t res [catchcmd 
0b20: 22 74 65 73 74 2e 64 62 22 20 7b 2e 69 6d 70 6f  "test.db" {.impo
0b30: 72 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 31  rt shell5.csv t1
0b40: 7d 5d 0a 7d 20 7b 31 20 7b 73 68 65 6c 6c 35 2e  }].} {1 {shell5.
0b50: 63 73 76 3a 31 3a 20 65 78 70 65 63 74 65 64 20  csv:1: expected 
0b60: 32 20 63 6f 6c 75 6d 6e 73 20 62 75 74 20 66 6f  2 columns but fo
0b70: 75 6e 64 20 31 20 2d 20 66 69 6c 6c 69 6e 67 20  und 1 - filling 
0b80: 74 68 65 20 72 65 73 74 20 77 69 74 68 20 4e 55  the rest with NU
0b90: 4c 4c 7d 7d 0a 0a 23 20 69 6d 70 6f 72 74 20 66  LL}}..# import f
0ba0: 69 6c 65 20 77 69 74 68 20 31 20 72 6f 77 2c 20  ile with 1 row, 
0bb0: 33 20 63 6f 6c 75 6d 6e 73 20 28 65 78 70 65 63  3 columns (expec
0bc0: 74 69 6e 67 20 32 20 63 6f 6c 73 29 0a 64 6f 5f  ting 2 cols).do_
0bd0: 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e  test shell5-1.4.
0be0: 34 20 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70  4 {.  set in [op
0bf0: 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d  en shell5.csv w]
0c00: 0a 20 20 70 75 74 73 20 24 69 6e 20 22 31 7c 32  .  puts $in "1|2
0c10: 7c 33 22 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a  |3".  close $in.
0c20: 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63 68    set res [catch
0c30: 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 7b 2e  cmd "test.db" {.
0c40: 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73  import shell5.cs
0c50: 76 20 74 31 7d 5d 0a 7d 20 7b 31 20 7b 73 68 65  v t1}].} {1 {she
0c60: 6c 6c 35 2e 63 73 76 3a 31 3a 20 65 78 70 65 63  ll5.csv:1: expec
0c70: 74 65 64 20 32 20 63 6f 6c 75 6d 6e 73 20 62 75  ted 2 columns bu
0c80: 74 20 66 6f 75 6e 64 20 33 20 2d 20 65 78 74 72  t found 3 - extr
0c90: 61 73 20 69 67 6e 6f 72 65 64 7d 7d 0a 0a 23 20  as ignored}}..# 
0ca0: 69 6d 70 6f 72 74 20 66 69 6c 65 20 77 69 74 68  import file with
0cb0: 20 31 20 72 6f 77 2c 20 32 20 63 6f 6c 75 6d 6e   1 row, 2 column
0cc0: 73 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35  s.do_test shell5
0cd0: 2d 31 2e 34 2e 35 20 7b 0a 20 20 73 65 74 20 69  -1.4.5 {.  set i
0ce0: 6e 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e 63  n [open shell5.c
0cf0: 73 76 20 77 5d 0a 20 20 70 75 74 73 20 24 69 6e  sv w].  puts $in
0d00: 20 22 31 7c 32 22 0a 20 20 63 6c 6f 73 65 20 24   "1|2".  close $
0d10: 69 6e 0a 20 20 73 65 74 20 72 65 73 20 5b 63 61  in.  set res [ca
0d20: 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22  tchcmd "test.db"
0d30: 20 7b 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 31   {DELETE FROM t1
0d40: 3b 0a 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35  ;..import shell5
0d50: 2e 63 73 76 20 74 31 0a 53 45 4c 45 43 54 20 43  .csv t1.SELECT C
0d60: 4f 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74 31 3b  OUNT(*) FROM t1;
0d70: 7d 5d 0a 7d 20 7b 30 20 31 7d 0a 0a 23 20 69 6d  }].} {0 1}..# im
0d80: 70 6f 72 74 20 66 69 6c 65 20 77 69 74 68 20 32  port file with 2
0d90: 20 72 6f 77 73 2c 20 32 20 63 6f 6c 75 6d 6e 73   rows, 2 columns
0da0: 0a 23 20 6e 6f 74 65 20 77 65 20 65 6e 64 20 75  .# note we end u
0db0: 70 20 77 69 74 68 20 33 20 72 6f 77 73 20 62 65  p with 3 rows be
0dc0: 63 61 75 73 65 20 6f 66 20 74 68 65 20 31 20 72  cause of the 1 r
0dd0: 6f 77 20 0a 23 20 69 6d 70 6f 72 74 65 64 20 61  ow .# imported a
0de0: 62 6f 76 65 2e 0a 64 6f 5f 74 65 73 74 20 73 68  bove..do_test sh
0df0: 65 6c 6c 35 2d 31 2e 34 2e 36 20 7b 0a 20 20 73  ell5-1.4.6 {.  s
0e00: 65 74 20 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c  et in [open shel
0e10: 6c 35 2e 63 73 76 20 77 5d 0a 20 20 70 75 74 73  l5.csv w].  puts
0e20: 20 24 69 6e 20 22 32 7c 33 22 0a 20 20 70 75 74   $in "2|3".  put
0e30: 73 20 24 69 6e 20 22 33 7c 34 22 0a 20 20 63 6c  s $in "3|4".  cl
0e40: 6f 73 65 20 24 69 6e 0a 20 20 73 65 74 20 72 65  ose $in.  set re
0e50: 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74 65 73  s [catchcmd "tes
0e60: 74 2e 64 62 22 20 7b 2e 69 6d 70 6f 72 74 20 73  t.db" {.import s
0e70: 68 65 6c 6c 35 2e 63 73 76 20 74 31 0a 53 45 4c  hell5.csv t1.SEL
0e80: 45 43 54 20 43 4f 55 4e 54 28 2a 29 20 46 52 4f  ECT COUNT(*) FRO
0e90: 4d 20 74 31 3b 7d 5d 0a 7d 20 7b 30 20 33 7d 0a  M t1;}].} {0 3}.
0ea0: 0a 23 20 69 6d 70 6f 72 74 20 66 69 6c 65 20 77  .# import file w
0eb0: 69 74 68 20 31 20 72 6f 77 2c 20 32 20 63 6f 6c  ith 1 row, 2 col
0ec0: 75 6d 6e 73 2c 20 75 73 69 6e 67 20 61 20 63 6f  umns, using a co
0ed0: 6d 6d 61 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c  mma.do_test shel
0ee0: 6c 35 2d 31 2e 34 2e 37 20 7b 0a 20 20 73 65 74  l5-1.4.7 {.  set
0ef0: 20 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35   in [open shell5
0f00: 2e 63 73 76 20 77 5d 0a 20 20 70 75 74 73 20 24  .csv w].  puts $
0f10: 69 6e 20 22 34 2c 35 22 0a 20 20 63 6c 6f 73 65  in "4,5".  close
0f20: 20 24 69 6e 0a 20 20 73 65 74 20 72 65 73 20 5b   $in.  set res [
0f30: 63 61 74 63 68 63 6d 64 20 22 74 65 73 74 2e 64  catchcmd "test.d
0f40: 62 22 20 7b 2e 73 65 70 61 72 61 74 6f 72 20 2c  b" {.separator ,
0f50: 0a 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e  ..import shell5.
0f60: 63 73 76 20 74 31 0a 53 45 4c 45 43 54 20 43 4f  csv t1.SELECT CO
0f70: 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74 31 3b 7d  UNT(*) FROM t1;}
0f80: 5d 0a 7d 20 7b 30 20 34 7d 0a 0a 23 20 69 6d 70  ].} {0 4}..# imp
0f90: 6f 72 74 20 66 69 6c 65 20 77 69 74 68 20 31 20  ort file with 1 
0fa0: 72 6f 77 2c 20 32 20 63 6f 6c 75 6d 6e 73 2c 20  row, 2 columns, 
0fb0: 74 65 78 74 20 64 61 74 61 0a 64 6f 5f 74 65 73  text data.do_tes
0fc0: 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e 38 2e 31  t shell5-1.4.8.1
0fd0: 20 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70 65   {.  set in [ope
0fe0: 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a  n shell5.csv w].
0ff0: 20 20 70 75 74 73 20 24 69 6e 20 22 35 7c 4e 6f    puts $in "5|No
1000: 77 20 69 73 20 74 68 65 20 74 69 6d 65 20 66 6f  w is the time fo
1010: 72 20 61 6c 6c 20 67 6f 6f 64 20 6d 65 6e 20 74  r all good men t
1020: 6f 20 63 6f 6d 65 20 74 6f 20 74 68 65 20 61 69  o come to the ai
1030: 64 20 6f 66 20 74 68 65 69 72 20 63 6f 75 6e 74  d of their count
1040: 72 79 2e 22 0a 20 20 63 6c 6f 73 65 20 24 69 6e  ry.".  close $in
1050: 0a 20 20 73 65 74 20 72 65 73 20 5b 63 61 74 63  .  set res [catc
1060: 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20 7b  hcmd "test.db" {
1070: 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63  .import shell5.c
1080: 73 76 20 74 31 0a 53 45 4c 45 43 54 20 43 4f 55  sv t1.SELECT COU
1090: 4e 54 28 2a 29 20 46 52 4f 4d 20 74 31 3b 7d 5d  NT(*) FROM t1;}]
10a0: 0a 7d 20 7b 30 20 35 7d 0a 0a 64 6f 5f 74 65 73  .} {0 5}..do_tes
10b0: 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e 38 2e 32  t shell5-1.4.8.2
10c0: 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20 22 74   {.  catchcmd "t
10d0: 65 73 74 2e 64 62 22 20 7b 53 45 4c 45 43 54 20  est.db" {SELECT 
10e0: 62 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20  b FROM t1 WHERE 
10f0: 61 3d 27 35 27 3b 7d 0a 7d 20 7b 30 20 7b 4e 6f  a='5';}.} {0 {No
1100: 77 20 69 73 20 74 68 65 20 74 69 6d 65 20 66 6f  w is the time fo
1110: 72 20 61 6c 6c 20 67 6f 6f 64 20 6d 65 6e 20 74  r all good men t
1120: 6f 20 63 6f 6d 65 20 74 6f 20 74 68 65 20 61 69  o come to the ai
1130: 64 20 6f 66 20 74 68 65 69 72 20 63 6f 75 6e 74  d of their count
1140: 72 79 2e 7d 7d 0a 0a 23 20 69 6d 70 6f 72 74 20  ry.}}..# import 
1150: 66 69 6c 65 20 77 69 74 68 20 31 20 72 6f 77 2c  file with 1 row,
1160: 20 32 20 63 6f 6c 75 6d 6e 73 2c 20 71 75 6f 74   2 columns, quot
1170: 65 64 20 74 65 78 74 20 64 61 74 61 0a 23 20 6e  ed text data.# n
1180: 6f 74 65 20 74 68 61 74 20 63 75 72 72 65 6e 74  ote that current
1190: 6c 79 20 73 71 6c 69 74 65 20 64 6f 65 73 6e 27  ly sqlite doesn'
11a0: 74 20 73 75 70 70 6f 72 74 20 71 75 6f 74 65 64  t support quoted
11b0: 20 66 69 65 6c 64 73 2c 20 61 6e 64 0a 23 20 69   fields, and.# i
11c0: 6d 70 6f 72 74 73 20 74 68 65 20 65 6e 74 69 72  mports the entir
11d0: 65 20 66 69 65 6c 64 2c 20 71 75 6f 74 65 73 20  e field, quotes 
11e0: 61 6e 64 20 61 6c 6c 2e 0a 64 6f 5f 74 65 73 74  and all..do_test
11f0: 20 73 68 65 6c 6c 35 2d 31 2e 34 2e 39 2e 31 20   shell5-1.4.9.1 
1200: 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e  {.  set in [open
1210: 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a 20   shell5.csv w]. 
1220: 20 70 75 74 73 20 24 69 6e 20 22 36 7c 27 4e 6f   puts $in "6|'No
1230: 77 20 69 73 20 74 68 65 20 74 69 6d 65 20 66 6f  w is the time fo
1240: 72 20 61 6c 6c 20 67 6f 6f 64 20 6d 65 6e 20 74  r all good men t
1250: 6f 20 63 6f 6d 65 20 74 6f 20 74 68 65 20 61 69  o come to the ai
1260: 64 20 6f 66 20 74 68 65 69 72 20 63 6f 75 6e 74  d of their count
1270: 72 79 2e 27 22 0a 20 20 63 6c 6f 73 65 20 24 69  ry.'".  close $i
1280: 6e 0a 20 20 73 65 74 20 72 65 73 20 5b 63 61 74  n.  set res [cat
1290: 63 68 63 6d 64 20 22 74 65 73 74 2e 64 62 22 20  chcmd "test.db" 
12a0: 7b 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e  {.import shell5.
12b0: 63 73 76 20 74 31 0a 53 45 4c 45 43 54 20 43 4f  csv t1.SELECT CO
12c0: 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74 31 3b 7d  UNT(*) FROM t1;}
12d0: 5d 0a 7d 20 7b 30 20 36 7d 0a 0a 64 6f 5f 74 65  ].} {0 6}..do_te
12e0: 73 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e 39 2e  st shell5-1.4.9.
12f0: 32 20 7b 0a 20 20 63 61 74 63 68 63 6d 64 20 22  2 {.  catchcmd "
1300: 74 65 73 74 2e 64 62 22 20 7b 53 45 4c 45 43 54  test.db" {SELECT
1310: 20 62 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45   b FROM t1 WHERE
1320: 20 61 3d 27 36 27 3b 7d 0a 7d 20 7b 30 20 7b 27   a='6';}.} {0 {'
1330: 4e 6f 77 20 69 73 20 74 68 65 20 74 69 6d 65 20  Now is the time 
1340: 66 6f 72 20 61 6c 6c 20 67 6f 6f 64 20 6d 65 6e  for all good men
1350: 20 74 6f 20 63 6f 6d 65 20 74 6f 20 74 68 65 20   to come to the 
1360: 61 69 64 20 6f 66 20 74 68 65 69 72 20 63 6f 75  aid of their cou
1370: 6e 74 72 79 2e 27 7d 7d 0a 0a 23 20 69 6d 70 6f  ntry.'}}..# impo
1380: 72 74 20 66 69 6c 65 20 77 69 74 68 20 31 20 72  rt file with 1 r
1390: 6f 77 2c 20 32 20 63 6f 6c 75 6d 6e 73 2c 20 71  ow, 2 columns, q
13a0: 75 6f 74 65 64 20 74 65 78 74 20 64 61 74 61 0a  uoted text data.
13b0: 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 31  do_test shell5-1
13c0: 2e 34 2e 31 30 2e 31 20 7b 0a 20 20 73 65 74 20  .4.10.1 {.  set 
13d0: 69 6e 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e  in [open shell5.
13e0: 63 73 76 20 77 5d 0a 20 20 70 75 74 73 20 24 69  csv w].  puts $i
13f0: 6e 20 22 37 7c 5c 22 4e 6f 77 20 69 73 20 74 68  n "7|\"Now is th
1400: 65 20 74 69 6d 65 20 66 6f 72 20 61 6c 6c 20 67  e time for all g
1410: 6f 6f 64 20 6d 65 6e 20 74 6f 20 63 6f 6d 65 20  ood men to come 
1420: 74 6f 20 74 68 65 20 61 69 64 20 6f 66 20 74 68  to the aid of th
1430: 65 69 72 20 63 6f 75 6e 74 72 79 2e 5c 22 22 0a  eir country.\"".
1440: 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73 65    close $in.  se
1450: 74 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64 20  t res [catchcmd 
1460: 22 74 65 73 74 2e 64 62 22 20 7b 2e 69 6d 70 6f  "test.db" {.impo
1470: 72 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 31  rt shell5.csv t1
1480: 0a 53 45 4c 45 43 54 20 43 4f 55 4e 54 28 2a 29  .SELECT COUNT(*)
1490: 20 46 52 4f 4d 20 74 31 3b 7d 5d 0a 7d 20 7b 30   FROM t1;}].} {0
14a0: 20 37 7d 0a 0a 64 6f 5f 74 65 73 74 20 73 68 65   7}..do_test she
14b0: 6c 6c 35 2d 31 2e 34 2e 31 30 2e 32 20 7b 0a 20  ll5-1.4.10.2 {. 
14c0: 20 63 61 74 63 68 63 6d 64 20 22 74 65 73 74 2e   catchcmd "test.
14d0: 64 62 22 20 7b 53 45 4c 45 43 54 20 62 20 46 52  db" {SELECT b FR
14e0: 4f 4d 20 74 31 20 57 48 45 52 45 20 61 3d 27 37  OM t1 WHERE a='7
14f0: 27 3b 7d 0a 7d 20 7b 30 20 7b 4e 6f 77 20 69 73  ';}.} {0 {Now is
1500: 20 74 68 65 20 74 69 6d 65 20 66 6f 72 20 61 6c   the time for al
1510: 6c 20 67 6f 6f 64 20 6d 65 6e 20 74 6f 20 63 6f  l good men to co
1520: 6d 65 20 74 6f 20 74 68 65 20 61 69 64 20 6f 66  me to the aid of
1530: 20 74 68 65 69 72 20 63 6f 75 6e 74 72 79 2e 7d   their country.}
1540: 7d 0a 0a 23 20 69 6d 70 6f 72 74 20 66 69 6c 65  }..# import file
1550: 20 77 69 74 68 20 32 20 72 6f 77 73 2c 20 32 20   with 2 rows, 2 
1560: 63 6f 6c 75 6d 6e 73 20 61 6e 64 20 61 6e 20 69  columns and an i
1570: 6e 69 74 69 61 6c 20 42 4f 4d 0a 23 0a 64 6f 5f  nitial BOM.#.do_
1580: 74 65 73 74 20 73 68 65 6c 6c 35 2d 31 2e 34 2e  test shell5-1.4.
1590: 31 31 20 7b 0a 20 20 73 65 74 20 69 6e 20 5b 6f  11 {.  set in [o
15a0: 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77  pen shell5.csv w
15b0: 62 5d 0a 20 20 70 75 74 73 20 24 69 6e 20 22 5c  b].  puts $in "\
15c0: 78 65 66 5c 78 62 62 5c 78 62 66 32 7c 33 22 0a  xef\xbb\xbf2|3".
15d0: 20 20 70 75 74 73 20 24 69 6e 20 22 34 7c 35 22    puts $in "4|5"
15e0: 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73  .  close $in.  s
15f0: 65 74 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64  et res [catchcmd
1600: 20 22 74 65 73 74 2e 64 62 22 20 7b 43 52 45 41   "test.db" {CREA
1610: 54 45 20 54 41 42 4c 45 20 74 32 28 78 20 49 4e  TE TABLE t2(x IN
1620: 54 2c 20 79 20 49 4e 54 29 3b 0a 2e 69 6d 70 6f  T, y INT);..impo
1630: 72 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 32  rt shell5.csv t2
1640: 0a 2e 6d 6f 64 65 20 71 75 6f 74 65 0a 2e 68 65  ..mode quote..he
1650: 61 64 65 72 20 6f 6e 0a 53 45 4c 45 43 54 20 2a  ader on.SELECT *
1660: 20 46 52 4f 4d 20 74 32 3b 7d 5d 0a 20 73 74 72   FROM t2;}]. str
1670: 69 6e 67 20 6d 61 70 20 7b 5c 6e 20 7c 20 5c 6e  ing map {\n | \n
1680: 5c 72 20 7c 7d 20 24 72 65 73 0a 7d 20 7b 30 20  \r |} $res.} {0 
1690: 7b 27 78 27 2c 27 79 27 7c 32 2c 33 7c 34 2c 35  {'x','y'|2,3|4,5
16a0: 7d 7d 0a 0a 23 20 69 6d 70 6f 72 74 20 66 69 6c  }}..# import fil
16b0: 65 20 77 69 74 68 20 32 20 72 6f 77 73 2c 20 32  e with 2 rows, 2
16c0: 20 63 6f 6c 75 6d 6e 73 20 6f 72 20 74 65 78 74   columns or text
16d0: 20 77 69 74 68 20 61 6e 20 69 6e 69 74 69 61 6c   with an initial
16e0: 20 42 4f 4d 0a 23 0a 64 6f 5f 74 65 73 74 20 73   BOM.#.do_test s
16f0: 68 65 6c 6c 35 2d 31 2e 34 2e 31 32 20 7b 0a 20  hell5-1.4.12 {. 
1700: 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20 73 68   set in [open sh
1710: 65 6c 6c 35 2e 63 73 76 20 77 62 5d 0a 20 20 70  ell5.csv wb].  p
1720: 75 74 73 20 24 69 6e 20 22 5c 78 65 66 5c 78 62  uts $in "\xef\xb
1730: 62 5c 78 62 66 5c 22 74 77 6f 5c 22 7c 33 22 0a  b\xbf\"two\"|3".
1740: 20 20 70 75 74 73 20 24 69 6e 20 22 34 7c 35 22    puts $in "4|5"
1750: 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20 20 73  .  close $in.  s
1760: 65 74 20 72 65 73 20 5b 63 61 74 63 68 63 6d 64  et res [catchcmd
1770: 20 22 74 65 73 74 2e 64 62 22 20 7b 44 45 4c 45   "test.db" {DELE
1780: 54 45 20 46 52 4f 4d 20 74 32 3b 0a 2e 69 6d 70  TE FROM t2;..imp
1790: 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74  ort shell5.csv t
17a0: 32 0a 2e 6d 6f 64 65 20 71 75 6f 74 65 0a 2e 68  2..mode quote..h
17b0: 65 61 64 65 72 20 6f 6e 0a 53 45 4c 45 43 54 20  eader on.SELECT 
17c0: 2a 20 46 52 4f 4d 20 74 32 3b 7d 5d 0a 20 73 74  * FROM t2;}]. st
17d0: 72 69 6e 67 20 6d 61 70 20 7b 5c 6e 20 7c 20 5c  ring map {\n | \
17e0: 6e 5c 72 20 7c 7d 20 24 72 65 73 0a 7d 20 7b 30  n\r |} $res.} {0
17f0: 20 7b 27 78 27 2c 27 79 27 7c 27 74 77 6f 27 2c   {'x','y'|'two',
1800: 33 7c 34 2c 35 7d 7d 0a 0a 23 20 63 68 65 63 6b  3|4,5}}..# check
1810: 20 69 6d 70 6f 72 74 69 6e 67 20 76 65 72 79 20   importing very 
1820: 6c 6f 6e 67 20 66 69 65 6c 64 0a 64 6f 5f 74 65  long field.do_te
1830: 73 74 20 73 68 65 6c 6c 35 2d 31 2e 35 2e 31 20  st shell5-1.5.1 
1840: 7b 0a 20 20 73 65 74 20 73 74 72 20 5b 73 74 72  {.  set str [str
1850: 69 6e 67 20 72 65 70 65 61 74 20 58 20 39 39 39  ing repeat X 999
1860: 5d 0a 20 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e  ].  set in [open
1870: 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d 0a 20   shell5.csv w]. 
1880: 20 70 75 74 73 20 24 69 6e 20 22 38 7c 24 73 74   puts $in "8|$st
1890: 72 22 0a 20 20 63 6c 6f 73 65 20 24 69 6e 0a 20  r".  close $in. 
18a0: 20 73 65 74 20 72 65 73 20 5b 63 61 74 63 68 63   set res [catchc
18b0: 6d 64 20 22 74 65 73 74 2e 64 62 22 20 7b 2e 69  md "test.db" {.i
18c0: 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73 76  mport shell5.csv
18d0: 20 74 31 0a 53 45 4c 45 43 54 20 6c 65 6e 67 74   t1.SELECT lengt
18e0: 68 28 62 29 20 46 52 4f 4d 20 74 31 20 57 48 45  h(b) FROM t1 WHE
18f0: 52 45 20 61 3d 27 38 27 3b 7d 5d 0a 7d 20 7b 30  RE a='8';}].} {0
1900: 20 39 39 39 7d 0a 0a 23 20 74 72 79 20 69 6d 70   999}..# try imp
1910: 6f 72 74 69 6e 67 20 69 6e 74 6f 20 61 20 74 61  orting into a ta
1920: 62 6c 65 20 77 69 74 68 20 61 20 6c 61 72 67 65  ble with a large
1930: 20 6e 75 6d 62 65 72 20 6f 66 20 63 6f 6c 75 6d   number of colum
1940: 6e 73 2e 0a 23 20 54 68 69 73 20 69 73 20 6c 69  ns..# This is li
1950: 6d 69 74 65 64 20 62 79 20 53 51 4c 49 54 45 5f  mited by SQLITE_
1960: 4d 41 58 5f 56 41 52 49 41 42 4c 45 5f 4e 55 4d  MAX_VARIABLE_NUM
1970: 42 45 52 2c 20 77 68 69 63 68 20 64 65 66 61 75  BER, which defau
1980: 6c 74 73 20 74 6f 20 39 39 39 2e 0a 73 65 74 20  lts to 999..set 
1990: 63 6f 6c 73 20 39 39 39 0a 64 6f 5f 74 65 73 74  cols 999.do_test
19a0: 20 73 68 65 6c 6c 35 2d 31 2e 36 2e 31 20 7b 0a   shell5-1.6.1 {.
19b0: 20 20 73 65 74 20 64 61 74 61 20 7b 7d 0a 20 20    set data {}.  
19c0: 66 6f 72 20 7b 73 65 74 20 69 20 31 7d 20 7b 24  for {set i 1} {$
19d0: 69 3c 24 63 6f 6c 73 7d 20 7b 69 6e 63 72 20 69  i<$cols} {incr i
19e0: 7d 20 7b 0a 20 20 20 20 61 70 70 65 6e 64 20 64  } {.    append d
19f0: 61 74 61 20 22 63 24 69 7c 22 0a 20 20 7d 0a 20  ata "c$i|".  }. 
1a00: 20 61 70 70 65 6e 64 20 64 61 74 61 20 22 63 24   append data "c$
1a10: 63 6f 6c 73 5c 6e 22 3b 0a 20 20 66 6f 72 20 7b  cols\n";.  for {
1a20: 73 65 74 20 69 20 31 7d 20 7b 24 69 3c 24 63 6f  set i 1} {$i<$co
1a30: 6c 73 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  ls} {incr i} {. 
1a40: 20 20 20 61 70 70 65 6e 64 20 64 61 74 61 20 22     append data "
1a50: 24 69 7c 22 0a 20 20 7d 0a 20 20 61 70 70 65 6e  $i|".  }.  appen
1a60: 64 20 64 61 74 61 20 22 24 63 6f 6c 73 22 0a 20  d data "$cols". 
1a70: 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20 73 68   set in [open sh
1a80: 65 6c 6c 35 2e 63 73 76 20 77 5d 0a 20 20 70 75  ell5.csv w].  pu
1a90: 74 73 20 24 69 6e 20 24 64 61 74 61 0a 20 20 63  ts $in $data.  c
1aa0: 6c 6f 73 65 20 24 69 6e 0a 20 20 73 65 74 20 72  lose $in.  set r
1ab0: 65 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74 65  es [catchcmd "te
1ac0: 73 74 2e 64 62 22 20 7b 44 52 4f 50 20 54 41 42  st.db" {DROP TAB
1ad0: 4c 45 20 49 46 20 45 58 49 53 54 53 20 74 32 3b  LE IF EXISTS t2;
1ae0: 0a 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e  ..import shell5.
1af0: 63 73 76 20 74 32 0a 53 45 4c 45 43 54 20 43 4f  csv t2.SELECT CO
1b00: 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74 32 3b 7d  UNT(*) FROM t2;}
1b10: 5d 0a 7d 20 7b 30 20 31 7d 0a 0a 23 20 74 72 79  ].} {0 1}..# try
1b20: 20 69 6d 70 6f 72 74 69 6e 67 20 61 20 6c 61 72   importing a lar
1b30: 67 65 20 6e 75 6d 62 65 72 20 6f 66 20 72 6f 77  ge number of row
1b40: 73 0a 73 65 74 20 72 6f 77 73 20 39 39 39 39 0a  s.set rows 9999.
1b50: 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 31  do_test shell5-1
1b60: 2e 37 2e 31 20 7b 0a 20 20 73 65 74 20 69 6e 20  .7.1 {.  set in 
1b70: 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76  [open shell5.csv
1b80: 20 77 5d 0a 20 20 70 75 74 73 20 24 69 6e 20 61   w].  puts $in a
1b90: 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 20 31 7d  .  for {set i 1}
1ba0: 20 7b 24 69 3c 3d 24 72 6f 77 73 7d 20 7b 69 6e   {$i<=$rows} {in
1bb0: 63 72 20 69 7d 20 7b 0a 20 20 20 20 70 75 74 73  cr i} {.    puts
1bc0: 20 24 69 6e 20 24 69 0a 20 20 7d 0a 20 20 63 6c   $in $i.  }.  cl
1bd0: 6f 73 65 20 24 69 6e 0a 20 20 73 65 74 20 72 65  ose $in.  set re
1be0: 73 20 5b 63 61 74 63 68 63 6d 64 20 22 74 65 73  s [catchcmd "tes
1bf0: 74 2e 64 62 22 20 7b 2e 6d 6f 64 65 20 63 73 76  t.db" {.mode csv
1c00: 0a 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e  ..import shell5.
1c10: 63 73 76 20 74 33 0a 53 45 4c 45 43 54 20 43 4f  csv t3.SELECT CO
1c20: 55 4e 54 28 2a 29 20 46 52 4f 4d 20 74 33 3b 7d  UNT(*) FROM t3;}
1c30: 5d 0a 7d 20 5b 6c 69 73 74 20 30 20 24 72 6f 77  ].} [list 0 $row
1c40: 73 5d 0a 0a 23 20 49 6e 70 6f 72 74 20 66 72 6f  s]..# Inport fro
1c50: 6d 20 61 20 70 69 70 65 2e 20 20 28 55 6e 69 78  m a pipe.  (Unix
1c60: 20 6f 6e 6c 79 2c 20 61 73 20 69 74 20 72 65 71   only, as it req
1c70: 75 69 72 65 73 20 22 61 77 6b 22 29 0a 69 66 20  uires "awk").if 
1c80: 7b 24 74 63 6c 5f 70 6c 61 74 66 6f 72 6d 28 70  {$tcl_platform(p
1c90: 6c 61 74 66 6f 72 6d 29 3d 3d 22 75 6e 69 78 22  latform)=="unix"
1ca0: 7d 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 73 68  } {.  do_test sh
1cb0: 65 6c 6c 35 2d 31 2e 38 20 7b 0a 20 20 20 20 66  ell5-1.8 {.    f
1cc0: 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73 74 2e  orcedelete test.
1cd0: 64 62 0a 20 20 20 20 63 61 74 63 68 63 6d 64 20  db.    catchcmd 
1ce0: 74 65 73 74 2e 64 62 20 7b 2e 6d 6f 64 65 20 63  test.db {.mode c
1cf0: 73 76 0a 2e 69 6d 70 6f 72 74 20 22 7c 61 77 6b  sv..import "|awk
1d00: 20 27 45 4e 44 7b 70 72 69 6e 74 20 5c 22 78 2c   'END{print \"x,
1d10: 79 5c 22 3b 66 6f 72 28 69 3d 31 3b 69 3c 3d 35  y\";for(i=1;i<=5
1d20: 3b 69 2b 2b 29 7b 70 72 69 6e 74 20 69 20 5c 22  ;i++){print i \"
1d30: 2c 74 68 69 73 20 69 73 20 5c 22 20 69 7d 7d 27  ,this is \" i}}'
1d40: 22 20 74 31 0a 53 45 4c 45 43 54 20 2a 20 46 52  " t1.SELECT * FR
1d50: 4f 4d 20 74 31 3b 7d 0a 20 20 7d 20 7b 30 20 7b  OM t1;}.  } {0 {
1d60: 31 2c 22 74 68 69 73 20 69 73 20 31 22 0a 32 2c  1,"this is 1".2,
1d70: 22 74 68 69 73 20 69 73 20 32 22 0a 33 2c 22 74  "this is 2".3,"t
1d80: 68 69 73 20 69 73 20 33 22 0a 34 2c 22 74 68 69  his is 3".4,"thi
1d90: 73 20 69 73 20 34 22 0a 35 2c 22 74 68 69 73 20  s is 4".5,"this 
1da0: 69 73 20 35 22 7d 7d 0a 7d 0a 0a 23 20 49 6d 70  is 5"}}.}..# Imp
1db0: 6f 72 74 20 63 6f 6c 75 6d 6e 73 20 63 6f 6e 74  ort columns cont
1dc0: 61 69 6e 69 6e 67 20 71 75 6f 74 65 64 20 73 74  aining quoted st
1dd0: 72 69 6e 67 73 0a 64 6f 5f 74 65 73 74 20 73 68  rings.do_test sh
1de0: 65 6c 6c 35 2d 31 2e 39 20 7b 0a 20 20 73 65 74  ell5-1.9 {.  set
1df0: 20 6f 75 74 20 5b 6f 70 65 6e 20 73 68 65 6c 6c   out [open shell
1e00: 35 2e 63 73 76 20 77 5d 0a 20 20 66 63 6f 6e 66  5.csv w].  fconf
1e10: 69 67 75 72 65 20 24 6f 75 74 20 2d 74 72 61 6e  igure $out -tran
1e20: 73 6c 61 74 69 6f 6e 20 6c 66 0a 20 20 70 75 74  slation lf.  put
1e30: 73 20 24 6f 75 74 20 7b 31 2c 22 22 2c 31 31 7d  s $out {1,"",11}
1e40: 0a 20 20 70 75 74 73 20 24 6f 75 74 20 7b 32 2c  .  puts $out {2,
1e50: 22 78 22 2c 32 32 7d 0a 20 20 70 75 74 73 20 24  "x",22}.  puts $
1e60: 6f 75 74 20 7b 33 2c 22 22 22 22 2c 33 33 7d 0a  out {3,"""",33}.
1e70: 20 20 70 75 74 73 20 24 6f 75 74 20 7b 34 2c 22    puts $out {4,"
1e80: 68 65 6c 6c 6f 22 2c 34 34 7d 0a 20 20 70 75 74  hello",44}.  put
1e90: 73 20 24 6f 75 74 20 22 35 2c 35 35 2c 5c 22 5c  s $out "5,55,\"\
1ea0: 22 5c 72 22 0a 20 20 70 75 74 73 20 24 6f 75 74  "\r".  puts $out
1eb0: 20 7b 36 2c 36 36 2c 22 78 22 7d 0a 20 20 70 75   {6,66,"x"}.  pu
1ec0: 74 73 20 24 6f 75 74 20 7b 37 2c 37 37 2c 22 22  ts $out {7,77,""
1ed0: 22 22 7d 0a 20 20 70 75 74 73 20 24 6f 75 74 20  ""}.  puts $out 
1ee0: 7b 38 2c 38 38 2c 22 68 65 6c 6c 6f 22 7d 0a 20  {8,88,"hello"}. 
1ef0: 20 70 75 74 73 20 24 6f 75 74 20 7b 22 22 2c 39   puts $out {"",9
1f00: 2c 39 39 7d 0a 20 20 70 75 74 73 20 24 6f 75 74  ,99}.  puts $out
1f10: 20 7b 22 78 22 2c 31 30 2c 31 31 30 7d 0a 20 20   {"x",10,110}.  
1f20: 70 75 74 73 20 24 6f 75 74 20 7b 22 22 22 22 2c  puts $out {"""",
1f30: 31 31 2c 31 32 31 7d 0a 20 20 70 75 74 73 20 24  11,121}.  puts $
1f40: 6f 75 74 20 7b 22 68 65 6c 6c 6f 22 2c 31 32 2c  out {"hello",12,
1f50: 31 33 32 7d 0a 20 20 63 6c 6f 73 65 20 24 6f 75  132}.  close $ou
1f60: 74 0a 20 20 66 6f 72 63 65 64 65 6c 65 74 65 20  t.  forcedelete 
1f70: 74 65 73 74 2e 64 62 0a 20 20 63 61 74 63 68 63  test.db.  catchc
1f80: 6d 64 20 74 65 73 74 2e 64 62 20 7b 2e 6d 6f 64  md test.db {.mod
1f90: 65 20 63 73 76 0a 20 20 20 20 43 52 45 41 54 45  e csv.    CREATE
1fa0: 20 54 41 42 4c 45 20 74 31 28 61 2c 62 2c 63 29   TABLE t1(a,b,c)
1fb0: 3b 0a 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35  ;..import shell5
1fc0: 2e 63 73 76 20 74 31 0a 20 20 7d 0a 20 20 73 71  .csv t1.  }.  sq
1fd0: 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62  lite3 db test.db
1fe0: 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  .  db eval {SELE
1ff0: 43 54 20 2a 2c 20 27 7c 27 20 46 52 4f 4d 20 74  CT *, '|' FROM t
2000: 31 20 4f 52 44 45 52 20 42 59 20 72 6f 77 69 64  1 ORDER BY rowid
2010: 7d 0a 7d 20 7b 31 20 7b 7d 20 31 31 20 7c 20 32  }.} {1 {} 11 | 2
2020: 20 78 20 32 32 20 7c 20 33 20 7b 22 7d 20 33 33   x 22 | 3 {"} 33
2030: 20 7c 20 34 20 68 65 6c 6c 6f 20 34 34 20 7c 20   | 4 hello 44 | 
2040: 35 20 35 35 20 7b 7d 20 7c 20 36 20 36 36 20 78  5 55 {} | 6 66 x
2050: 20 7c 20 37 20 37 37 20 7b 22 7d 20 7c 20 38 20   | 7 77 {"} | 8 
2060: 38 38 20 68 65 6c 6c 6f 20 7c 20 7b 7d 20 39 20  88 hello | {} 9 
2070: 39 39 20 7c 20 78 20 31 30 20 31 31 30 20 7c 20  99 | x 10 110 | 
2080: 7b 22 7d 20 31 31 20 31 32 31 20 7c 20 68 65 6c  {"} 11 121 | hel
2090: 6c 6f 20 31 32 20 31 33 32 20 7c 7d 0a 64 62 20  lo 12 132 |}.db 
20a0: 63 6c 6f 73 65 0a 0a 23 20 49 6d 70 6f 72 74 20  close..# Import 
20b0: 63 6f 6c 75 6d 6e 73 20 63 6f 6e 74 61 69 6e 69  columns containi
20c0: 6e 67 20 71 75 6f 74 65 64 20 73 74 72 69 6e 67  ng quoted string
20d0: 73 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35  s.do_test shell5
20e0: 2d 31 2e 31 30 20 7b 0a 20 20 73 65 74 20 6f 75  -1.10 {.  set ou
20f0: 74 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e 63  t [open shell5.c
2100: 73 76 20 77 5d 0a 20 20 66 63 6f 6e 66 69 67 75  sv w].  fconfigu
2110: 72 65 20 24 6f 75 74 20 2d 74 72 61 6e 73 6c 61  re $out -transla
2120: 74 69 6f 6e 20 6c 66 0a 20 20 70 75 74 73 20 24  tion lf.  puts $
2130: 6f 75 74 20 7b 63 6f 6c 75 6d 6e 31 2c 63 6f 6c  out {column1,col
2140: 75 6d 6e 32 2c 63 6f 6c 75 6d 6e 33 2c 63 6f 6c  umn2,column3,col
2150: 75 6d 6e 34 7d 0a 20 20 70 75 74 73 20 24 6f 75  umn4}.  puts $ou
2160: 74 20 22 66 69 65 6c 64 31 2c 66 69 65 6c 64 32  t "field1,field2
2170: 2c 5c 22 78 33 20 5c 22 5c 22 5c 72 5c 6e 64 61  ,\"x3 \"\"\r\nda
2180: 74 61 5c 22 5c 22 20 33 5c 22 2c 66 69 65 6c 64  ta\"\" 3\",field
2190: 34 22 0a 20 20 70 75 74 73 20 24 6f 75 74 20 22  4".  puts $out "
21a0: 78 31 2c 78 32 2c 5c 22 78 33 20 5c 22 5c 22 5c  x1,x2,\"x3 \"\"\
21b0: 6e 64 61 74 61 5c 22 5c 22 20 33 5c 22 2c 78 34  ndata\"\" 3\",x4
21c0: 22 0a 20 20 63 6c 6f 73 65 20 24 6f 75 74 0a 20  ".  close $out. 
21d0: 20 66 6f 72 63 65 64 65 6c 65 74 65 20 74 65 73   forcedelete tes
21e0: 74 2e 64 62 0a 20 20 63 61 74 63 68 63 6d 64 20  t.db.  catchcmd 
21f0: 74 65 73 74 2e 64 62 20 7b 2e 6d 6f 64 65 20 63  test.db {.mode c
2200: 73 76 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  sv.    CREATE TA
2210: 42 4c 45 20 74 31 28 61 2c 62 2c 63 2c 64 29 3b  BLE t1(a,b,c,d);
2220: 0a 2e 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e  ..import shell5.
2230: 63 73 76 20 74 31 0a 20 20 7d 0a 20 20 73 71 6c  csv t1.  }.  sql
2240: 69 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 0a  ite3 db test.db.
2250: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43    db eval {SELEC
2260: 54 20 68 65 78 28 63 29 20 46 52 4f 4d 20 74 31  T hex(c) FROM t1
2270: 20 4f 52 44 45 52 20 42 59 20 72 6f 77 69 64 7d   ORDER BY rowid}
2280: 0a 7d 20 7b 36 33 36 46 36 43 37 35 36 44 36 45  .} {636F6C756D6E
2290: 33 33 20 37 38 33 33 32 30 32 32 30 44 30 41 36  33 783320220D0A6
22a0: 34 36 31 37 34 36 31 32 32 32 30 33 33 20 37 38  4617461222033 78
22b0: 33 33 32 30 32 32 30 41 36 34 36 31 37 34 36 31  3320220A64617461
22c0: 32 32 32 30 33 33 7d 0a 0a 23 20 42 6c 61 6e 6b  222033}..# Blank
22d0: 20 6c 61 73 74 20 63 6f 6c 75 6d 6e 20 77 69 74   last column wit
22e0: 68 20 5c 72 5c 6e 20 6c 69 6e 65 20 65 6e 64 69  h \r\n line endi
22f0: 6e 67 73 2e 0a 64 6f 5f 74 65 73 74 20 73 68 65  ngs..do_test she
2300: 6c 6c 35 2d 31 2e 31 31 20 7b 0a 20 20 73 65 74  ll5-1.11 {.  set
2310: 20 6f 75 74 20 5b 6f 70 65 6e 20 73 68 65 6c 6c   out [open shell
2320: 35 2e 63 73 76 20 77 5d 0a 20 20 66 63 6f 6e 66  5.csv w].  fconf
2330: 69 67 75 72 65 20 24 6f 75 74 20 2d 74 72 61 6e  igure $out -tran
2340: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20  slation binary. 
2350: 20 70 75 74 73 20 24 6f 75 74 20 22 63 6f 6c 75   puts $out "colu
2360: 6d 6e 31 2c 63 6f 6c 75 6d 6e 32 2c 63 6f 6c 75  mn1,column2,colu
2370: 6d 6e 33 5c 72 22 0a 20 20 70 75 74 73 20 24 6f  mn3\r".  puts $o
2380: 75 74 20 22 61 2c 62 2c 20 5c 72 22 0a 20 20 70  ut "a,b, \r".  p
2390: 75 74 73 20 24 6f 75 74 20 22 78 2c 79 2c 5c 72  uts $out "x,y,\r
23a0: 22 0a 20 20 70 75 74 73 20 24 6f 75 74 20 22 70  ".  puts $out "p
23b0: 2c 71 2c 72 5c 72 22 0a 20 20 63 6c 6f 73 65 20  ,q,r\r".  close 
23c0: 24 6f 75 74 0a 20 20 63 61 74 63 68 20 7b 64 62  $out.  catch {db
23d0: 20 63 6c 6f 73 65 7d 0a 20 20 66 6f 72 63 65 64   close}.  forced
23e0: 65 6c 65 74 65 20 74 65 73 74 2e 64 62 0a 20 20  elete test.db.  
23f0: 63 61 74 63 68 63 6d 64 20 74 65 73 74 2e 64 62  catchcmd test.db
2400: 20 7b 2e 6d 6f 64 65 20 63 73 76 0a 2e 69 6d 70   {.mode csv..imp
2410: 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74  ort shell5.csv t
2420: 31 0a 20 20 7d 0a 20 20 73 71 6c 69 74 65 33 20  1.  }.  sqlite3 
2430: 64 62 20 74 65 73 74 2e 64 62 0a 20 20 64 62 20  db test.db.  db 
2440: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 2c 20  eval {SELECT *, 
2450: 27 7c 27 20 46 52 4f 4d 20 74 31 7d 0a 7d 20 7b  '|' FROM t1}.} {
2460: 61 20 62 20 7b 20 7d 20 7c 20 78 20 79 20 7b 7d  a b { } | x y {}
2470: 20 7c 20 70 20 71 20 72 20 7c 7d 0a 64 62 20 63   | p q r |}.db c
2480: 6c 6f 73 65 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d  lose..#---------
2490: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
24d0: 2d 2d 2d 0a 23 20 0a 72 65 73 65 74 5f 64 62 0a  ---.# .reset_db.
24e0: 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74 2e  sqlite3 db test.
24f0: 64 62 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c  db.do_test shell
2500: 35 2d 32 2e 31 20 7b 0a 20 20 73 65 74 20 66 64  5-2.1 {.  set fd
2510: 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73   [open shell5.cs
2520: 76 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64 20  v w].  puts $fd 
2530: 22 2c 68 65 6c 6c 6f 22 0a 20 20 63 6c 6f 73 65  ",hello".  close
2540: 20 24 66 64 0a 20 20 63 61 74 63 68 63 6d 64 20   $fd.  catchcmd 
2550: 74 65 73 74 2e 64 62 20 5b 73 74 72 69 6e 67 20  test.db [string 
2560: 74 72 69 6d 20 7b 0a 2e 6d 6f 64 65 20 63 73 76  trim {..mode csv
2570: 0a 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 31  .CREATE TABLE t1
2580: 28 61 2c 20 62 29 3b 0a 2e 69 6d 70 6f 72 74 20  (a, b);..import 
2590: 73 68 65 6c 6c 35 2e 63 73 76 20 74 31 0a 20 20  shell5.csv t1.  
25a0: 7d 5d 0a 20 20 64 62 20 65 76 61 6c 20 7b 20 53  }].  db eval { S
25b0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20  ELECT * FROM t1 
25c0: 7d 0a 7d 20 7b 7b 7d 20 68 65 6c 6c 6f 7d 0a 0a  }.} {{} hello}..
25d0: 64 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 32  do_test shell5-2
25e0: 2e 32 20 7b 0a 20 20 73 65 74 20 66 64 20 5b 6f  .2 {.  set fd [o
25f0: 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77  pen shell5.csv w
2600: 5d 0a 20 20 70 75 74 73 20 24 66 64 20 7b 22 22  ].  puts $fd {""
2610: 2c 68 65 6c 6c 6f 7d 0a 20 20 63 6c 6f 73 65 20  ,hello}.  close 
2620: 24 66 64 0a 20 20 63 61 74 63 68 63 6d 64 20 74  $fd.  catchcmd t
2630: 65 73 74 2e 64 62 20 5b 73 74 72 69 6e 67 20 74  est.db [string t
2640: 72 69 6d 20 7b 0a 2e 6d 6f 64 65 20 63 73 76 0a  rim {..mode csv.
2650: 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 32 28  CREATE TABLE t2(
2660: 61 2c 20 62 29 3b 0a 2e 69 6d 70 6f 72 74 20 73  a, b);..import s
2670: 68 65 6c 6c 35 2e 63 73 76 20 74 32 0a 20 20 7d  hell5.csv t2.  }
2680: 5d 0a 20 20 64 62 20 65 76 61 6c 20 7b 20 53 45  ].  db eval { SE
2690: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 20 7d  LECT * FROM t2 }
26a0: 0a 7d 20 7b 7b 7d 20 68 65 6c 6c 6f 7d 0a 0a 64  .} {{} hello}..d
26b0: 6f 5f 74 65 73 74 20 73 68 65 6c 6c 35 2d 32 2e  o_test shell5-2.
26c0: 33 20 7b 0a 20 20 73 65 74 20 66 64 20 5b 6f 70  3 {.  set fd [op
26d0: 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20 77 5d  en shell5.csv w]
26e0: 0a 20 20 70 75 74 73 20 24 66 64 20 7b 22 78 22  .  puts $fd {"x"
26f0: 22 79 22 2c 68 65 6c 6c 6f 7d 0a 20 20 63 6c 6f  "y",hello}.  clo
2700: 73 65 20 24 66 64 0a 20 20 63 61 74 63 68 63 6d  se $fd.  catchcm
2710: 64 20 74 65 73 74 2e 64 62 20 5b 73 74 72 69 6e  d test.db [strin
2720: 67 20 74 72 69 6d 20 7b 0a 2e 6d 6f 64 65 20 63  g trim {..mode c
2730: 73 76 0a 43 52 45 41 54 45 20 54 41 42 4c 45 20  sv.CREATE TABLE 
2740: 74 33 28 61 2c 20 62 29 3b 0a 2e 69 6d 70 6f 72  t3(a, b);..impor
2750: 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74 33 0a  t shell5.csv t3.
2760: 20 20 7d 5d 0a 20 20 64 62 20 65 76 61 6c 20 7b    }].  db eval {
2770: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
2780: 33 20 7d 0a 7d 20 7b 78 5c 22 79 20 68 65 6c 6c  3 }.} {x\"y hell
2790: 6f 7d 0a 0a 64 6f 5f 74 65 73 74 20 73 68 65 6c  o}..do_test shel
27a0: 6c 35 2d 32 2e 34 20 7b 0a 20 20 73 65 74 20 66  l5-2.4 {.  set f
27b0: 64 20 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e 63  d [open shell5.c
27c0: 73 76 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64  sv w].  puts $fd
27d0: 20 7b 22 78 79 22 22 22 2c 68 65 6c 6c 6f 7d 0a   {"xy""",hello}.
27e0: 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 63 61    close $fd.  ca
27f0: 74 63 68 63 6d 64 20 74 65 73 74 2e 64 62 20 5b  tchcmd test.db [
2800: 73 74 72 69 6e 67 20 74 72 69 6d 20 7b 0a 2e 6d  string trim {..m
2810: 6f 64 65 20 63 73 76 0a 43 52 45 41 54 45 20 54  ode csv.CREATE T
2820: 41 42 4c 45 20 74 34 28 61 2c 20 62 29 3b 0a 2e  ABLE t4(a, b);..
2830: 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73  import shell5.cs
2840: 76 20 74 34 0a 20 20 7d 5d 0a 20 20 64 62 20 65  v t4.  }].  db e
2850: 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  val { SELECT * F
2860: 52 4f 4d 20 74 34 20 7d 0a 7d 20 7b 78 79 5c 22  ROM t4 }.} {xy\"
2870: 20 68 65 6c 6c 6f 7d 0a 0a 64 6f 5f 74 65 73 74   hello}..do_test
2880: 20 73 68 65 6c 6c 35 2d 32 2e 35 20 7b 0a 20 20   shell5-2.5 {.  
2890: 73 65 74 20 66 64 20 5b 6f 70 65 6e 20 73 68 65  set fd [open she
28a0: 6c 6c 35 2e 63 73 76 20 77 5d 0a 20 20 70 75 74  ll5.csv w].  put
28b0: 73 20 24 66 64 20 7b 22 6f 6e 65 22 2c 22 32 22  s $fd {"one","2"
28c0: 7d 0a 20 20 70 75 74 73 20 24 66 64 20 7b 7d 0a  }.  puts $fd {}.
28d0: 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 63 61    close $fd.  ca
28e0: 74 63 68 63 6d 64 20 74 65 73 74 2e 64 62 20 5b  tchcmd test.db [
28f0: 73 74 72 69 6e 67 20 74 72 69 6d 20 7b 0a 2e 6d  string trim {..m
2900: 6f 64 65 20 63 73 76 0a 43 52 45 41 54 45 20 54  ode csv.CREATE T
2910: 41 42 4c 45 20 74 34 28 61 2c 20 62 29 3b 0a 2e  ABLE t4(a, b);..
2920: 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73  import shell5.cs
2930: 76 20 74 34 0a 20 20 7d 5d 0a 20 20 64 62 20 65  v t4.  }].  db e
2940: 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  val { SELECT * F
2950: 52 4f 4d 20 74 34 20 7d 0a 7d 20 7b 78 79 5c 22  ROM t4 }.} {xy\"
2960: 20 68 65 6c 6c 6f 20 6f 6e 65 20 32 20 7b 7d 20   hello one 2 {} 
2970: 7b 7d 7d 0a 0a 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  {}}..#----------
2980: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2990: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
29c0: 2d 2d 0a 23 20 54 65 73 74 73 20 66 6f 72 20 74  --.# Tests for t
29d0: 68 65 20 73 68 65 6c 6c 20 22 61 73 63 69 69 22  he shell "ascii"
29e0: 20 69 6d 70 6f 72 74 2f 65 78 70 6f 72 74 20 6d   import/export m
29f0: 6f 64 65 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 73  ode..#.do_test s
2a00: 68 65 6c 6c 35 2d 33 2e 31 20 7b 0a 20 20 73 65  hell5-3.1 {.  se
2a10: 74 20 66 64 20 5b 6f 70 65 6e 20 73 68 65 6c 6c  t fd [open shell
2a20: 35 2e 63 73 76 20 77 5d 0a 20 20 66 63 6f 6e 66  5.csv w].  fconf
2a30: 69 67 75 72 65 20 24 66 64 20 2d 65 6e 63 6f 64  igure $fd -encod
2a40: 69 6e 67 20 62 69 6e 61 72 79 20 2d 74 72 61 6e  ing binary -tran
2a50: 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a 20  slation binary. 
2a60: 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e 65   puts -nonewline
2a70: 20 24 66 64 20 22 5c 22 74 65 73 74 20 31 5c 22   $fd "\"test 1\"
2a80: 5c 78 31 46 2c 74 65 73 74 20 32 5c 72 5c 6e 5c  \x1F,test 2\r\n\
2a90: 78 31 45 22 0a 20 20 70 75 74 73 20 2d 6e 6f 6e  x1E".  puts -non
2aa0: 65 77 6c 69 6e 65 20 24 66 64 20 22 74 65 73 74  ewline $fd "test
2ab0: 20 33 5c 78 31 46 74 65 73 74 20 34 5c 6e 22 0a   3\x1Ftest 4\n".
2ac0: 20 20 63 6c 6f 73 65 20 24 66 64 0a 20 20 63 61    close $fd.  ca
2ad0: 74 63 68 63 6d 64 20 74 65 73 74 2e 64 62 20 7b  tchcmd test.db {
2ae0: 0a 2e 6d 6f 64 65 20 61 73 63 69 69 0a 43 52 45  ..mode ascii.CRE
2af0: 41 54 45 20 54 41 42 4c 45 20 74 35 28 61 2c 20  ATE TABLE t5(a, 
2b00: 62 29 3b 0a 2e 69 6d 70 6f 72 74 20 73 68 65 6c  b);..import shel
2b10: 6c 35 2e 63 73 76 20 74 35 0a 20 20 7d 0a 20 20  l5.csv t5.  }.  
2b20: 64 62 20 65 76 61 6c 20 7b 20 53 45 4c 45 43 54  db eval { SELECT
2b30: 20 2a 20 46 52 4f 4d 20 74 35 20 7d 0a 7d 20 22   * FROM t5 }.} "
2b40: 5c 7b 5c 22 74 65 73 74 20 31 5c 22 7d 20 5c 7b  \{\"test 1\"} \{
2b50: 2c 74 65 73 74 20 32 5c 72 5c 6e 5c 7d 20 5c 7b  ,test 2\r\n\} \{
2b60: 74 65 73 74 20 33 5c 7d 20 5c 7b 74 65 73 74 20  test 3\} \{test 
2b70: 34 5c 6e 5c 7d 22 0a 0a 64 6f 5f 74 65 73 74 20  4\n\}"..do_test 
2b80: 73 68 65 6c 6c 35 2d 33 2e 32 20 7b 0a 20 20 73  shell5-3.2 {.  s
2b90: 65 74 20 78 20 5b 63 61 74 63 68 63 6d 64 20 74  et x [catchcmd t
2ba0: 65 73 74 2e 64 62 20 7b 0a 2e 6d 6f 64 65 20 61  est.db {..mode a
2bb0: 73 63 69 69 0a 53 45 4c 45 43 54 20 2a 20 46 52  scii.SELECT * FR
2bc0: 4f 4d 20 74 35 3b 0a 20 20 7d 5d 0a 20 20 23 20  OM t5;.  }].  # 
2bd0: 48 61 6e 64 6c 65 20 70 6c 61 74 66 6f 72 6d 20  Handle platform 
2be0: 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 64 69 66 66  end-of-line diff
2bf0: 65 72 65 6e 63 65 73 0a 20 20 72 65 67 73 75 62  erences.  regsub
2c00: 20 2d 61 6c 6c 20 7b 5b 5c 6e 5c 72 5d 3f 5c 6e   -all {[\n\r]?\n
2c10: 7d 20 24 78 20 3c 45 4f 4c 3e 20 78 0a 20 20 73  } $x <EOL> x.  s
2c20: 65 74 20 78 0a 7d 20 22 30 20 5c 7b 5c 22 74 65  et x.} "0 \{\"te
2c30: 73 74 20 31 5c 22 5c 78 31 46 2c 74 65 73 74 20  st 1\"\x1F,test 
2c40: 32 3c 45 4f 4c 3e 5c 78 31 45 74 65 73 74 20 33  2<EOL>\x1Etest 3
2c50: 5c 78 31 46 74 65 73 74 20 34 3c 45 4f 4c 3e 5c  \x1Ftest 4<EOL>\
2c60: 78 31 45 5c 7d 22 0a 0a 64 6f 5f 74 65 73 74 20  x1E\}"..do_test 
2c70: 73 68 65 6c 6c 35 2d 34 2e 31 20 7b 0a 20 20 66  shell5-4.1 {.  f
2c80: 6f 72 63 65 64 65 6c 65 74 65 20 73 68 65 6c 6c  orcedelete shell
2c90: 35 2e 63 73 76 0a 20 20 73 65 74 20 66 64 20 5b  5.csv.  set fd [
2ca0: 6f 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76 20  open shell5.csv 
2cb0: 77 5d 0a 20 20 70 75 74 73 20 24 66 64 20 22 31  w].  puts $fd "1
2cc0: 2c 32 2c 33 22 0a 20 20 70 75 74 73 20 24 66 64  ,2,3".  puts $fd
2cd0: 20 22 34 2c 35 22 0a 20 20 70 75 74 73 20 24 66   "4,5".  puts $f
2ce0: 64 20 22 36 2c 37 2c 38 22 0a 20 20 63 6c 6f 73  d "6,7,8".  clos
2cf0: 65 20 24 66 64 0a 20 20 63 61 74 63 68 63 6d 64  e $fd.  catchcmd
2d00: 20 74 65 73 74 2e 64 62 20 5b 73 74 72 69 6e 67   test.db [string
2d10: 20 74 72 69 6d 20 7b 0a 2e 6d 6f 64 65 20 63 73   trim {..mode cs
2d20: 76 0a 43 52 45 41 54 45 20 54 41 42 4c 45 20 74  v.CREATE TABLE t
2d30: 36 28 61 2c 20 62 2c 20 63 29 3b 0a 2e 69 6d 70  6(a, b, c);..imp
2d40: 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73 76 20 74  ort shell5.csv t
2d50: 36 0a 20 20 7d 5d 0a 20 20 64 62 20 65 76 61 6c  6.  }].  db eval
2d60: 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d   { SELECT * FROM
2d70: 20 74 36 20 4f 52 44 45 52 20 42 59 20 61 20 7d   t6 ORDER BY a }
2d80: 0a 7d 20 7b 31 20 32 20 33 20 34 20 35 20 7b 7d  .} {1 2 3 4 5 {}
2d90: 20 36 20 37 20 38 7d 0a 0a 64 6f 5f 74 65 73 74   6 7 8}..do_test
2da0: 20 73 68 65 6c 6c 35 2d 34 2e 32 20 7b 0a 20 20   shell5-4.2 {.  
2db0: 66 6f 72 63 65 64 65 6c 65 74 65 20 73 68 65 6c  forcedelete shel
2dc0: 6c 35 2e 63 73 76 0a 20 20 73 65 74 20 66 64 20  l5.csv.  set fd 
2dd0: 5b 6f 70 65 6e 20 73 68 65 6c 6c 35 2e 63 73 76  [open shell5.csv
2de0: 20 77 5d 0a 20 20 70 75 74 73 20 24 66 64 20 22   w].  puts $fd "
2df0: 31 2c 32 2c 33 22 0a 20 20 70 75 74 73 20 24 66  1,2,3".  puts $f
2e00: 64 20 22 34 2c 35 22 0a 20 20 70 75 74 73 20 24  d "4,5".  puts $
2e10: 66 64 20 22 36 2c 37 2c 38 2c 39 22 0a 20 20 63  fd "6,7,8,9".  c
2e20: 6c 6f 73 65 20 24 66 64 0a 20 20 63 61 74 63 68  lose $fd.  catch
2e30: 63 6d 64 20 74 65 73 74 2e 64 62 20 5b 73 74 72  cmd test.db [str
2e40: 69 6e 67 20 74 72 69 6d 20 7b 0a 2e 6d 6f 64 65  ing trim {..mode
2e50: 20 63 73 76 0a 43 52 45 41 54 45 20 54 41 42 4c   csv.CREATE TABL
2e60: 45 20 74 37 28 61 2c 20 62 2c 20 63 29 3b 0a 2e  E t7(a, b, c);..
2e70: 69 6d 70 6f 72 74 20 73 68 65 6c 6c 35 2e 63 73  import shell5.cs
2e80: 76 20 74 37 0a 20 20 7d 5d 0a 20 20 64 62 20 65  v t7.  }].  db e
2e90: 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  val { SELECT * F
2ea0: 52 4f 4d 20 74 37 20 4f 52 44 45 52 20 42 59 20  ROM t7 ORDER BY 
2eb0: 61 20 7d 0a 7d 20 7b 31 20 32 20 33 20 34 20 35  a }.} {1 2 3 4 5
2ec0: 20 7b 7d 20 36 20 37 20 38 7d 0a 0a 66 69 6e 69   {} 6 7 8}..fini
2ed0: 73 68 5f 74 65 73 74 0a                          sh_test.