/ Hex Artifact Content
Login

Artifact 1d73b9203b1ca8798d7d7310742b8d3febc0d56e:


0000: 23 20 32 30 30 31 20 53 65 70 74 65 6d 62 65 72  # 2001 September
0010: 20 31 35 0a 23 0a 23 20 54 68 65 20 61 75 74 68   15.#.# The auth
0020: 6f 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70  or disclaims cop
0030: 79 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73  yright to this s
0040: 6f 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20  ource code.  In 
0050: 70 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67  place of.# a leg
0060: 61 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20  al notice, here 
0070: 69 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23  is a blessing:.#
0080: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f  .#    May you do
0090: 20 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76   good and not ev
00a0: 69 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75  il..#    May you
00b0: 20 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73   find forgivenes
00c0: 73 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61  s for yourself a
00d0: 6e 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72  nd forgive other
00e0: 73 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  s..#    May you 
00f0: 73 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65  share freely, ne
0100: 76 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20  ver taking more 
0110: 74 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23  than you give..#
0120: 0a 23 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 2a 2a 2a 2a 0a 23 20 54 68 69 73  *********.# This
0170: 20 66 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73   file implements
0180: 20 72 65 67 72 65 73 73 69 6f 6e 20 74 65 73 74   regression test
0190: 73 20 66 6f 72 20 54 43 4c 20 69 6e 74 65 72 66  s for TCL interf
01a0: 61 63 65 20 74 6f 20 74 68 65 0a 23 20 53 51 4c  ace to the.# SQL
01b0: 69 74 65 20 6c 69 62 72 61 72 79 2e 20 0a 23 0a  ite library. .#.
01c0: 23 20 41 63 74 75 61 6c 6c 79 2c 20 61 6c 6c 20  # Actually, all 
01d0: 74 65 73 74 73 20 61 72 65 20 62 61 73 65 64 20  tests are based 
01e0: 6f 6e 20 74 68 65 20 54 43 4c 20 69 6e 74 65 72  on the TCL inter
01f0: 66 61 63 65 2c 20 73 6f 20 74 68 65 20 6d 61 69  face, so the mai
0200: 6e 0a 23 20 69 6e 74 65 72 66 61 63 65 20 69 73  n.# interface is
0210: 20 70 72 65 74 74 79 20 77 65 6c 6c 20 74 65 73   pretty well tes
0220: 74 65 64 2e 20 20 54 68 69 73 20 66 69 6c 65 20  ted.  This file 
0230: 63 6f 6e 74 61 69 6e 73 20 73 6f 6d 65 20 61 64  contains some ad
0240: 64 69 74 69 6f 6e 0a 23 20 74 65 73 74 73 20 66  dition.# tests f
0250: 6f 72 20 66 72 69 6e 67 65 20 69 73 73 75 65 73  or fringe issues
0260: 20 74 68 61 74 20 74 68 65 20 6d 61 69 6e 20 74   that the main t
0270: 65 73 74 20 73 75 69 74 65 20 64 6f 65 73 20 6e  est suite does n
0280: 6f 74 20 63 6f 76 65 72 2e 0a 23 0a 23 20 24 49  ot cover..#.# $I
0290: 64 3a 20 74 63 6c 73 71 6c 69 74 65 2e 74 65 73  d: tclsqlite.tes
02a0: 74 2c 76 20 31 2e 37 33 20 32 30 30 39 2f 30 33  t,v 1.73 2009/03
02b0: 2f 31 36 20 31 33 3a 31 39 3a 33 36 20 64 61 6e  /16 13:19:36 dan
02c0: 69 65 6c 6b 31 39 37 37 20 45 78 70 20 24 0a 0a  ielk1977 Exp $..
02d0: 73 65 74 20 74 65 73 74 64 69 72 20 5b 66 69 6c  set testdir [fil
02e0: 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76 30  e dirname $argv0
02f0: 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 69  ].source $testdi
0300: 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 23 20  r/tester.tcl..# 
0310: 43 68 65 63 6b 20 74 68 65 20 65 72 72 6f 72 20  Check the error 
0320: 6d 65 73 73 61 67 65 73 20 67 65 6e 65 72 61 74  messages generat
0330: 65 64 20 62 79 20 74 63 6c 73 71 6c 69 74 65 0a  ed by tclsqlite.
0340: 23 0a 73 65 74 20 72 20 22 73 71 6c 69 74 65 5f  #.set r "sqlite_
0350: 6f 72 69 67 20 48 41 4e 44 4c 45 20 46 49 4c 45  orig HANDLE FILE
0360: 4e 41 4d 45 20 3f 2d 76 66 73 20 56 46 53 4e 41  NAME ?-vfs VFSNA
0370: 4d 45 3f 20 3f 2d 72 65 61 64 6f 6e 6c 79 20 42  ME? ?-readonly B
0380: 4f 4f 4c 45 41 4e 3f 20 3f 2d 63 72 65 61 74 65  OOLEAN? ?-create
0390: 20 42 4f 4f 4c 45 41 4e 3f 20 3f 2d 6e 6f 6d 75   BOOLEAN? ?-nomu
03a0: 74 65 78 20 42 4f 4f 4c 45 41 4e 3f 20 3f 2d 66  tex BOOLEAN? ?-f
03b0: 75 6c 6c 6d 75 74 65 78 20 42 4f 4f 4c 45 41 4e  ullmutex BOOLEAN
03c0: 3f 20 3f 2d 75 72 69 20 42 4f 4f 4c 45 41 4e 3f  ? ?-uri BOOLEAN?
03d0: 22 0a 69 66 20 7b 5b 73 71 6c 69 74 65 33 20 2d  ".if {[sqlite3 -
03e0: 68 61 73 2d 63 6f 64 65 63 5d 7d 20 7b 0a 20 20  has-codec]} {.  
03f0: 61 70 70 65 6e 64 20 72 20 22 20 3f 2d 6b 65 79  append r " ?-key
0400: 20 43 4f 44 45 43 4b 45 59 3f 22 0a 7d 0a 64 6f   CODECKEY?".}.do
0410: 5f 74 65 73 74 20 74 63 6c 2d 31 2e 31 20 7b 0a  _test tcl-1.1 {.
0420: 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b    set v [catch {
0430: 73 71 6c 69 74 65 33 20 62 6f 67 75 73 7d 20 6d  sqlite3 bogus} m
0440: 73 67 5d 0a 20 20 72 65 67 73 75 62 20 7b 72 65  sg].  regsub {re
0450: 61 6c 6c 79 5f 73 71 6c 69 74 65 33 7d 20 24 6d  ally_sqlite3} $m
0460: 73 67 20 7b 73 71 6c 69 74 65 33 7d 20 6d 73 67  sg {sqlite3} msg
0470: 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73  .  lappend v $ms
0480: 67 0a 7d 20 5b 6c 69 73 74 20 31 20 22 77 72 6f  g.} [list 1 "wro
0490: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
04a0: 64 20 62 65 20 5c 22 24 72 5c 22 22 5d 0a 64 6f  d be \"$r\""].do
04b0: 5f 74 65 73 74 20 74 63 6c 2d 31 2e 32 20 7b 0a  _test tcl-1.2 {.
04c0: 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b    set v [catch {
04d0: 64 62 20 62 6f 67 75 73 7d 20 6d 73 67 5d 0a 20  db bogus} msg]. 
04e0: 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a   lappend v $msg.
04f0: 7d 20 7b 31 20 7b 62 61 64 20 6f 70 74 69 6f 6e  } {1 {bad option
0500: 20 22 62 6f 67 75 73 22 3a 20 6d 75 73 74 20 62   "bogus": must b
0510: 65 20 61 75 74 68 6f 72 69 7a 65 72 2c 20 62 61  e authorizer, ba
0520: 63 6b 75 70 2c 20 62 75 73 79 2c 20 63 61 63 68  ckup, busy, cach
0530: 65 2c 20 63 68 61 6e 67 65 73 2c 20 63 6c 6f 73  e, changes, clos
0540: 65 2c 20 63 6f 6c 6c 61 74 65 2c 20 63 6f 6c 6c  e, collate, coll
0550: 61 74 69 6f 6e 5f 6e 65 65 64 65 64 2c 20 63 6f  ation_needed, co
0560: 6d 6d 69 74 5f 68 6f 6f 6b 2c 20 63 6f 6d 70 6c  mmit_hook, compl
0570: 65 74 65 2c 20 63 6f 70 79 2c 20 65 6e 61 62 6c  ete, copy, enabl
0580: 65 5f 6c 6f 61 64 5f 65 78 74 65 6e 73 69 6f 6e  e_load_extension
0590: 2c 20 65 72 72 6f 72 63 6f 64 65 2c 20 65 76 61  , errorcode, eva
05a0: 6c 2c 20 65 78 69 73 74 73 2c 20 66 75 6e 63 74  l, exists, funct
05b0: 69 6f 6e 2c 20 69 6e 63 72 62 6c 6f 62 2c 20 69  ion, incrblob, i
05c0: 6e 74 65 72 72 75 70 74 2c 20 6c 61 73 74 5f 69  nterrupt, last_i
05d0: 6e 73 65 72 74 5f 72 6f 77 69 64 2c 20 6e 75 6c  nsert_rowid, nul
05e0: 6c 76 61 6c 75 65 2c 20 6f 6e 65 63 6f 6c 75 6d  lvalue, onecolum
05f0: 6e 2c 20 70 72 65 75 70 64 61 74 65 2c 20 70 72  n, preupdate, pr
0600: 6f 66 69 6c 65 2c 20 70 72 6f 67 72 65 73 73 2c  ofile, progress,
0610: 20 72 65 6b 65 79 2c 20 72 65 73 74 6f 72 65 2c   rekey, restore,
0620: 20 72 6f 6c 6c 62 61 63 6b 5f 68 6f 6f 6b 2c 20   rollback_hook, 
0630: 73 74 61 74 75 73 2c 20 74 69 6d 65 6f 75 74 2c  status, timeout,
0640: 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 2c 20   total_changes, 
0650: 74 72 61 63 65 2c 20 74 72 61 63 65 5f 76 32 2c  trace, trace_v2,
0660: 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 75 6e   transaction, un
0670: 6c 6f 63 6b 5f 6e 6f 74 69 66 79 2c 20 75 70 64  lock_notify, upd
0680: 61 74 65 5f 68 6f 6f 6b 2c 20 76 65 72 73 69 6f  ate_hook, versio
0690: 6e 2c 20 6f 72 20 77 61 6c 5f 68 6f 6f 6b 7d 7d  n, or wal_hook}}
06a0: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e 32  .do_test tcl-1.2
06b0: 2e 31 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 61  .1 {.  set v [ca
06c0: 74 63 68 20 7b 64 62 20 63 61 63 68 65 20 62 6f  tch {db cache bo
06d0: 67 75 73 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70  gus} msg].  lapp
06e0: 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20  end v $msg.} {1 
06f0: 7b 62 61 64 20 6f 70 74 69 6f 6e 20 22 62 6f 67  {bad option "bog
0700: 75 73 22 3a 20 6d 75 73 74 20 62 65 20 66 6c 75  us": must be flu
0710: 73 68 20 6f 72 20 73 69 7a 65 7d 7d 0a 64 6f 5f  sh or size}}.do_
0720: 74 65 73 74 20 74 63 6c 2d 31 2e 32 2e 32 20 7b  test tcl-1.2.2 {
0730: 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20  .  set v [catch 
0740: 7b 64 62 20 63 61 63 68 65 7d 20 6d 73 67 5d 0a  {db cache} msg].
0750: 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67    lappend v $msg
0760: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61  .} {1 {wrong # a
0770: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22  rgs: should be "
0780: 64 62 20 63 61 63 68 65 20 6f 70 74 69 6f 6e 20  db cache option 
0790: 3f 61 72 67 3f 22 7d 7d 0a 64 6f 5f 74 65 73 74  ?arg?"}}.do_test
07a0: 20 74 63 6c 2d 31 2e 33 20 7b 0a 20 20 65 78 65   tcl-1.3 {.  exe
07b0: 63 73 71 6c 20 7b 43 52 45 41 54 45 20 54 41 42  csql {CREATE TAB
07c0: 4c 45 20 74 31 28 61 20 69 6e 74 2c 20 62 20 69  LE t1(a int, b i
07d0: 6e 74 29 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b  nt)}.  execsql {
07e0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
07f0: 41 4c 55 45 53 28 31 30 2c 32 30 29 7d 0a 20 20  ALUES(10,20)}.  
0800: 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 0a 20  set v [catch {. 
0810: 20 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45     db eval {SELE
0820: 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 64 61  CT * FROM t1} da
0830: 74 61 20 7b 0a 20 20 20 20 20 20 65 72 72 6f 72  ta {.      error
0840: 20 22 54 68 65 20 65 72 72 6f 72 20 6d 65 73 73   "The error mess
0850: 61 67 65 22 0a 20 20 20 20 7d 0a 20 20 7d 20 6d  age".    }.  } m
0860: 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20  sg].  lappend v 
0870: 24 6d 73 67 0a 7d 20 7b 31 20 7b 54 68 65 20 65  $msg.} {1 {The e
0880: 72 72 6f 72 20 6d 65 73 73 61 67 65 7d 7d 0a 64  rror message}}.d
0890: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e 34 20 7b  o_test tcl-1.4 {
08a0: 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20  .  set v [catch 
08b0: 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 53  {.    db eval {S
08c0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 7d  ELECT * FROM t2}
08d0: 20 64 61 74 61 20 7b 0a 20 20 20 20 20 20 65 72   data {.      er
08e0: 72 6f 72 20 22 54 68 65 20 65 72 72 6f 72 20 6d  ror "The error m
08f0: 65 73 73 61 67 65 22 0a 20 20 20 20 7d 0a 20 20  essage".    }.  
0900: 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64  } msg].  lappend
0910: 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6e 6f   v $msg.} {1 {no
0920: 20 73 75 63 68 20 74 61 62 6c 65 3a 20 74 32 7d   such table: t2}
0930: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e  }.do_test tcl-1.
0940: 35 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 74  5 {.  set v [cat
0950: 63 68 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c  ch {.    db eval
0960: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   {SELECT * FROM 
0970: 74 31 7d 20 64 61 74 61 20 7b 0a 20 20 20 20 20  t1} data {.     
0980: 20 62 72 65 61 6b 0a 20 20 20 20 7d 0a 20 20 7d   break.    }.  }
0990: 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20   msg].  lappend 
09a0: 76 20 24 6d 73 67 0a 7d 20 7b 30 20 7b 7d 7d 0a  v $msg.} {0 {}}.
09b0: 63 61 74 63 68 20 7b 65 78 70 72 20 78 2a 7d 20  catch {expr x*} 
09c0: 6d 73 67 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d  msg.do_test tcl-
09d0: 31 2e 36 20 7b 0a 20 20 73 65 74 20 76 20 5b 63  1.6 {.  set v [c
09e0: 61 74 63 68 20 7b 0a 20 20 20 20 64 62 20 65 76  atch {.    db ev
09f0: 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f  al {SELECT * FRO
0a00: 4d 20 74 31 7d 20 64 61 74 61 20 7b 0a 20 20 20  M t1} data {.   
0a10: 20 20 20 65 78 70 72 20 78 2a 0a 20 20 20 20 7d     expr x*.    }
0a20: 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70  .  } msg].  lapp
0a30: 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 5b 6c 69  end v $msg.} [li
0a40: 73 74 20 31 20 24 6d 73 67 5d 0a 64 6f 5f 74 65  st 1 $msg].do_te
0a50: 73 74 20 74 63 6c 2d 31 2e 37 20 7b 0a 20 20 73  st tcl-1.7 {.  s
0a60: 65 74 20 76 20 5b 63 61 74 63 68 20 7b 64 62 7d  et v [catch {db}
0a70: 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20   msg].  lappend 
0a80: 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f  v $msg.} {1 {wro
0a90: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
0aa0: 64 20 62 65 20 22 64 62 20 53 55 42 43 4f 4d 4d  d be "db SUBCOMM
0ab0: 41 4e 44 20 2e 2e 2e 22 7d 7d 0a 69 66 20 7b 5b  AND ..."}}.if {[
0ac0: 63 61 74 63 68 20 7b 64 62 20 61 75 74 68 20 7b  catch {db auth {
0ad0: 7d 7d 5d 3d 3d 30 7d 20 7b 0a 20 20 64 6f 5f 74  }}]==0} {.  do_t
0ae0: 65 73 74 20 74 63 6c 2d 31 2e 38 20 7b 0a 20 20  est tcl-1.8 {.  
0af0: 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b    set v [catch {
0b00: 64 62 20 61 75 74 68 6f 72 69 7a 65 72 20 31 20  db authorizer 1 
0b10: 32 20 33 7d 20 6d 73 67 5d 0a 20 20 20 20 6c 61  2 3} msg].    la
0b20: 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 20 20 7d  ppend v $msg.  }
0b30: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67   {1 {wrong # arg
0b40: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62  s: should be "db
0b50: 20 61 75 74 68 6f 72 69 7a 65 72 20 3f 43 41 4c   authorizer ?CAL
0b60: 4c 42 41 43 4b 3f 22 7d 7d 0a 7d 0a 64 6f 5f 74  LBACK?"}}.}.do_t
0b70: 65 73 74 20 74 63 6c 2d 31 2e 39 20 7b 0a 20 20  est tcl-1.9 {.  
0b80: 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 64 62  set v [catch {db
0b90: 20 62 75 73 79 20 31 20 32 20 33 7d 20 6d 73 67   busy 1 2 3} msg
0ba0: 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d  ].  lappend v $m
0bb0: 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23  sg.} {1 {wrong #
0bc0: 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65   args: should be
0bd0: 20 22 64 62 20 62 75 73 79 20 43 41 4c 4c 42 41   "db busy CALLBA
0be0: 43 4b 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63  CK"}}.do_test tc
0bf0: 6c 2d 31 2e 31 30 20 7b 0a 20 20 73 65 74 20 76  l-1.10 {.  set v
0c00: 20 5b 63 61 74 63 68 20 7b 64 62 20 70 72 6f 67   [catch {db prog
0c10: 72 65 73 73 20 31 7d 20 6d 73 67 5d 0a 20 20 6c  ress 1} msg].  l
0c20: 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20  append v $msg.} 
0c30: 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73  {1 {wrong # args
0c40: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 20  : should be "db 
0c50: 70 72 6f 67 72 65 73 73 20 4e 20 43 41 4c 4c 42  progress N CALLB
0c60: 41 43 4b 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 74  ACK"}}.do_test t
0c70: 63 6c 2d 31 2e 31 31 20 7b 0a 20 20 73 65 74 20  cl-1.11 {.  set 
0c80: 76 20 5b 63 61 74 63 68 20 7b 64 62 20 63 68 61  v [catch {db cha
0c90: 6e 67 65 73 20 78 79 7a 7d 20 6d 73 67 5d 0a 20  nges xyz} msg]. 
0ca0: 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a   lappend v $msg.
0cb0: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72  } {1 {wrong # ar
0cc0: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64  gs: should be "d
0cd0: 62 20 63 68 61 6e 67 65 73 20 22 7d 7d 0a 64 6f  b changes "}}.do
0ce0: 5f 74 65 73 74 20 74 63 6c 2d 31 2e 31 32 20 7b  _test tcl-1.12 {
0cf0: 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20  .  set v [catch 
0d00: 7b 64 62 20 63 6f 6d 6d 69 74 5f 68 6f 6f 6b 20  {db commit_hook 
0d10: 61 20 62 20 63 7d 20 6d 73 67 5d 0a 20 20 6c 61  a b c} msg].  la
0d20: 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 7b  ppend v $msg.} {
0d30: 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a  1 {wrong # args:
0d40: 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 20 63   should be "db c
0d50: 6f 6d 6d 69 74 5f 68 6f 6f 6b 20 3f 43 41 4c 4c  ommit_hook ?CALL
0d60: 42 41 43 4b 3f 22 7d 7d 0a 69 66 63 61 70 61 62  BACK?"}}.ifcapab
0d70: 6c 65 20 7b 63 6f 6d 70 6c 65 74 65 7d 20 7b 0a  le {complete} {.
0d80: 20 20 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e    do_test tcl-1.
0d90: 31 33 20 7b 0a 20 20 20 20 73 65 74 20 76 20 5b  13 {.    set v [
0da0: 63 61 74 63 68 20 7b 64 62 20 63 6f 6d 70 6c 65  catch {db comple
0db0: 74 65 7d 20 6d 73 67 5d 0a 20 20 20 20 6c 61 70  te} msg].    lap
0dc0: 70 65 6e 64 20 76 20 24 6d 73 67 0a 20 20 7d 20  pend v $msg.  } 
0dd0: 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73  {1 {wrong # args
0de0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 20  : should be "db 
0df0: 63 6f 6d 70 6c 65 74 65 20 53 51 4c 22 7d 7d 0a  complete SQL"}}.
0e00: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e  }.do_test tcl-1.
0e10: 31 34 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 61  14 {.  set v [ca
0e20: 74 63 68 20 7b 64 62 20 65 76 61 6c 7d 20 6d 73  tch {db eval} ms
0e30: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24  g].  lappend v $
0e40: 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20  msg.} {1 {wrong 
0e50: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
0e60: 65 20 22 64 62 20 65 76 61 6c 20 53 51 4c 20 3f  e "db eval SQL ?
0e70: 41 52 52 41 59 2d 4e 41 4d 45 3f 20 3f 53 43 52  ARRAY-NAME? ?SCR
0e80: 49 50 54 3f 22 7d 7d 0a 64 6f 5f 74 65 73 74 20  IPT?"}}.do_test 
0e90: 74 63 6c 2d 31 2e 31 35 20 7b 0a 20 20 73 65 74  tcl-1.15 {.  set
0ea0: 20 76 20 5b 63 61 74 63 68 20 7b 64 62 20 66 75   v [catch {db fu
0eb0: 6e 63 74 69 6f 6e 7d 20 6d 73 67 5d 0a 20 20 6c  nction} msg].  l
0ec0: 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20  append v $msg.} 
0ed0: 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73  {1 {wrong # args
0ee0: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 20  : should be "db 
0ef0: 66 75 6e 63 74 69 6f 6e 20 4e 41 4d 45 20 3f 53  function NAME ?S
0f00: 57 49 54 43 48 45 53 3f 20 53 43 52 49 50 54 22  WITCHES? SCRIPT"
0f10: 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31  }}.do_test tcl-1
0f20: 2e 31 36 20 7b 0a 20 20 73 65 74 20 76 20 5b 63  .16 {.  set v [c
0f30: 61 74 63 68 20 7b 64 62 20 6c 61 73 74 5f 69 6e  atch {db last_in
0f40: 73 65 72 74 5f 72 6f 77 69 64 20 78 79 7a 7d 20  sert_rowid xyz} 
0f50: 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76  msg].  lappend v
0f60: 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e   $msg.} {1 {wron
0f70: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64  g # args: should
0f80: 20 62 65 20 22 64 62 20 6c 61 73 74 5f 69 6e 73   be "db last_ins
0f90: 65 72 74 5f 72 6f 77 69 64 20 22 7d 7d 0a 64 6f  ert_rowid "}}.do
0fa0: 5f 74 65 73 74 20 74 63 6c 2d 31 2e 31 37 20 7b  _test tcl-1.17 {
0fb0: 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20  .  set v [catch 
0fc0: 7b 64 62 20 72 65 6b 65 79 7d 20 6d 73 67 5d 0a  {db rekey} msg].
0fd0: 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67    lappend v $msg
0fe0: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61  .} {1 {wrong # a
0ff0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22  rgs: should be "
1000: 64 62 20 72 65 6b 65 79 20 4b 45 59 22 7d 7d 0a  db rekey KEY"}}.
1010: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e 31 38  do_test tcl-1.18
1020: 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63   {.  set v [catc
1030: 68 20 7b 64 62 20 74 69 6d 65 6f 75 74 7d 20 6d  h {db timeout} m
1040: 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20  sg].  lappend v 
1050: 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67  $msg.} {1 {wrong
1060: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20   # args: should 
1070: 62 65 20 22 64 62 20 74 69 6d 65 6f 75 74 20 4d  be "db timeout M
1080: 49 4c 4c 49 53 45 43 4f 4e 44 53 22 7d 7d 0a 64  ILLISECONDS"}}.d
1090: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e 31 39 20  o_test tcl-1.19 
10a0: 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68  {.  set v [catch
10b0: 20 7b 64 62 20 63 6f 6c 6c 61 74 65 7d 20 6d 73   {db collate} ms
10c0: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24  g].  lappend v $
10d0: 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20  msg.} {1 {wrong 
10e0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62  # args: should b
10f0: 65 20 22 64 62 20 63 6f 6c 6c 61 74 65 20 4e 41  e "db collate NA
1100: 4d 45 20 53 43 52 49 50 54 22 7d 7d 0a 64 6f 5f  ME SCRIPT"}}.do_
1110: 74 65 73 74 20 74 63 6c 2d 31 2e 32 30 20 7b 0a  test tcl-1.20 {.
1120: 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b    set v [catch {
1130: 64 62 20 63 6f 6c 6c 61 74 69 6f 6e 5f 6e 65 65  db collation_nee
1140: 64 65 64 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70  ded} msg].  lapp
1150: 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20  end v $msg.} {1 
1160: 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73  {wrong # args: s
1170: 68 6f 75 6c 64 20 62 65 20 22 64 62 20 63 6f 6c  hould be "db col
1180: 6c 61 74 69 6f 6e 5f 6e 65 65 64 65 64 20 53 43  lation_needed SC
1190: 52 49 50 54 22 7d 7d 0a 64 6f 5f 74 65 73 74 20  RIPT"}}.do_test 
11a0: 74 63 6c 2d 31 2e 32 31 20 7b 0a 20 20 73 65 74  tcl-1.21 {.  set
11b0: 20 76 20 5b 63 61 74 63 68 20 7b 64 62 20 74 6f   v [catch {db to
11c0: 74 61 6c 5f 63 68 61 6e 67 65 73 20 78 79 7a 7d  tal_changes xyz}
11d0: 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20   msg].  lappend 
11e0: 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f  v $msg.} {1 {wro
11f0: 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c  ng # args: shoul
1200: 64 20 62 65 20 22 64 62 20 74 6f 74 61 6c 5f 63  d be "db total_c
1210: 68 61 6e 67 65 73 20 22 7d 7d 0a 64 6f 5f 74 65  hanges "}}.do_te
1220: 73 74 20 74 63 6c 2d 31 2e 32 32 20 7b 0a 20 20  st tcl-1.22 {.  
1230: 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 64 62  set v [catch {db
1240: 20 63 6f 70 79 7d 20 6d 73 67 5d 0a 20 20 6c 61   copy} msg].  la
1250: 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 7b  ppend v $msg.} {
1260: 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a  1 {wrong # args:
1270: 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 20 63   should be "db c
1280: 6f 70 79 20 43 4f 4e 46 4c 49 43 54 2d 41 4c 47  opy CONFLICT-ALG
1290: 4f 52 49 54 48 4d 20 54 41 42 4c 45 20 46 49 4c  ORITHM TABLE FIL
12a0: 45 4e 41 4d 45 20 3f 53 45 50 41 52 41 54 4f 52  ENAME ?SEPARATOR
12b0: 3f 20 3f 4e 55 4c 4c 49 4e 44 49 43 41 54 4f 52  ? ?NULLINDICATOR
12c0: 3f 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c  ?"}}.do_test tcl
12d0: 2d 31 2e 32 33 20 7b 0a 20 20 73 65 74 20 76 20  -1.23 {.  set v 
12e0: 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33 20  [catch {sqlite3 
12f0: 64 62 32 20 74 65 73 74 2e 64 62 20 2d 76 66 73  db2 test.db -vfs
1300: 20 6e 6f 73 75 63 68 76 66 73 7d 20 6d 73 67 5d   nosuchvfs} msg]
1310: 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73  .  lappend v $ms
1320: 67 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20  g.} {1 {no such 
1330: 76 66 73 3a 20 6e 6f 73 75 63 68 76 66 73 7d 7d  vfs: nosuchvfs}}
1340: 0a 0a 63 61 74 63 68 20 7b 75 6e 73 65 74 20 3a  ..catch {unset :
1350: 3a 72 65 73 75 6c 74 7d 0a 64 6f 5f 74 65 73 74  :result}.do_test
1360: 20 74 63 6c 2d 32 2e 31 20 7b 0a 20 20 65 78 65   tcl-2.1 {.  exe
1370: 63 73 71 6c 20 22 43 52 45 41 54 45 20 54 41 42  csql "CREATE TAB
1380: 4c 45 20 74 5c 75 30 31 32 33 78 28 61 20 69 6e  LE t\u0123x(a in
1390: 74 2c 20 62 5c 75 31 32 33 35 20 66 6c 6f 61 74  t, b\u1235 float
13a0: 29 22 0a 7d 20 7b 7d 0a 69 66 63 61 70 61 62 6c  )".} {}.ifcapabl
13b0: 65 20 73 63 68 65 6d 61 5f 70 72 61 67 6d 61 73  e schema_pragmas
13c0: 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 74 63 6c   {.  do_test tcl
13d0: 2d 32 2e 32 20 7b 0a 20 20 20 20 65 78 65 63 73  -2.2 {.    execs
13e0: 71 6c 20 22 50 52 41 47 4d 41 20 74 61 62 6c 65  ql "PRAGMA table
13f0: 5f 69 6e 66 6f 28 74 5c 75 30 31 32 33 78 29 22  _info(t\u0123x)"
1400: 0a 20 20 7d 20 22 30 20 61 20 69 6e 74 20 30 20  .  } "0 a int 0 
1410: 7b 7d 20 30 20 31 20 62 5c 75 31 32 33 35 20 66  {} 0 1 b\u1235 f
1420: 6c 6f 61 74 20 30 20 7b 7d 20 30 22 0a 7d 0a 64  loat 0 {} 0".}.d
1430: 6f 5f 74 65 73 74 20 74 63 6c 2d 32 2e 33 20 7b  o_test tcl-2.3 {
1440: 0a 20 20 65 78 65 63 73 71 6c 20 22 49 4e 53 45  .  execsql "INSE
1450: 52 54 20 49 4e 54 4f 20 74 5c 75 30 31 32 33 78  RT INTO t\u0123x
1460: 20 56 41 4c 55 45 53 28 31 2c 32 2e 33 29 22 0a   VALUES(1,2.3)".
1470: 20 20 64 62 20 65 76 61 6c 20 22 53 45 4c 45 43    db eval "SELEC
1480: 54 20 2a 20 46 52 4f 4d 20 74 5c 75 30 31 32 33  T * FROM t\u0123
1490: 78 22 20 72 65 73 75 6c 74 20 62 72 65 61 6b 0a  x" result break.
14a0: 20 20 73 65 74 20 72 65 73 75 6c 74 28 2a 29 0a    set result(*).
14b0: 7d 20 22 61 20 62 5c 75 31 32 33 35 22 0a 0a 0a  } "a b\u1235"...
14c0: 23 20 54 65 73 74 20 74 68 65 20 6f 6e 65 63 6f  # Test the oneco
14d0: 6c 75 6d 6e 20 6d 65 74 68 6f 64 0a 23 0a 64 6f  lumn method.#.do
14e0: 5f 74 65 73 74 20 74 63 6c 2d 33 2e 31 20 7b 0a  _test tcl-3.1 {.
14f0: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
1500: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 53  INSERT INTO t1 S
1510: 45 4c 45 43 54 20 61 2a 32 2c 20 62 2a 32 20 46  ELECT a*2, b*2 F
1520: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 49 4e 53 45  ROM t1;.    INSE
1530: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1540: 54 20 61 2a 32 2b 31 2c 20 62 2a 32 2b 31 20 46  T a*2+1, b*2+1 F
1550: 52 4f 4d 20 74 31 3b 0a 20 20 20 20 49 4e 53 45  ROM t1;.    INSE
1560: 52 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43  RT INTO t1 SELEC
1570: 54 20 61 2a 32 2b 33 2c 20 62 2a 32 2b 33 20 46  T a*2+3, b*2+3 F
1580: 52 4f 4d 20 74 31 3b 0a 20 20 7d 0a 20 20 73 65  ROM t1;.  }.  se
1590: 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64 62 20  t rc [catch {db 
15a0: 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43  onecolumn {SELEC
15b0: 54 20 2a 20 46 52 4f 4d 20 74 31 20 4f 52 44 45  T * FROM t1 ORDE
15c0: 52 20 42 59 20 61 7d 7d 20 6d 73 67 5d 0a 20 20  R BY a}} msg].  
15d0: 6c 61 70 70 65 6e 64 20 72 63 20 24 6d 73 67 0a  lappend rc $msg.
15e0: 7d 20 7b 30 20 31 30 7d 0a 64 6f 5f 74 65 73 74  } {0 10}.do_test
15f0: 20 74 63 6c 2d 33 2e 32 20 7b 0a 20 20 64 62 20   tcl-3.2 {.  db 
1600: 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43  onecolumn {SELEC
1610: 54 20 2a 20 46 52 4f 4d 20 74 31 20 57 48 45 52  T * FROM t1 WHER
1620: 45 20 61 3c 30 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74  E a<0}.} {}.do_t
1630: 65 73 74 20 74 63 6c 2d 33 2e 33 20 7b 0a 20 20  est tcl-3.3 {.  
1640: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64  set rc [catch {d
1650: 62 20 6f 6e 65 63 6f 6c 75 6d 6e 7d 20 65 72 72  b onecolumn} err
1660: 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72  msg].  lappend r
1670: 63 20 24 65 72 72 6d 73 67 0a 7d 20 7b 31 20 7b  c $errmsg.} {1 {
1680: 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68  wrong # args: sh
1690: 6f 75 6c 64 20 62 65 20 22 64 62 20 6f 6e 65 63  ould be "db onec
16a0: 6f 6c 75 6d 6e 20 53 51 4c 22 7d 7d 0a 64 6f 5f  olumn SQL"}}.do_
16b0: 74 65 73 74 20 74 63 6c 2d 33 2e 34 20 7b 0a 20  test tcl-3.4 {. 
16c0: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
16d0: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45  db onecolumn {SE
16e0: 4c 45 43 54 20 62 6f 67 75 73 7d 7d 20 65 72 72  LECT bogus}} err
16f0: 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72  msg].  lappend r
1700: 63 20 24 65 72 72 6d 73 67 0a 7d 20 7b 31 20 7b  c $errmsg.} {1 {
1710: 6e 6f 20 73 75 63 68 20 63 6f 6c 75 6d 6e 3a 20  no such column: 
1720: 62 6f 67 75 73 7d 7d 0a 69 66 63 61 70 61 62 6c  bogus}}.ifcapabl
1730: 65 20 7b 74 63 6c 76 61 72 7d 20 7b 0a 20 20 64  e {tclvar} {.  d
1740: 6f 5f 74 65 73 74 20 74 63 6c 2d 33 2e 35 20 7b  o_test tcl-3.5 {
1750: 0a 20 20 20 20 73 65 74 20 62 20 35 30 0a 20 20  .    set b 50.  
1760: 20 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20    set rc [catch 
1770: 7b 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20  {db one {SELECT 
1780: 2a 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20  * FROM t1 WHERE 
1790: 62 3e 24 62 7d 7d 20 6d 73 67 5d 0a 20 20 20 20  b>$b}} msg].    
17a0: 6c 61 70 70 65 6e 64 20 72 63 20 24 6d 73 67 0a  lappend rc $msg.
17b0: 20 20 7d 20 7b 30 20 34 31 7d 0a 20 20 64 6f 5f    } {0 41}.  do_
17c0: 74 65 73 74 20 74 63 6c 2d 33 2e 36 20 7b 0a 20  test tcl-3.6 {. 
17d0: 20 20 20 73 65 74 20 62 20 35 30 30 0a 20 20 20     set b 500.   
17e0: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
17f0: 64 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20 2a  db one {SELECT *
1800: 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 62   FROM t1 WHERE b
1810: 3e 24 62 7d 7d 20 6d 73 67 5d 0a 20 20 20 20 6c  >$b}} msg].    l
1820: 61 70 70 65 6e 64 20 72 63 20 24 6d 73 67 0a 20  append rc $msg. 
1830: 20 7d 20 7b 30 20 7b 7d 7d 0a 20 20 64 6f 5f 74   } {0 {}}.  do_t
1840: 65 73 74 20 74 63 6c 2d 33 2e 37 20 7b 0a 20 20  est tcl-3.7 {.  
1850: 20 20 73 65 74 20 62 20 35 30 30 0a 20 20 20 20    set b 500.    
1860: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 64  set rc [catch {d
1870: 62 20 6f 6e 65 20 7b 0a 20 20 20 20 20 20 49 4e  b one {.      IN
1880: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
1890: 55 45 53 28 39 39 2c 35 31 30 29 3b 0a 20 20 20  UES(99,510);.   
18a0: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
18b0: 20 74 31 20 57 48 45 52 45 20 62 3e 24 62 0a 20   t1 WHERE b>$b. 
18c0: 20 20 20 7d 7d 20 6d 73 67 5d 0a 20 20 20 20 6c     }} msg].    l
18d0: 61 70 70 65 6e 64 20 72 63 20 24 6d 73 67 0a 20  append rc $msg. 
18e0: 20 7d 20 7b 30 20 39 39 7d 0a 7d 0a 69 66 63 61   } {0 99}.}.ifca
18f0: 70 61 62 6c 65 20 7b 21 74 63 6c 76 61 72 7d 20  pable {!tclvar} 
1900: 7b 0a 20 20 20 65 78 65 63 73 71 6c 20 7b 49 4e  {.   execsql {IN
1910: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
1920: 55 45 53 28 39 39 2c 35 31 30 29 7d 0a 7d 0a 0a  UES(99,510)}.}..
1930: 23 20 54 75 72 6e 20 74 68 65 20 62 75 73 79 20  # Turn the busy 
1940: 68 61 6e 64 6c 65 72 20 6f 6e 20 61 6e 64 20 6f  handler on and o
1950: 66 66 0a 23 0a 64 6f 5f 74 65 73 74 20 74 63 6c  ff.#.do_test tcl
1960: 2d 34 2e 31 20 7b 0a 20 20 70 72 6f 63 20 62 75  -4.1 {.  proc bu
1970: 73 79 5f 63 61 6c 6c 62 61 63 6b 20 7b 63 6e 74  sy_callback {cnt
1980: 7d 20 7b 0a 20 20 20 20 62 72 65 61 6b 0a 20 20  } {.    break.  
1990: 7d 0a 20 20 64 62 20 62 75 73 79 20 62 75 73 79  }.  db busy busy
19a0: 5f 63 61 6c 6c 62 61 63 6b 0a 20 20 64 62 20 62  _callback.  db b
19b0: 75 73 79 0a 7d 20 7b 62 75 73 79 5f 63 61 6c 6c  usy.} {busy_call
19c0: 62 61 63 6b 7d 0a 64 6f 5f 74 65 73 74 20 74 63  back}.do_test tc
19d0: 6c 2d 34 2e 32 20 7b 0a 20 20 64 62 20 62 75 73  l-4.2 {.  db bus
19e0: 79 20 7b 7d 0a 20 20 64 62 20 62 75 73 79 0a 7d  y {}.  db busy.}
19f0: 20 7b 7d 0a 0a 69 66 63 61 70 61 62 6c 65 20 7b   {}..ifcapable {
1a00: 74 63 6c 76 61 72 7d 20 7b 0a 20 20 23 20 50 61  tclvar} {.  # Pa
1a10: 72 73 69 6e 67 20 6f 66 20 54 43 4c 20 76 61 72  rsing of TCL var
1a20: 69 61 62 6c 65 20 6e 61 6d 65 73 20 77 69 74 68  iable names with
1a30: 69 6e 20 53 51 4c 20 69 6e 74 6f 20 62 6f 75 6e  in SQL into boun
1a40: 64 20 70 61 72 61 6d 65 74 65 72 73 2e 0a 20 20  d parameters..  
1a50: 23 0a 20 20 64 6f 5f 74 65 73 74 20 74 63 6c 2d  #.  do_test tcl-
1a60: 35 2e 31 20 7b 0a 20 20 20 20 65 78 65 63 73 71  5.1 {.    execsq
1a70: 6c 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20  l {CREATE TABLE 
1a80: 74 33 28 61 2c 62 2c 63 29 7d 0a 20 20 20 20 63  t3(a,b,c)}.    c
1a90: 61 74 63 68 20 7b 75 6e 73 65 74 20 78 7d 0a 20  atch {unset x}. 
1aa0: 20 20 20 73 65 74 20 78 28 31 29 20 41 0a 20 20     set x(1) A.  
1ab0: 20 20 73 65 74 20 78 28 32 29 20 42 0a 20 20 20    set x(2) B.   
1ac0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
1ad0: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 33 20   INSERT INTO t3 
1ae0: 56 41 4c 55 45 53 28 24 3a 3a 78 28 31 29 2c 24  VALUES($::x(1),$
1af0: 3a 3a 78 28 32 29 2c 24 3a 3a 78 28 33 29 29 3b  ::x(2),$::x(3));
1b00: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20  .      SELECT * 
1b10: 46 52 4f 4d 20 74 33 0a 20 20 20 20 7d 0a 20 20  FROM t3.    }.  
1b20: 7d 20 7b 41 20 42 20 7b 7d 7d 0a 20 20 64 6f 5f  } {A B {}}.  do_
1b30: 74 65 73 74 20 74 63 6c 2d 35 2e 32 20 7b 0a 20  test tcl-5.2 {. 
1b40: 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20     execsql {.   
1b50: 20 20 20 53 45 4c 45 43 54 20 74 79 70 65 6f 66     SELECT typeof
1b60: 28 61 29 2c 20 74 79 70 65 6f 66 28 62 29 2c 20  (a), typeof(b), 
1b70: 74 79 70 65 6f 66 28 63 29 20 46 52 4f 4d 20 74  typeof(c) FROM t
1b80: 33 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 74 65 78  3.    }.  } {tex
1b90: 74 20 74 65 78 74 20 6e 75 6c 6c 7d 0a 20 20 64  t text null}.  d
1ba0: 6f 5f 74 65 73 74 20 74 63 6c 2d 35 2e 33 20 7b  o_test tcl-5.3 {
1bb0: 0a 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65  .    catch {unse
1bc0: 74 20 78 7d 0a 20 20 20 20 73 65 74 20 78 20 5b  t x}.    set x [
1bd0: 62 69 6e 61 72 79 20 66 6f 72 6d 61 74 20 68 31  binary format h1
1be0: 32 20 36 38 36 39 30 30 36 38 36 66 30 30 5d 0a  2 686900686f00].
1bf0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
1c00: 20 20 20 20 55 50 44 41 54 45 20 74 33 20 53 45      UPDATE t3 SE
1c10: 54 20 61 3d 24 3a 3a 78 3b 0a 20 20 20 20 7d 0a  T a=$::x;.    }.
1c20: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20      db eval {.  
1c30: 20 20 20 20 53 45 4c 45 43 54 20 61 20 46 52 4f      SELECT a FRO
1c40: 4d 20 74 33 0a 20 20 20 20 7d 20 62 72 65 61 6b  M t3.    } break
1c50: 0a 20 20 20 20 62 69 6e 61 72 79 20 73 63 61 6e  .    binary scan
1c60: 20 24 61 20 68 31 32 20 61 64 61 74 61 0a 20 20   $a h12 adata.  
1c70: 20 20 73 65 74 20 61 64 61 74 61 0a 20 20 7d 20    set adata.  } 
1c80: 7b 36 38 36 39 30 30 36 38 36 66 30 30 7d 0a 20  {686900686f00}. 
1c90: 20 64 6f 5f 74 65 73 74 20 74 63 6c 2d 35 2e 34   do_test tcl-5.4
1ca0: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
1cb0: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 74 79  .      SELECT ty
1cc0: 70 65 6f 66 28 61 29 2c 20 74 79 70 65 6f 66 28  peof(a), typeof(
1cd0: 62 29 2c 20 74 79 70 65 6f 66 28 63 29 20 46 52  b), typeof(c) FR
1ce0: 4f 4d 20 74 33 0a 20 20 20 20 7d 0a 20 20 7d 20  OM t3.    }.  } 
1cf0: 7b 62 6c 6f 62 20 74 65 78 74 20 6e 75 6c 6c 7d  {blob text null}
1d00: 0a 7d 0a 0a 23 20 4f 70 65 72 61 74 69 6f 6e 20  .}..# Operation 
1d10: 6f 66 20 22 62 72 65 61 6b 22 20 61 6e 64 20 22  of "break" and "
1d20: 63 6f 6e 74 69 6e 75 65 22 20 77 69 74 68 69 6e  continue" within
1d30: 20 72 6f 77 20 73 63 72 69 70 74 73 0a 23 0a 64   row scripts.#.d
1d40: 6f 5f 74 65 73 74 20 74 63 6c 2d 36 2e 31 20 7b  o_test tcl-6.1 {
1d50: 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  .  db eval {SELE
1d60: 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 7b 0a  CT * FROM t1} {.
1d70: 20 20 20 20 62 72 65 61 6b 0a 20 20 7d 0a 20 20      break.  }.  
1d80: 6c 61 70 70 65 6e 64 20 61 20 24 62 0a 7d 20 7b  lappend a $b.} {
1d90: 31 30 20 32 30 7d 0a 64 6f 5f 74 65 73 74 20 74  10 20}.do_test t
1da0: 63 6c 2d 36 2e 32 20 7b 0a 20 20 73 65 74 20 63  cl-6.2 {.  set c
1db0: 6e 74 20 30 0a 20 20 64 62 20 65 76 61 6c 20 7b  nt 0.  db eval {
1dc0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
1dd0: 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 61 3e 34  } {.    if {$a>4
1de0: 30 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20  0} continue.    
1df0: 69 6e 63 72 20 63 6e 74 0a 20 20 7d 0a 20 20 73  incr cnt.  }.  s
1e00: 65 74 20 63 6e 74 0a 7d 20 7b 34 7d 0a 64 6f 5f  et cnt.} {4}.do_
1e10: 74 65 73 74 20 74 63 6c 2d 36 2e 33 20 7b 0a 20  test tcl-6.3 {. 
1e20: 20 73 65 74 20 63 6e 74 20 30 0a 20 20 64 62 20   set cnt 0.  db 
1e30: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46  eval {SELECT * F
1e40: 52 4f 4d 20 74 31 7d 20 7b 0a 20 20 20 20 69 66  ROM t1} {.    if
1e50: 20 7b 24 61 3c 34 30 7d 20 63 6f 6e 74 69 6e 75   {$a<40} continu
1e60: 65 0a 20 20 20 20 69 6e 63 72 20 63 6e 74 0a 20  e.    incr cnt. 
1e70: 20 7d 0a 20 20 73 65 74 20 63 6e 74 0a 7d 20 7b   }.  set cnt.} {
1e80: 35 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 36  5}.do_test tcl-6
1e90: 2e 34 20 7b 0a 20 20 70 72 6f 63 20 72 65 74 75  .4 {.  proc retu
1ea0: 72 6e 5f 74 65 73 74 20 7b 78 7d 20 7b 0a 20 20  rn_test {x} {.  
1eb0: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43    db eval {SELEC
1ec0: 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 7b 0a 20  T * FROM t1} {. 
1ed0: 20 20 20 20 20 69 66 20 7b 24 61 3d 3d 24 78 7d       if {$a==$x}
1ee0: 20 7b 72 65 74 75 72 6e 20 24 62 7d 0a 20 20 20   {return $b}.   
1ef0: 20 7d 0a 20 20 7d 0a 20 20 72 65 74 75 72 6e 5f   }.  }.  return_
1f00: 74 65 73 74 20 31 30 0a 7d 20 32 30 0a 64 6f 5f  test 10.} 20.do_
1f10: 74 65 73 74 20 74 63 6c 2d 36 2e 35 20 7b 0a 20  test tcl-6.5 {. 
1f20: 20 72 65 74 75 72 6e 5f 74 65 73 74 20 32 30 0a   return_test 20.
1f30: 7d 20 34 30 0a 64 6f 5f 74 65 73 74 20 74 63 6c  } 40.do_test tcl
1f40: 2d 36 2e 36 20 7b 0a 20 20 72 65 74 75 72 6e 5f  -6.6 {.  return_
1f50: 74 65 73 74 20 39 39 0a 7d 20 35 31 30 0a 64 6f  test 99.} 510.do
1f60: 5f 74 65 73 74 20 74 63 6c 2d 36 2e 37 20 7b 0a  _test tcl-6.7 {.
1f70: 20 20 72 65 74 75 72 6e 5f 74 65 73 74 20 30 0a    return_test 0.
1f80: 7d 20 7b 7d 0a 0a 64 6f 5f 74 65 73 74 20 74 63  } {}..do_test tc
1f90: 6c 2d 37 2e 31 20 7b 0a 20 20 64 62 20 76 65 72  l-7.1 {.  db ver
1fa0: 73 69 6f 6e 0a 20 20 65 78 70 72 20 30 0a 7d 20  sion.  expr 0.} 
1fb0: 7b 30 7d 0a 0a 23 20 6d 6f 64 69 66 79 20 61 6e  {0}..# modify an
1fc0: 64 20 72 65 73 65 74 20 74 68 65 20 4e 55 4c 4c  d reset the NULL
1fd0: 20 72 65 70 72 65 73 65 6e 74 61 74 69 6f 6e 0a   representation.
1fe0: 23 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 38 2e  #.do_test tcl-8.
1ff0: 31 20 7b 0a 20 20 64 62 20 6e 75 6c 6c 76 61 6c  1 {.  db nullval
2000: 75 65 20 4e 61 4e 0a 20 20 65 78 65 63 73 71 6c  ue NaN.  execsql
2010: 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31   {INSERT INTO t1
2020: 20 56 41 4c 55 45 53 28 33 30 2c 4e 55 4c 4c 29   VALUES(30,NULL)
2030: 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c  }.  db eval {SEL
2040: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 57 48  ECT * FROM t1 WH
2050: 45 52 45 20 62 20 49 53 20 4e 55 4c 4c 7d 0a 7d  ERE b IS NULL}.}
2060: 20 7b 33 30 20 4e 61 4e 7d 0a 70 72 6f 63 20 63   {30 NaN}.proc c
2070: 6f 6e 63 61 74 46 75 6e 63 20 61 72 67 73 20 7b  oncatFunc args {
2080: 72 65 74 75 72 6e 20 5b 6a 6f 69 6e 20 24 61 72  return [join $ar
2090: 67 73 20 7b 7d 5d 7d 0a 64 6f 5f 74 65 73 74 20  gs {}]}.do_test 
20a0: 74 63 6c 2d 38 2e 32 20 7b 0a 20 20 64 62 20 66  tcl-8.2 {.  db f
20b0: 75 6e 63 74 69 6f 6e 20 63 6f 6e 63 61 74 20 63  unction concat c
20c0: 6f 6e 63 61 74 46 75 6e 63 0a 20 20 64 62 20 65  oncatFunc.  db e
20d0: 76 61 6c 20 7b 53 45 4c 45 43 54 20 63 6f 6e 63  val {SELECT conc
20e0: 61 74 28 27 61 27 2c 20 62 2c 20 27 7a 27 29 20  at('a', b, 'z') 
20f0: 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 62 20  FROM t1 WHERE b 
2100: 69 73 20 4e 55 4c 4c 7d 0a 7d 20 7b 61 4e 61 4e  is NULL}.} {aNaN
2110: 7a 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 38  z}.do_test tcl-8
2120: 2e 33 20 7b 0a 20 20 64 62 20 6e 75 6c 6c 76 61  .3 {.  db nullva
2130: 6c 75 65 20 4e 55 4c 4c 0a 20 20 64 62 20 6e 75  lue NULL.  db nu
2140: 6c 6c 76 61 6c 75 65 0a 7d 20 7b 4e 55 4c 4c 7d  llvalue.} {NULL}
2150: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 38 2e 34  .do_test tcl-8.4
2160: 20 7b 0a 20 20 64 62 20 6e 75 6c 6c 76 61 6c 75   {.  db nullvalu
2170: 65 20 7b 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b  e {}.  db eval {
2180: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
2190: 20 57 48 45 52 45 20 62 20 49 53 20 4e 55 4c 4c   WHERE b IS NULL
21a0: 7d 0a 7d 20 7b 33 30 20 7b 7d 7d 0a 64 6f 5f 74  }.} {30 {}}.do_t
21b0: 65 73 74 20 74 63 6c 2d 38 2e 35 20 7b 0a 20 20  est tcl-8.5 {.  
21c0: 64 62 20 66 75 6e 63 74 69 6f 6e 20 63 6f 6e 63  db function conc
21d0: 61 74 20 63 6f 6e 63 61 74 46 75 6e 63 0a 20 20  at concatFunc.  
21e0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
21f0: 63 6f 6e 63 61 74 28 27 61 27 2c 20 62 2c 20 27  concat('a', b, '
2200: 7a 27 29 20 46 52 4f 4d 20 74 31 20 57 48 45 52  z') FROM t1 WHER
2210: 45 20 62 20 69 73 20 4e 55 4c 4c 7d 0a 7d 20 7b  E b is NULL}.} {
2220: 61 7a 7d 0a 0a 23 20 54 65 73 74 20 74 68 65 20  az}..# Test the 
2230: 72 65 74 75 72 6e 20 74 79 70 65 20 6f 66 20 75  return type of u
2240: 73 65 72 2d 64 65 66 69 6e 65 64 20 66 75 6e 63  ser-defined func
2250: 74 69 6f 6e 73 0a 23 0a 64 6f 5f 74 65 73 74 20  tions.#.do_test 
2260: 74 63 6c 2d 39 2e 31 20 7b 0a 20 20 64 62 20 66  tcl-9.1 {.  db f
2270: 75 6e 63 74 69 6f 6e 20 72 65 74 5f 73 74 72 20  unction ret_str 
2280: 7b 72 65 74 75 72 6e 20 22 68 69 22 7d 0a 20 20  {return "hi"}.  
2290: 65 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20  execsql {SELECT 
22a0: 74 79 70 65 6f 66 28 72 65 74 5f 73 74 72 28 29  typeof(ret_str()
22b0: 29 7d 0a 7d 20 7b 74 65 78 74 7d 0a 64 6f 5f 74  )}.} {text}.do_t
22c0: 65 73 74 20 74 63 6c 2d 39 2e 32 20 7b 0a 20 20  est tcl-9.2 {.  
22d0: 64 62 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 5f  db function ret_
22e0: 64 62 6c 20 7b 72 65 74 75 72 6e 20 5b 65 78 70  dbl {return [exp
22f0: 72 20 7b 72 61 6e 64 28 29 2a 30 2e 35 7d 5d 7d  r {rand()*0.5}]}
2300: 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c 45  .  execsql {SELE
2310: 43 54 20 74 79 70 65 6f 66 28 72 65 74 5f 64 62  CT typeof(ret_db
2320: 6c 28 29 29 7d 0a 7d 20 7b 72 65 61 6c 7d 0a 64  l())}.} {real}.d
2330: 6f 5f 74 65 73 74 20 74 63 6c 2d 39 2e 33 20 7b  o_test tcl-9.3 {
2340: 0a 20 20 64 62 20 66 75 6e 63 74 69 6f 6e 20 72  .  db function r
2350: 65 74 5f 69 6e 74 20 7b 72 65 74 75 72 6e 20 5b  et_int {return [
2360: 65 78 70 72 20 7b 69 6e 74 28 72 61 6e 64 28 29  expr {int(rand()
2370: 2a 32 30 30 29 7d 5d 7d 0a 20 20 65 78 65 63 73  *200)}]}.  execs
2380: 71 6c 20 7b 53 45 4c 45 43 54 20 74 79 70 65 6f  ql {SELECT typeo
2390: 66 28 72 65 74 5f 69 6e 74 28 29 29 7d 0a 7d 20  f(ret_int())}.} 
23a0: 7b 69 6e 74 65 67 65 72 7d 0a 0a 23 20 52 65 63  {integer}..# Rec
23b0: 75 72 73 69 76 65 20 63 61 6c 6c 73 20 74 6f 20  ursive calls to 
23c0: 74 68 65 20 73 61 6d 65 20 75 73 65 72 2d 64 65  the same user-de
23d0: 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 0a 23  fined function.#
23e0: 0a 69 66 63 61 70 61 62 6c 65 20 74 63 6c 76 61  .ifcapable tclva
23f0: 72 20 7b 0a 20 20 64 6f 5f 74 65 73 74 20 74 63  r {.  do_test tc
2400: 6c 2d 39 2e 31 30 20 7b 0a 20 20 20 20 70 72 6f  l-9.10 {.    pro
2410: 63 20 75 73 65 72 66 75 6e 63 5f 72 31 20 7b 6e  c userfunc_r1 {n
2420: 7d 20 7b 0a 20 20 20 20 20 20 69 66 20 7b 24 6e  } {.      if {$n
2430: 3c 3d 30 7d 20 7b 72 65 74 75 72 6e 20 30 7d 0a  <=0} {return 0}.
2440: 20 20 20 20 20 20 73 65 74 20 6e 6d 31 20 5b 65        set nm1 [e
2450: 78 70 72 20 7b 24 6e 2d 31 7d 5d 0a 20 20 20 20  xpr {$n-1}].    
2460: 20 20 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b    return [expr {
2470: 5b 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54  [db eval {SELECT
2480: 20 72 31 28 24 6e 6d 31 29 7d 5d 2b 24 6e 7d 5d   r1($nm1)}]+$n}]
2490: 0a 20 20 20 20 7d 0a 20 20 20 20 64 62 20 66 75  .    }.    db fu
24a0: 6e 63 74 69 6f 6e 20 72 31 20 75 73 65 72 66 75  nction r1 userfu
24b0: 6e 63 5f 72 31 0a 20 20 20 20 65 78 65 63 73 71  nc_r1.    execsq
24c0: 6c 20 7b 53 45 4c 45 43 54 20 72 31 28 31 30 29  l {SELECT r1(10)
24d0: 7d 0a 20 20 7d 20 7b 35 35 7d 0a 20 20 64 6f 5f  }.  } {55}.  do_
24e0: 74 65 73 74 20 74 63 6c 2d 39 2e 31 31 20 7b 0a  test tcl-9.11 {.
24f0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 53 45 4c      execsql {SEL
2500: 45 43 54 20 72 31 28 31 30 30 29 7d 0a 20 20 7d  ECT r1(100)}.  }
2510: 20 7b 35 30 35 30 7d 0a 7d 0a 0a 23 20 54 65 73   {5050}.}..# Tes
2520: 74 73 20 66 6f 72 20 74 68 65 20 6e 65 77 20 74  ts for the new t
2530: 72 61 6e 73 61 63 74 69 6f 6e 20 6d 65 74 68 6f  ransaction metho
2540: 64 0a 23 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d  d.#.do_test tcl-
2550: 31 30 2e 31 20 7b 0a 20 20 64 62 20 74 72 61 6e  10.1 {.  db tran
2560: 73 61 63 74 69 6f 6e 20 7b 7d 0a 7d 20 7b 7d 0a  saction {}.} {}.
2570: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 32  do_test tcl-10.2
2580: 20 7b 0a 20 20 64 62 20 74 72 61 6e 73 61 63 74   {.  db transact
2590: 69 6f 6e 20 64 65 66 65 72 72 65 64 20 7b 7d 0a  ion deferred {}.
25a0: 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c  } {}.do_test tcl
25b0: 2d 31 30 2e 33 20 7b 0a 20 20 64 62 20 74 72 61  -10.3 {.  db tra
25c0: 6e 73 61 63 74 69 6f 6e 20 69 6d 6d 65 64 69 61  nsaction immedia
25d0: 74 65 20 7b 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  te {}.} {}.do_te
25e0: 73 74 20 74 63 6c 2d 31 30 2e 34 20 7b 0a 20 20  st tcl-10.4 {.  
25f0: 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 65  db transaction e
2600: 78 63 6c 75 73 69 76 65 20 7b 7d 0a 7d 20 7b 7d  xclusive {}.} {}
2610: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e  .do_test tcl-10.
2620: 35 20 7b 0a 20 20 73 65 74 20 72 63 20 5b 63 61  5 {.  set rc [ca
2630: 74 63 68 20 7b 64 62 20 74 72 61 6e 73 61 63 74  tch {db transact
2640: 69 6f 6e 20 78 79 7a 7a 79 20 7b 7d 7d 20 6d 73  ion xyzzy {}} ms
2650: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 72 63 20  g].  lappend rc 
2660: 24 6d 73 67 0a 7d 20 7b 31 20 7b 62 61 64 20 74  $msg.} {1 {bad t
2670: 72 61 6e 73 61 63 74 69 6f 6e 20 74 79 70 65 20  ransaction type 
2680: 22 78 79 7a 7a 79 22 3a 20 6d 75 73 74 20 62 65  "xyzzy": must be
2690: 20 64 65 66 65 72 72 65 64 2c 20 65 78 63 6c 75   deferred, exclu
26a0: 73 69 76 65 2c 20 6f 72 20 69 6d 6d 65 64 69 61  sive, or immedia
26b0: 74 65 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c  te}}.do_test tcl
26c0: 2d 31 30 2e 36 20 7b 0a 20 20 73 65 74 20 72 63  -10.6 {.  set rc
26d0: 20 5b 63 61 74 63 68 20 7b 64 62 20 74 72 61 6e   [catch {db tran
26e0: 73 61 63 74 69 6f 6e 20 7b 65 72 72 6f 72 20 74  saction {error t
26f0: 65 73 74 2d 65 72 72 6f 72 7d 7d 20 6d 73 67 5d  est-error}} msg]
2700: 0a 20 20 6c 61 70 70 65 6e 64 20 72 63 20 24 6d  .  lappend rc $m
2710: 73 67 0a 7d 20 7b 31 20 74 65 73 74 2d 65 72 72  sg.} {1 test-err
2720: 6f 72 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d  or}.do_test tcl-
2730: 31 30 2e 37 20 7b 0a 20 20 64 62 20 74 72 61 6e  10.7 {.  db tran
2740: 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 64 62  saction {.    db
2750: 20 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41   eval {CREATE TA
2760: 42 4c 45 20 74 34 28 78 29 7d 0a 20 20 20 20 64  BLE t4(x)}.    d
2770: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a  b transaction {.
2780: 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 49        db eval {I
2790: 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41  NSERT INTO t4 VA
27a0: 4c 55 45 53 28 31 29 7d 0a 20 20 20 20 7d 0a 20  LUES(1)}.    }. 
27b0: 20 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45   }.  db eval {SE
27c0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 34 7d 0a  LECT * FROM t4}.
27d0: 7d 20 31 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d  } 1.do_test tcl-
27e0: 31 30 2e 38 20 7b 0a 20 20 63 61 74 63 68 20 7b  10.8 {.  catch {
27f0: 0a 20 20 20 20 64 62 20 74 72 61 6e 73 61 63 74  .    db transact
2800: 69 6f 6e 20 7b 0a 20 20 20 20 20 20 64 62 20 65  ion {.      db e
2810: 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f  val {INSERT INTO
2820: 20 74 34 20 56 41 4c 55 45 53 28 32 29 7d 0a 20   t4 VALUES(2)}. 
2830: 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 49 4e       db eval {IN
2840: 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c  SERT INTO t4 VAL
2850: 55 45 53 28 33 29 7d 0a 20 20 20 20 20 20 64 62  UES(3)}.      db
2860: 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e   eval {INSERT IN
2870: 54 4f 20 74 34 20 56 41 4c 55 45 53 28 34 29 7d  TO t4 VALUES(4)}
2880: 0a 20 20 20 20 20 20 65 72 72 6f 72 20 74 65 73  .      error tes
2890: 74 2d 65 72 72 6f 72 0a 20 20 20 20 7d 0a 20 20  t-error.    }.  
28a0: 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c  }.  db eval {SEL
28b0: 45 43 54 20 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d  ECT * FROM t4}.}
28c0: 20 31 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31   1.do_test tcl-1
28d0: 30 2e 39 20 7b 0a 20 20 64 62 20 74 72 61 6e 73  0.9 {.  db trans
28e0: 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 64 62 20  action {.    db 
28f0: 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54  eval {INSERT INT
2900: 4f 20 74 34 20 56 41 4c 55 45 53 28 32 29 7d 0a  O t4 VALUES(2)}.
2910: 20 20 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20      catch {.    
2920: 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e    db transaction
2930: 20 7b 0a 20 20 20 20 20 20 20 20 64 62 20 65 76   {.        db ev
2940: 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20  al {INSERT INTO 
2950: 74 34 20 56 41 4c 55 45 53 28 33 29 7d 0a 20 20  t4 VALUES(3)}.  
2960: 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 49        db eval {I
2970: 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41  NSERT INTO t4 VA
2980: 4c 55 45 53 28 34 29 7d 0a 20 20 20 20 20 20 20  LUES(4)}.       
2990: 20 65 72 72 6f 72 20 74 65 73 74 2d 65 72 72 6f   error test-erro
29a0: 72 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  r.      }.    }.
29b0: 20 20 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b 53    }.  db eval {S
29c0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 34 7d  ELECT * FROM t4}
29d0: 0a 7d 20 7b 31 20 32 7d 0a 64 6f 5f 74 65 73 74  .} {1 2}.do_test
29e0: 20 74 63 6c 2d 31 30 2e 31 30 20 7b 0a 20 20 66   tcl-10.10 {.  f
29f0: 6f 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69  or {set i 0} {$i
2a00: 3c 31 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20  <1} {incr i} {. 
2a10: 20 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 6f     db transactio
2a20: 6e 20 7b 0a 20 20 20 20 20 20 64 62 20 65 76 61  n {.      db eva
2a30: 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  l {INSERT INTO t
2a40: 34 20 56 41 4c 55 45 53 28 35 29 7d 0a 20 20 20  4 VALUES(5)}.   
2a50: 20 20 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20     continue.    
2a60: 7d 0a 20 20 20 20 65 72 72 6f 72 20 22 54 68 69  }.    error "Thi
2a70: 73 20 6c 69 6e 65 20 73 68 6f 75 6c 64 20 6e 6f  s line should no
2a80: 74 20 62 65 20 72 75 6e 22 0a 20 20 7d 0a 20 20  t be run".  }.  
2a90: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
2aa0: 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 7b 31 20  * FROM t4}.} {1 
2ab0: 32 20 35 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c  2 5}.do_test tcl
2ac0: 2d 31 30 2e 31 31 20 7b 0a 20 20 66 6f 72 20 7b  -10.11 {.  for {
2ad0: 73 65 74 20 69 20 30 7d 20 7b 24 69 3c 31 30 7d  set i 0} {$i<10}
2ae0: 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20   {incr i} {.    
2af0: 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b  db transaction {
2b00: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b  .      db eval {
2b10: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56  INSERT INTO t4 V
2b20: 41 4c 55 45 53 28 36 29 7d 0a 20 20 20 20 20 20  ALUES(6)}.      
2b30: 62 72 65 61 6b 0a 20 20 20 20 7d 0a 20 20 7d 0a  break.    }.  }.
2b40: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43    db eval {SELEC
2b50: 54 20 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 7b  T * FROM t4}.} {
2b60: 31 20 32 20 35 20 36 7d 0a 64 6f 5f 74 65 73 74  1 2 5 6}.do_test
2b70: 20 74 63 6c 2d 31 30 2e 31 32 20 7b 0a 20 20 73   tcl-10.12 {.  s
2b80: 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a 20  et rc [catch {. 
2b90: 20 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 7d     for {set i 0}
2ba0: 20 7b 24 69 3c 31 30 7d 20 7b 69 6e 63 72 20 69   {$i<10} {incr i
2bb0: 7d 20 7b 0a 20 20 20 20 20 20 64 62 20 74 72 61  } {.      db tra
2bc0: 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20  nsaction {.     
2bd0: 20 20 20 64 62 20 65 76 61 6c 20 7b 49 4e 53 45     db eval {INSE
2be0: 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45  RT INTO t4 VALUE
2bf0: 53 28 37 29 7d 0a 20 20 20 20 20 20 20 20 72 65  S(7)}.        re
2c00: 74 75 72 6e 0a 20 20 20 20 20 20 7d 0a 20 20 20  turn.      }.   
2c10: 20 7d 0a 20 20 7d 5d 0a 7d 20 7b 32 7d 0a 64 6f   }.  }].} {2}.do
2c20: 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 31 33 20  _test tcl-10.13 
2c30: 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c  {.  db eval {SEL
2c40: 45 43 54 20 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d  ECT * FROM t4}.}
2c50: 20 7b 31 20 32 20 35 20 36 20 37 7d 0a 0a 23 20   {1 2 5 6 7}..# 
2c60: 4e 6f 77 20 74 65 73 74 20 74 68 61 74 20 5b 64  Now test that [d
2c70: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 5d 20 63  b transaction] c
2c80: 6f 6d 6d 61 6e 64 73 20 6d 61 79 20 62 65 20 6e  ommands may be n
2c90: 65 73 74 65 64 20 77 69 74 68 20 0a 23 20 74 68  ested with .# th
2ca0: 65 20 65 78 70 65 63 74 65 64 20 72 65 73 75 6c  e expected resul
2cb0: 74 73 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 74 63  ts..#.do_test tc
2cc0: 6c 2d 31 30 2e 31 34 20 7b 0a 20 20 64 62 20 74  l-10.14 {.  db t
2cd0: 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20  ransaction {.   
2ce0: 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20   db eval {.     
2cf0: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 34 3b   DELETE FROM t4;
2d00: 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .      INSERT IN
2d10: 54 4f 20 74 34 20 56 41 4c 55 45 53 28 27 6f 6e  TO t4 VALUES('on
2d20: 65 27 29 3b 0a 20 20 20 20 7d 0a 0a 20 20 20 20  e');.    }..    
2d30: 63 61 74 63 68 20 7b 20 0a 20 20 20 20 20 20 64  catch { .      d
2d40: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a  b transaction {.
2d50: 20 20 20 20 20 20 20 20 64 62 20 65 76 61 6c 20          db eval 
2d60: 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34  { INSERT INTO t4
2d70: 20 56 41 4c 55 45 53 28 27 74 77 6f 27 29 20 7d   VALUES('two') }
2d80: 0a 20 20 20 20 20 20 20 20 64 62 20 74 72 61 6e  .        db tran
2d90: 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20 20  saction {.      
2da0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20 49 4e      db eval { IN
2db0: 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c  SERT INTO t4 VAL
2dc0: 55 45 53 28 27 74 68 72 65 65 27 29 20 7d 0a 20  UES('three') }. 
2dd0: 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 20 22           error "
2de0: 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 21 22  throw an error!"
2df0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20  .        }.     
2e00: 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20   }.    }.  }..  
2e10: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20  db eval {SELECT 
2e20: 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 7b 6f 6e  * FROM t4}.} {on
2e30: 65 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31  e}.do_test tcl-1
2e40: 30 2e 31 35 20 7b 0a 20 20 23 20 4d 61 6b 65 20  0.15 {.  # Make 
2e50: 73 75 72 65 20 61 20 74 72 61 6e 73 61 63 74 69  sure a transacti
2e60: 6f 6e 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20  on has not been 
2e70: 6c 65 66 74 20 6f 70 65 6e 2e 0a 20 20 64 62 20  left open..  db 
2e80: 65 76 61 6c 20 7b 42 45 47 49 4e 20 3b 20 43 4f  eval {BEGIN ; CO
2e90: 4d 4d 49 54 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65  MMIT}.} {}.do_te
2ea0: 73 74 20 74 63 6c 2d 31 30 2e 31 36 20 7b 0a 20  st tcl-10.16 {. 
2eb0: 20 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20   db transaction 
2ec0: 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20  {.    db eval { 
2ed0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56  INSERT INTO t4 V
2ee0: 41 4c 55 45 53 28 27 74 77 6f 27 29 3b 20 7d 0a  ALUES('two'); }.
2ef0: 20 20 20 20 64 62 20 74 72 61 6e 73 61 63 74 69      db transacti
2f00: 6f 6e 20 7b 0a 20 20 20 20 20 20 64 62 20 65 76  on {.      db ev
2f10: 61 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f  al { INSERT INTO
2f20: 20 74 34 20 56 41 4c 55 45 53 28 27 74 68 72 65   t4 VALUES('thre
2f30: 65 27 29 20 7d 0a 20 20 20 20 20 20 64 62 20 74  e') }.      db t
2f40: 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20  ransaction {.   
2f50: 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20 49       db eval { I
2f60: 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41  NSERT INTO t4 VA
2f70: 4c 55 45 53 28 27 66 6f 75 72 27 29 20 7d 0a 20  LUES('four') }. 
2f80: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d       }.    }.  }
2f90: 0a 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45  .  db eval {SELE
2fa0: 43 54 20 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d 20  CT * FROM t4}.} 
2fb0: 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65 65 20 66  {one two three f
2fc0: 6f 75 72 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c  our}.do_test tcl
2fd0: 2d 31 30 2e 31 37 20 7b 0a 20 20 63 61 74 63 68  -10.17 {.  catch
2fe0: 20 7b 0a 20 20 20 20 64 62 20 74 72 61 6e 73 61   {.    db transa
2ff0: 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20 20 64 62  ction {.      db
3000: 20 65 76 61 6c 20 7b 20 49 4e 53 45 52 54 20 49   eval { INSERT I
3010: 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 27 41  NTO t4 VALUES('A
3020: 27 29 3b 20 7d 0a 20 20 20 20 20 20 64 62 20 74  '); }.      db t
3030: 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20  ransaction {.   
3040: 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20 49       db eval { I
3050: 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41  NSERT INTO t4 VA
3060: 4c 55 45 53 28 27 42 27 29 20 7d 0a 20 20 20 20  LUES('B') }.    
3070: 20 20 20 20 64 62 20 74 72 61 6e 73 61 63 74 69      db transacti
3080: 6f 6e 20 7b 0a 20 20 20 20 20 20 20 20 20 20 64  on {.          d
3090: 62 20 65 76 61 6c 20 7b 20 49 4e 53 45 52 54 20  b eval { INSERT 
30a0: 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 27  INTO t4 VALUES('
30b0: 43 27 29 20 7d 0a 20 20 20 20 20 20 20 20 20 20  C') }.          
30c0: 65 72 72 6f 72 20 22 74 68 72 6f 77 20 61 6e 20  error "throw an 
30d0: 65 72 72 6f 72 21 22 0a 20 20 20 20 20 20 20 20  error!".        
30e0: 7d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a  }.      }.    }.
30f0: 20 20 7d 0a 20 20 64 62 20 65 76 61 6c 20 7b 53    }.  db eval {S
3100: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 34 7d  ELECT * FROM t4}
3110: 0a 7d 20 7b 6f 6e 65 20 74 77 6f 20 74 68 72 65  .} {one two thre
3120: 65 20 66 6f 75 72 7d 0a 64 6f 5f 74 65 73 74 20  e four}.do_test 
3130: 74 63 6c 2d 31 30 2e 31 38 20 7b 0a 20 20 23 20  tcl-10.18 {.  # 
3140: 4d 61 6b 65 20 73 75 72 65 20 61 20 74 72 61 6e  Make sure a tran
3150: 73 61 63 74 69 6f 6e 20 68 61 73 20 6e 6f 74 20  saction has not 
3160: 62 65 65 6e 20 6c 65 66 74 20 6f 70 65 6e 2e 0a  been left open..
3170: 20 20 64 62 20 65 76 61 6c 20 7b 42 45 47 49 4e    db eval {BEGIN
3180: 20 3b 20 43 4f 4d 4d 49 54 7d 0a 7d 20 7b 7d 0a   ; COMMIT}.} {}.
3190: 0a 23 20 4d 65 73 73 20 75 70 20 61 20 5b 64 62  .# Mess up a [db
31a0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 5d 20 63 6f   transaction] co
31b0: 6d 6d 61 6e 64 20 62 79 20 6c 6f 63 6b 69 6e 67  mmand by locking
31c0: 20 74 68 65 20 64 61 74 61 62 61 73 65 20 75 73   the database us
31d0: 69 6e 67 20 61 0a 23 20 73 65 63 6f 6e 64 20 63  ing a.# second c
31e0: 6f 6e 6e 65 63 74 69 6f 6e 20 77 68 65 6e 20 69  onnection when i
31f0: 74 20 74 72 69 65 73 20 74 6f 20 63 6f 6d 6d 69  t tries to commi
3200: 74 2e 20 4d 61 6b 65 20 73 75 72 65 20 74 68 65  t. Make sure the
3210: 20 74 72 61 6e 73 61 63 74 69 6f 6e 0a 23 20 69   transaction.# i
3220: 73 20 6e 6f 74 20 73 74 69 6c 6c 20 6f 70 65 6e  s not still open
3230: 20 61 66 74 65 72 20 74 68 65 20 22 64 61 74 61   after the "data
3240: 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 22 20  base is locked" 
3250: 65 78 63 65 70 74 69 6f 6e 20 69 73 20 74 68 72  exception is thr
3260: 6f 77 6e 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 74  own..#.do_test t
3270: 63 6c 2d 31 30 2e 31 38 20 7b 0a 20 20 73 71 6c  cl-10.18 {.  sql
3280: 69 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62  ite3 db2 test.db
3290: 0a 20 20 64 62 32 20 65 76 61 6c 20 7b 0a 20 20  .  db2 eval {.  
32a0: 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 53 45 4c    BEGIN;.    SEL
32b0: 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74  ECT * FROM sqlit
32c0: 65 5f 6d 61 73 74 65 72 3b 0a 20 20 7d 0a 0a 20  e_master;.  }.. 
32d0: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b   set rc [catch {
32e0: 0a 20 20 20 20 64 62 20 74 72 61 6e 73 61 63 74  .    db transact
32f0: 69 6f 6e 20 7b 0a 20 20 20 20 20 20 64 62 20 65  ion {.      db e
3300: 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f  val {INSERT INTO
3310: 20 74 34 20 56 41 4c 55 45 53 28 27 66 69 76 65   t4 VALUES('five
3320: 27 29 7d 0a 20 20 20 20 7d 0a 20 20 7d 20 6d 73  ')}.    }.  } ms
3330: 67 5d 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d  g].  list $rc $m
3340: 73 67 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73  sg.} {1 {databas
3350: 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f  e is locked}}.do
3360: 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 31 39 20  _test tcl-10.19 
3370: 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 42 45 47  {.  db eval {BEG
3380: 49 4e 20 3b 20 43 4f 4d 4d 49 54 7d 0a 7d 20 7b  IN ; COMMIT}.} {
3390: 7d 0a 0a 23 20 54 68 77 61 72 74 20 61 20 5b 64  }..# Thwart a [d
33a0: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 5d 20 63  b transaction] c
33b0: 6f 6d 6d 61 6e 64 20 62 79 20 6c 6f 63 6b 69 6e  ommand by lockin
33c0: 67 20 74 68 65 20 64 61 74 61 62 61 73 65 20 75  g the database u
33d0: 73 69 6e 67 20 61 0a 23 20 73 65 63 6f 6e 64 20  sing a.# second 
33e0: 63 6f 6e 6e 65 63 74 69 6f 6e 20 77 69 74 68 20  connection with 
33f0: 22 42 45 47 49 4e 20 45 58 43 4c 55 53 49 56 45  "BEGIN EXCLUSIVE
3400: 22 2e 20 4d 61 6b 65 20 73 75 72 65 20 6e 6f 20  ". Make sure no 
3410: 74 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 20 0a  transaction is .
3420: 23 20 6f 70 65 6e 20 61 66 74 65 72 20 74 68 65  # open after the
3430: 20 22 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f   "database is lo
3440: 63 6b 65 64 22 20 65 78 63 65 70 74 69 6f 6e 20  cked" exception 
3450: 69 73 20 74 68 72 6f 77 6e 2e 0a 23 0a 64 6f 5f  is thrown..#.do_
3460: 74 65 73 74 20 74 63 6c 2d 31 30 2e 32 30 20 7b  test tcl-10.20 {
3470: 0a 20 20 64 62 32 20 65 76 61 6c 20 7b 0a 20 20  .  db2 eval {.  
3480: 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 42 45    COMMIT;.    BE
3490: 47 49 4e 20 45 58 43 4c 55 53 49 56 45 3b 0a 20  GIN EXCLUSIVE;. 
34a0: 20 7d 0a 20 20 73 65 74 20 72 63 20 5b 63 61 74   }.  set rc [cat
34b0: 63 68 20 7b 0a 20 20 20 20 64 62 20 74 72 61 6e  ch {.    db tran
34c0: 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20 20  saction {.      
34d0: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20  db eval {INSERT 
34e0: 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 27  INTO t4 VALUES('
34f0: 66 69 76 65 27 29 7d 0a 20 20 20 20 7d 0a 20 20  five')}.    }.  
3500: 7d 20 6d 73 67 5d 0a 20 20 6c 69 73 74 20 24 72  } msg].  list $r
3510: 63 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 64 61 74  c $msg.} {1 {dat
3520: 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d  abase is locked}
3530: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30  }.do_test tcl-10
3540: 2e 32 31 20 7b 0a 20 20 64 62 32 20 63 6c 6f 73  .21 {.  db2 clos
3550: 65 0a 20 20 64 62 20 65 76 61 6c 20 7b 42 45 47  e.  db eval {BEG
3560: 49 4e 20 3b 20 43 4f 4d 4d 49 54 7d 0a 7d 20 7b  IN ; COMMIT}.} {
3570: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30  }.do_test tcl-10
3580: 2e 32 32 20 7b 0a 20 20 73 71 6c 69 74 65 33 20  .22 {.  sqlite3 
3590: 64 62 32 20 74 65 73 74 2e 64 62 0a 20 20 64 62  db2 test.db.  db
35a0: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 65 78 63   transaction exc
35b0: 6c 75 73 69 76 65 20 7b 0a 20 20 20 20 63 61 74  lusive {.    cat
35c0: 63 68 20 7b 20 64 62 32 20 65 76 61 6c 20 7b 53  ch { db2 eval {S
35d0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 73 71 6c  ELECT * FROM sql
35e0: 69 74 65 5f 6d 61 73 74 65 72 7d 20 7d 20 6d 73  ite_master} } ms
35f0: 67 0a 20 20 20 20 73 65 74 20 6d 73 67 20 22 64  g.    set msg "d
3600: 62 32 3a 20 24 6d 73 67 22 0a 20 20 7d 0a 20 20  b2: $msg".  }.  
3610: 73 65 74 20 6d 73 67 0a 7d 20 7b 64 62 32 3a 20  set msg.} {db2: 
3620: 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b  database is lock
3630: 65 64 7d 0a 64 62 32 20 63 6c 6f 73 65 0a 0a 64  ed}.db2 close..d
3640: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 31 2e 31 20  o_test tcl-11.1 
3650: 7b 0a 20 20 64 62 20 65 76 61 6c 20 7b 49 4e 53  {.  db eval {INS
3660: 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55  ERT INTO t4 VALU
3670: 45 53 28 36 29 7d 0a 20 20 64 62 20 65 78 69 73  ES(6)}.  db exis
3680: 74 73 20 7b 53 45 4c 45 43 54 20 78 2c 78 2a 32  ts {SELECT x,x*2
3690: 2c 78 2b 78 20 46 52 4f 4d 20 74 34 20 57 48 45  ,x+x FROM t4 WHE
36a0: 52 45 20 78 3d 3d 36 7d 0a 7d 20 7b 31 7d 0a 64  RE x==6}.} {1}.d
36b0: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 31 2e 32 20  o_test tcl-11.2 
36c0: 7b 0a 20 20 64 62 20 65 78 69 73 74 73 20 7b 53  {.  db exists {S
36d0: 45 4c 45 43 54 20 30 20 46 52 4f 4d 20 74 34 20  ELECT 0 FROM t4 
36e0: 57 48 45 52 45 20 78 3d 3d 36 7d 0a 7d 20 7b 31  WHERE x==6}.} {1
36f0: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 31  }.do_test tcl-11
3700: 2e 33 20 7b 0a 20 20 64 62 20 65 78 69 73 74 73  .3 {.  db exists
3710: 20 7b 53 45 4c 45 43 54 20 31 20 46 52 4f 4d 20   {SELECT 1 FROM 
3720: 74 34 20 57 48 45 52 45 20 78 3d 3d 38 7d 0a 7d  t4 WHERE x==8}.}
3730: 20 7b 30 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c   {0}.do_test tcl
3740: 2d 31 31 2e 33 2e 31 20 7b 0a 20 20 74 63 6c 5f  -11.3.1 {.  tcl_
3750: 6f 62 6a 70 72 6f 63 20 64 62 20 65 78 69 73 74  objproc db exist
3760: 73 20 7b 53 45 4c 45 43 54 20 31 20 46 52 4f 4d  s {SELECT 1 FROM
3770: 20 74 34 20 57 48 45 52 45 20 78 3d 3d 38 7d 0a   t4 WHERE x==8}.
3780: 7d 20 7b 30 7d 0a 0a 64 6f 5f 74 65 73 74 20 74  } {0}..do_test t
3790: 63 6c 2d 31 32 2e 31 20 7b 0a 20 20 75 6e 73 65  cl-12.1 {.  unse
37a0: 74 20 2d 6e 6f 63 6f 6d 70 6c 61 69 6e 20 61 20  t -nocomplain a 
37b0: 62 20 63 20 76 65 72 73 69 6f 6e 0a 20 20 73 65  b c version.  se
37c0: 74 20 76 65 72 73 69 6f 6e 20 5b 64 62 20 76 65  t version [db ve
37d0: 72 73 69 6f 6e 5d 0a 20 20 73 63 61 6e 20 24 76  rsion].  scan $v
37e0: 65 72 73 69 6f 6e 20 22 25 64 2e 25 64 2e 25 64  ersion "%d.%d.%d
37f0: 22 20 61 20 62 20 63 0a 20 20 65 78 70 72 20 24  " a b c.  expr $
3800: 61 2a 31 30 30 30 30 30 30 20 2b 20 24 62 2a 31  a*1000000 + $b*1
3810: 30 30 30 20 2b 20 24 63 0a 7d 20 5b 73 71 6c 69  000 + $c.} [sqli
3820: 74 65 33 5f 6c 69 62 76 65 72 73 69 6f 6e 5f 6e  te3_libversion_n
3830: 75 6d 62 65 72 5d 0a 0a 0a 23 20 43 68 65 63 6b  umber]...# Check
3840: 20 74 6f 20 73 65 65 20 74 68 61 74 20 77 68 65   to see that whe
3850: 6e 20 62 69 6e 64 69 6e 67 73 20 6f 66 20 74 68  n bindings of th
3860: 65 20 66 6f 72 6d 20 40 61 61 61 20 61 72 65 20  e form @aaa are 
3870: 75 73 65 64 20 69 6e 73 74 65 61 64 0a 23 20 6f  used instead.# o
3880: 66 20 24 61 61 61 2c 20 74 68 61 74 20 6f 62 6a  f $aaa, that obj
3890: 65 63 74 73 20 61 72 65 20 74 72 65 61 74 65 64  ects are treated
38a0: 20 61 73 20 62 79 74 65 61 72 72 61 79 20 61 6e   as bytearray an
38b0: 64 20 61 72 65 20 69 6e 73 65 72 74 65 64 0a 23  d are inserted.#
38c0: 20 61 73 20 42 4c 4f 42 73 2e 0a 23 0a 69 66 63   as BLOBs..#.ifc
38d0: 61 70 61 62 6c 65 20 74 63 6c 76 61 72 20 7b 0a  apable tclvar {.
38e0: 20 20 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 33    do_test tcl-13
38f0: 2e 31 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c  .1 {.    db eval
3900: 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 74   {CREATE TABLE t
3910: 35 28 78 20 42 4c 4f 42 29 7d 0a 20 20 20 20 73  5(x BLOB)}.    s
3920: 65 74 20 78 20 61 62 63 31 32 33 0a 20 20 20 20  et x abc123.    
3930: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20  db eval {INSERT 
3940: 49 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 24  INTO t5 VALUES($
3950: 78 29 7d 0a 20 20 20 20 64 62 20 65 76 61 6c 20  x)}.    db eval 
3960: 7b 53 45 4c 45 43 54 20 74 79 70 65 6f 66 28 78  {SELECT typeof(x
3970: 29 20 46 52 4f 4d 20 74 35 7d 0a 20 20 7d 20 7b  ) FROM t5}.  } {
3980: 74 65 78 74 7d 0a 20 20 64 6f 5f 74 65 73 74 20  text}.  do_test 
3990: 74 63 6c 2d 31 33 2e 32 20 7b 0a 20 20 20 20 62  tcl-13.2 {.    b
39a0: 69 6e 61 72 79 20 73 63 61 6e 20 24 78 20 48 20  inary scan $x H 
39b0: 6e 6f 74 55 73 65 64 0a 20 20 20 20 64 62 20 65  notUsed.    db e
39c0: 76 61 6c 20 7b 0a 20 20 20 20 20 20 44 45 4c 45  val {.      DELE
39d0: 54 45 20 46 52 4f 4d 20 74 35 3b 0a 20 20 20 20  TE FROM t5;.    
39e0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35    INSERT INTO t5
39f0: 20 56 41 4c 55 45 53 28 24 78 29 3b 0a 20 20 20   VALUES($x);.   
3a00: 20 20 20 53 45 4c 45 43 54 20 74 79 70 65 6f 66     SELECT typeof
3a10: 28 78 29 20 46 52 4f 4d 20 74 35 3b 0a 20 20 20  (x) FROM t5;.   
3a20: 20 7d 0a 20 20 7d 20 7b 74 65 78 74 7d 0a 20 20   }.  } {text}.  
3a30: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 33 2e 33  do_test tcl-13.3
3a40: 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b   {.    db eval {
3a50: 0a 20 20 20 20 20 20 44 45 4c 45 54 45 20 46 52  .      DELETE FR
3a60: 4f 4d 20 74 35 3b 0a 20 20 20 20 20 20 49 4e 53  OM t5;.      INS
3a70: 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55  ERT INTO t5 VALU
3a80: 45 53 28 40 78 29 3b 0a 20 20 20 20 20 20 53 45  ES(@x);.      SE
3a90: 4c 45 43 54 20 74 79 70 65 6f 66 28 78 29 20 46  LECT typeof(x) F
3aa0: 52 4f 4d 20 74 35 3b 0a 20 20 20 20 7d 0a 20 20  ROM t5;.    }.  
3ab0: 7d 20 7b 62 6c 6f 62 7d 0a 20 20 64 6f 5f 74 65  } {blob}.  do_te
3ac0: 73 74 20 74 63 6c 2d 31 33 2e 34 20 7b 0a 20 20  st tcl-13.4 {.  
3ad0: 20 20 73 65 74 20 79 20 31 32 33 34 0a 20 20 20    set y 1234.   
3ae0: 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20   db eval {.     
3af0: 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 35 3b   DELETE FROM t5;
3b00: 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .      INSERT IN
3b10: 54 4f 20 74 35 20 56 41 4c 55 45 53 28 40 79 29  TO t5 VALUES(@y)
3b20: 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 68  ;.      SELECT h
3b30: 65 78 28 78 29 2c 20 74 79 70 65 6f 66 28 78 29  ex(x), typeof(x)
3b40: 20 46 52 4f 4d 20 74 35 0a 20 20 20 20 7d 0a 20   FROM t5.    }. 
3b50: 20 7d 20 7b 33 31 33 32 33 33 33 34 20 62 6c 6f   } {31323334 blo
3b60: 62 7d 0a 7d 0a 0a 64 62 20 66 75 6e 63 20 78 43  b}.}..db func xC
3b70: 61 6c 6c 20 78 43 61 6c 6c 0a 70 72 6f 63 20 78  all xCall.proc x
3b80: 43 61 6c 6c 20 7b 7d 20 7b 20 72 65 74 75 72 6e  Call {} { return
3b90: 20 22 76 61 6c 75 65 22 20 7d 0a 64 6f 5f 65 78   "value" }.do_ex
3ba0: 65 63 73 71 6c 5f 74 65 73 74 20 74 63 6c 2d 31  ecsql_test tcl-1
3bb0: 34 2e 31 20 7b 0a 20 20 43 52 45 41 54 45 20 54  4.1 {.  CREATE T
3bc0: 41 42 4c 45 20 74 36 28 78 29 3b 0a 20 20 49 4e  ABLE t6(x);.  IN
3bd0: 53 45 52 54 20 49 4e 54 4f 20 74 36 20 56 41 4c  SERT INTO t6 VAL
3be0: 55 45 53 28 31 29 3b 0a 7d 0a 64 6f 5f 74 65 73  UES(1);.}.do_tes
3bf0: 74 20 74 63 6c 2d 31 34 2e 32 20 7b 0a 20 20 64  t tcl-14.2 {.  d
3c00: 62 20 6f 6e 65 20 7b 53 45 4c 45 43 54 20 78 20  b one {SELECT x 
3c10: 46 52 4f 4d 20 74 36 20 57 48 45 52 45 20 78 43  FROM t6 WHERE xC
3c20: 61 6c 6c 28 29 21 3d 27 76 61 6c 75 65 27 7d 0a  all()!='value'}.
3c30: 7d 20 7b 7d 0a 0a 23 20 56 65 72 69 66 79 20 74  } {}..# Verify t
3c40: 68 61 74 20 74 68 65 20 22 65 78 69 73 74 73 22  hat the "exists"
3c50: 20 61 6e 64 20 22 6f 6e 65 63 6f 6c 75 6d 6e 22   and "onecolumn"
3c60: 20 6d 65 74 68 6f 64 73 20 77 6f 72 6b 20 77 68   methods work wh
3c70: 65 6e 0a 23 20 61 20 22 70 72 6f 66 69 6c 65 22  en.# a "profile"
3c80: 20 69 73 20 72 65 67 69 73 74 65 72 65 64 2e 0a   is registered..
3c90: 23 0a 63 61 74 63 68 20 7b 64 62 20 63 6c 6f 73  #.catch {db clos
3ca0: 65 7d 0a 73 71 6c 69 74 65 33 20 64 62 20 3a 6d  e}.sqlite3 db :m
3cb0: 65 6d 6f 72 79 3a 0a 70 72 6f 63 20 6e 6f 6f 70  emory:.proc noop
3cc0: 2d 70 72 6f 66 69 6c 65 20 7b 61 72 67 73 7d 20  -profile {args} 
3cd0: 7b 0a 20 20 72 65 74 75 72 6e 0a 7d 0a 64 6f 5f  {.  return.}.do_
3ce0: 74 65 73 74 20 74 63 6c 2d 31 35 2e 30 20 7b 0a  test tcl-15.0 {.
3cf0: 20 20 64 62 20 65 76 61 6c 20 7b 43 52 45 41 54    db eval {CREAT
3d00: 45 20 54 41 42 4c 45 20 74 31 28 61 29 3b 20 49  E TABLE t1(a); I
3d10: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
3d20: 4c 55 45 53 28 31 29 2c 28 32 29 2c 28 33 29 3b  LUES(1),(2),(3);
3d30: 7d 0a 20 20 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e  }.  db onecolumn
3d40: 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20   {SELECT a FROM 
3d50: 74 31 20 57 48 45 52 45 20 61 3e 32 7d 0a 7d 20  t1 WHERE a>2}.} 
3d60: 7b 33 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d  {3}.do_test tcl-
3d70: 31 35 2e 31 20 7b 0a 20 20 64 62 20 65 78 69 73  15.1 {.  db exis
3d80: 74 73 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f  ts {SELECT a FRO
3d90: 4d 20 74 31 20 57 48 45 52 45 20 61 3e 32 7d 0a  M t1 WHERE a>2}.
3da0: 7d 20 7b 31 7d 0a 64 6f 5f 74 65 73 74 20 74 63  } {1}.do_test tc
3db0: 6c 2d 31 35 2e 32 20 7b 0a 20 20 64 62 20 65 78  l-15.2 {.  db ex
3dc0: 69 73 74 73 20 7b 53 45 4c 45 43 54 20 61 20 46  ists {SELECT a F
3dd0: 52 4f 4d 20 74 31 20 57 48 45 52 45 20 61 3e 33  ROM t1 WHERE a>3
3de0: 7d 0a 7d 20 7b 30 7d 0a 64 62 20 70 72 6f 66 69  }.} {0}.db profi
3df0: 6c 65 20 6e 6f 6f 70 2d 70 72 6f 66 69 6c 65 0a  le noop-profile.
3e00: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 35 2e 33  do_test tcl-15.3
3e10: 20 7b 0a 20 20 64 62 20 6f 6e 65 63 6f 6c 75 6d   {.  db onecolum
3e20: 6e 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f 4d  n {SELECT a FROM
3e30: 20 74 31 20 57 48 45 52 45 20 61 3e 32 7d 0a 7d   t1 WHERE a>2}.}
3e40: 20 7b 33 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c   {3}.do_test tcl
3e50: 2d 31 35 2e 34 20 7b 0a 20 20 64 62 20 65 78 69  -15.4 {.  db exi
3e60: 73 74 73 20 7b 53 45 4c 45 43 54 20 61 20 46 52  sts {SELECT a FR
3e70: 4f 4d 20 74 31 20 57 48 45 52 45 20 61 3e 32 7d  OM t1 WHERE a>2}
3e80: 0a 7d 20 7b 31 7d 0a 64 6f 5f 74 65 73 74 20 74  .} {1}.do_test t
3e90: 63 6c 2d 31 35 2e 35 20 7b 0a 20 20 64 62 20 65  cl-15.5 {.  db e
3ea0: 78 69 73 74 73 20 7b 53 45 4c 45 43 54 20 61 20  xists {SELECT a 
3eb0: 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 61 3e  FROM t1 WHERE a>
3ec0: 33 7d 0a 7d 20 7b 30 7d 0a 0a 0a 0a 0a 0a 0a 0a  3}.} {0}........
3ed0: 66 69 6e 69 73 68 5f 74 65 73 74 0a              finish_test.