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: 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33 7d 0a catch {sqlite3}.
02e0: 0a 73 65 74 20 74 65 73 74 64 69 72 20 5b 66 69 .set testdir [fi
02f0: 6c 65 20 64 69 72 6e 61 6d 65 20 24 61 72 67 76 le dirname $argv
0300: 30 5d 0a 73 6f 75 72 63 65 20 24 74 65 73 74 64 0].source $testd
0310: 69 72 2f 74 65 73 74 65 72 2e 74 63 6c 0a 0a 23 ir/tester.tcl..#
0320: 20 43 68 65 63 6b 20 74 68 65 20 65 72 72 6f 72 Check the error
0330: 20 6d 65 73 73 61 67 65 73 20 67 65 6e 65 72 61 messages genera
0340: 74 65 64 20 62 79 20 74 63 6c 73 71 6c 69 74 65 ted by tclsqlite
0350: 0a 23 0a 73 65 74 20 72 20 22 73 71 6c 69 74 65 .#.set r "sqlite
0360: 5f 6f 72 69 67 20 48 41 4e 44 4c 45 20 3f 46 49 _orig HANDLE ?FI
0370: 4c 45 4e 41 4d 45 3f 20 3f 2d 76 66 73 20 56 46 LENAME? ?-vfs VF
0380: 53 4e 41 4d 45 3f 20 3f 2d 72 65 61 64 6f 6e 6c SNAME? ?-readonl
0390: 79 20 42 4f 4f 4c 45 41 4e 3f 20 3f 2d 63 72 65 y BOOLEAN? ?-cre
03a0: 61 74 65 20 42 4f 4f 4c 45 41 4e 3f 20 3f 2d 6e ate BOOLEAN? ?-n
03b0: 6f 6d 75 74 65 78 20 42 4f 4f 4c 45 41 4e 3f 20 omutex BOOLEAN?
03c0: 3f 2d 66 75 6c 6c 6d 75 74 65 78 20 42 4f 4f 4c ?-fullmutex BOOL
03d0: 45 41 4e 3f 20 3f 2d 75 72 69 20 42 4f 4f 4c 45 EAN? ?-uri BOOLE
03e0: 41 4e 3f 20 3f 2d 73 68 61 72 65 64 2d 73 63 68 AN? ?-shared-sch
03f0: 65 6d 61 20 42 4f 4f 4c 45 41 4e 3f 22 0a 69 66 ema BOOLEAN?".if
0400: 20 7b 5b 73 71 6c 69 74 65 33 20 2d 68 61 73 2d {[sqlite3 -has-
0410: 63 6f 64 65 63 5d 7d 20 7b 0a 20 20 61 70 70 65 codec]} {. appe
0420: 6e 64 20 72 20 22 20 3f 2d 6b 65 79 20 43 4f 44 nd r " ?-key COD
0430: 45 43 4b 45 59 3f 22 0a 7d 0a 64 6f 5f 74 65 73 ECKEY?".}.do_tes
0440: 74 20 74 63 6c 2d 31 2e 31 20 7b 0a 20 20 73 65 t tcl-1.1 {. se
0450: 74 20 76 20 5b 63 61 74 63 68 20 7b 73 71 6c 69 t v [catch {sqli
0460: 74 65 33 20 2d 62 6f 67 75 73 7d 20 6d 73 67 5d te3 -bogus} msg]
0470: 0a 20 20 72 65 67 73 75 62 20 7b 72 65 61 6c 6c . regsub {reall
0480: 79 5f 73 71 6c 69 74 65 33 7d 20 24 6d 73 67 20 y_sqlite3} $msg
0490: 7b 73 71 6c 69 74 65 33 7d 20 6d 73 67 0a 20 20 {sqlite3} msg.
04a0: 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d lappend v $msg.}
04b0: 20 5b 6c 69 73 74 20 31 20 22 77 72 6f 6e 67 20 [list 1 "wrong
04c0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
04d0: 65 20 5c 22 24 72 5c 22 22 5d 0a 64 6f 5f 74 65 e \"$r\""].do_te
04e0: 73 74 20 74 63 6c 2d 31 2e 31 2e 31 20 7b 0a 20 st tcl-1.1.1 {.
04f0: 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 73 set v [catch {s
0500: 71 6c 69 74 65 33 7d 20 6d 73 67 5d 0a 20 20 72 qlite3} msg]. r
0510: 65 67 73 75 62 20 7b 72 65 61 6c 6c 79 5f 73 71 egsub {really_sq
0520: 6c 69 74 65 33 7d 20 24 6d 73 67 20 7b 73 71 6c lite3} $msg {sql
0530: 69 74 65 33 7d 20 6d 73 67 0a 20 20 6c 61 70 70 ite3} msg. lapp
0540: 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 5b 6c 69 end v $msg.} [li
0550: 73 74 20 31 20 22 77 72 6f 6e 67 20 23 20 61 72 st 1 "wrong # ar
0560: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 5c 22 gs: should be \"
0570: 24 72 5c 22 22 5d 0a 64 6f 5f 74 65 73 74 20 74 $r\""].do_test t
0580: 63 6c 2d 31 2e 32 20 7b 0a 20 20 73 65 74 20 76 cl-1.2 {. set v
0590: 20 5b 63 61 74 63 68 20 7b 64 62 20 62 6f 67 75 [catch {db bogu
05a0: 73 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e s} msg]. lappen
05b0: 64 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 62 d v $msg.} {1 {b
05c0: 61 64 20 6f 70 74 69 6f 6e 20 22 62 6f 67 75 73 ad option "bogus
05d0: 22 3a 20 6d 75 73 74 20 62 65 20 61 75 74 68 6f ": must be autho
05e0: 72 69 7a 65 72 2c 20 62 61 63 6b 75 70 2c 20 62 rizer, backup, b
05f0: 75 73 79 2c 20 63 61 63 68 65 2c 20 63 68 61 6e usy, cache, chan
0600: 67 65 73 2c 20 63 6c 6f 73 65 2c 20 63 6f 6c 6c ges, close, coll
0610: 61 74 65 2c 20 63 6f 6c 6c 61 74 69 6f 6e 5f 6e ate, collation_n
0620: 65 65 64 65 64 2c 20 63 6f 6d 6d 69 74 5f 68 6f eeded, commit_ho
0630: 6f 6b 2c 20 63 6f 6d 70 6c 65 74 65 2c 20 63 6f ok, complete, co
0640: 70 79 2c 20 64 65 73 65 72 69 61 6c 69 7a 65 2c py, deserialize,
0650: 20 65 6e 61 62 6c 65 5f 6c 6f 61 64 5f 65 78 74 enable_load_ext
0660: 65 6e 73 69 6f 6e 2c 20 65 72 72 6f 72 63 6f 64 ension, errorcod
0670: 65 2c 20 65 76 61 6c 2c 20 65 78 69 73 74 73 2c e, eval, exists,
0680: 20 66 75 6e 63 74 69 6f 6e 2c 20 69 6e 63 72 62 function, incrb
0690: 6c 6f 62 2c 20 69 6e 74 65 72 72 75 70 74 2c 20 lob, interrupt,
06a0: 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 6f 77 69 last_insert_rowi
06b0: 64 2c 20 6e 75 6c 6c 76 61 6c 75 65 2c 20 6f 6e d, nullvalue, on
06c0: 65 63 6f 6c 75 6d 6e 2c 20 70 72 65 75 70 64 61 ecolumn, preupda
06d0: 74 65 2c 20 70 72 6f 66 69 6c 65 2c 20 70 72 6f te, profile, pro
06e0: 67 72 65 73 73 2c 20 72 65 6b 65 79 2c 20 72 65 gress, rekey, re
06f0: 73 74 6f 72 65 2c 20 72 6f 6c 6c 62 61 63 6b 5f store, rollback_
0700: 68 6f 6f 6b 2c 20 73 65 72 69 61 6c 69 7a 65 2c hook, serialize,
0710: 20 73 74 61 74 75 73 2c 20 74 69 6d 65 6f 75 74 status, timeout
0720: 2c 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 73 2c , total_changes,
0730: 20 74 72 61 63 65 2c 20 74 72 61 63 65 5f 76 32 trace, trace_v2
0740: 2c 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c 20 75 , transaction, u
0750: 6e 6c 6f 63 6b 5f 6e 6f 74 69 66 79 2c 20 75 70 nlock_notify, up
0760: 64 61 74 65 5f 68 6f 6f 6b 2c 20 76 65 72 73 69 date_hook, versi
0770: 6f 6e 2c 20 6f 72 20 77 61 6c 5f 68 6f 6f 6b 7d on, or wal_hook}
0780: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e }.do_test tcl-1.
0790: 32 2e 31 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 2.1 {. set v [c
07a0: 61 74 63 68 20 7b 64 62 20 63 61 63 68 65 20 62 atch {db cache b
07b0: 6f 67 75 73 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 ogus} msg]. lap
07c0: 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 7b 31 pend v $msg.} {1
07d0: 20 7b 62 61 64 20 6f 70 74 69 6f 6e 20 22 62 6f {bad option "bo
07e0: 67 75 73 22 3a 20 6d 75 73 74 20 62 65 20 66 6c gus": must be fl
07f0: 75 73 68 20 6f 72 20 73 69 7a 65 7d 7d 0a 64 6f ush or size}}.do
0800: 5f 74 65 73 74 20 74 63 6c 2d 31 2e 32 2e 32 20 _test tcl-1.2.2
0810: 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 {. set v [catch
0820: 20 7b 64 62 20 63 61 63 68 65 7d 20 6d 73 67 5d {db cache} msg]
0830: 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 . lappend v $ms
0840: 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 g.} {1 {wrong #
0850: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
0860: 22 64 62 20 63 61 63 68 65 20 6f 70 74 69 6f 6e "db cache option
0870: 20 3f 61 72 67 3f 22 7d 7d 0a 64 6f 5f 74 65 73 ?arg?"}}.do_tes
0880: 74 20 74 63 6c 2d 31 2e 33 20 7b 0a 20 20 65 78 t tcl-1.3 {. ex
0890: 65 63 73 71 6c 20 7b 43 52 45 41 54 45 20 54 41 ecsql {CREATE TA
08a0: 42 4c 45 20 74 31 28 61 20 69 6e 74 2c 20 62 20 BLE t1(a int, b
08b0: 69 6e 74 29 7d 0a 20 20 65 78 65 63 73 71 6c 20 int)}. execsql
08c0: 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 {INSERT INTO t1
08d0: 56 41 4c 55 45 53 28 31 30 2c 32 30 29 7d 0a 20 VALUES(10,20)}.
08e0: 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 0a set v [catch {.
08f0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c db eval {SEL
0900: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 64 ECT * FROM t1} d
0910: 61 74 61 20 7b 0a 20 20 20 20 20 20 65 72 72 6f ata {. erro
0920: 72 20 22 54 68 65 20 65 72 72 6f 72 20 6d 65 73 r "The error mes
0930: 73 61 67 65 22 0a 20 20 20 20 7d 0a 20 20 7d 20 sage". }. }
0940: 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 msg]. lappend v
0950: 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 54 68 65 20 $msg.} {1 {The
0960: 65 72 72 6f 72 20 6d 65 73 73 61 67 65 7d 7d 0a error message}}.
0970: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e 34 20 do_test tcl-1.4
0980: 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 {. set v [catch
0990: 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b {. db eval {
09a0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 SELECT * FROM t2
09b0: 7d 20 64 61 74 61 20 7b 0a 20 20 20 20 20 20 65 } data {. e
09c0: 72 72 6f 72 20 22 54 68 65 20 65 72 72 6f 72 20 rror "The error
09d0: 6d 65 73 73 61 67 65 22 0a 20 20 20 20 7d 0a 20 message". }.
09e0: 20 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e } msg]. lappen
09f0: 64 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 6e d v $msg.} {1 {n
0a00: 6f 20 73 75 63 68 20 74 61 62 6c 65 3a 20 74 32 o such table: t2
0a10: 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 }}.do_test tcl-1
0a20: 2e 35 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 .5 {. set v [ca
0a30: 74 63 68 20 7b 0a 20 20 20 20 64 62 20 65 76 61 tch {. db eva
0a40: 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d l {SELECT * FROM
0a50: 20 74 31 7d 20 64 61 74 61 20 7b 0a 20 20 20 20 t1} data {.
0a60: 20 20 62 72 65 61 6b 0a 20 20 20 20 7d 0a 20 20 break. }.
0a70: 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 } msg]. lappend
0a80: 20 76 20 24 6d 73 67 0a 7d 20 7b 30 20 7b 7d 7d v $msg.} {0 {}}
0a90: 0a 63 61 74 63 68 20 7b 65 78 70 72 20 78 2a 7d .catch {expr x*}
0aa0: 20 6d 73 67 0a 64 6f 5f 74 65 73 74 20 74 63 6c msg.do_test tcl
0ab0: 2d 31 2e 36 20 7b 0a 20 20 73 65 74 20 76 20 5b -1.6 {. set v [
0ac0: 63 61 74 63 68 20 7b 0a 20 20 20 20 64 62 20 65 catch {. db e
0ad0: 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 val {SELECT * FR
0ae0: 4f 4d 20 74 31 7d 20 64 61 74 61 20 7b 0a 20 20 OM t1} data {.
0af0: 20 20 20 20 65 78 70 72 20 78 2a 0a 20 20 20 20 expr x*.
0b00: 7d 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 }. } msg]. lap
0b10: 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 5b 6c pend v $msg.} [l
0b20: 69 73 74 20 31 20 24 6d 73 67 5d 0a 64 6f 5f 74 ist 1 $msg].do_t
0b30: 65 73 74 20 74 63 6c 2d 31 2e 37 20 7b 0a 20 20 est tcl-1.7 {.
0b40: 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 64 62 set v [catch {db
0b50: 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 } msg]. lappend
0b60: 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 v $msg.} {1 {wr
0b70: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
0b80: 6c 64 20 62 65 20 22 64 62 20 53 55 42 43 4f 4d ld be "db SUBCOM
0b90: 4d 41 4e 44 20 2e 2e 2e 22 7d 7d 0a 69 66 20 7b MAND ..."}}.if {
0ba0: 5b 63 61 74 63 68 20 7b 64 62 20 61 75 74 68 20 [catch {db auth
0bb0: 7b 7d 7d 5d 3d 3d 30 7d 20 7b 0a 20 20 64 6f 5f {}}]==0} {. do_
0bc0: 74 65 73 74 20 74 63 6c 2d 31 2e 38 20 7b 0a 20 test tcl-1.8 {.
0bd0: 20 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 set v [catch
0be0: 7b 64 62 20 61 75 74 68 6f 72 69 7a 65 72 20 31 {db authorizer 1
0bf0: 20 32 20 33 7d 20 6d 73 67 5d 0a 20 20 20 20 6c 2 3} msg]. l
0c00: 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 20 20 append v $msg.
0c10: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 } {1 {wrong # ar
0c20: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 gs: should be "d
0c30: 62 20 61 75 74 68 6f 72 69 7a 65 72 20 3f 43 41 b authorizer ?CA
0c40: 4c 4c 42 41 43 4b 3f 22 7d 7d 0a 7d 0a 64 6f 5f LLBACK?"}}.}.do_
0c50: 74 65 73 74 20 74 63 6c 2d 31 2e 39 20 7b 0a 20 test tcl-1.9 {.
0c60: 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 64 set v [catch {d
0c70: 62 20 62 75 73 79 20 31 20 32 20 33 7d 20 6d 73 b busy 1 2 3} ms
0c80: 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24 g]. lappend v $
0c90: 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 msg.} {1 {wrong
0ca0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
0cb0: 65 20 22 64 62 20 62 75 73 79 20 43 41 4c 4c 42 e "db busy CALLB
0cc0: 41 43 4b 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 ACK"}}.do_test t
0cd0: 63 6c 2d 31 2e 31 30 20 7b 0a 20 20 73 65 74 20 cl-1.10 {. set
0ce0: 76 20 5b 63 61 74 63 68 20 7b 64 62 20 70 72 6f v [catch {db pro
0cf0: 67 72 65 73 73 20 31 7d 20 6d 73 67 5d 0a 20 20 gress 1} msg].
0d00: 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d lappend v $msg.}
0d10: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 {1 {wrong # arg
0d20: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 s: should be "db
0d30: 20 70 72 6f 67 72 65 73 73 20 4e 20 43 41 4c 4c progress N CALL
0d40: 42 41 43 4b 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 BACK"}}.do_test
0d50: 74 63 6c 2d 31 2e 31 31 20 7b 0a 20 20 73 65 74 tcl-1.11 {. set
0d60: 20 76 20 5b 63 61 74 63 68 20 7b 64 62 20 63 68 v [catch {db ch
0d70: 61 6e 67 65 73 20 78 79 7a 7d 20 6d 73 67 5d 0a anges xyz} msg].
0d80: 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 lappend v $msg
0d90: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 .} {1 {wrong # a
0da0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 rgs: should be "
0db0: 64 62 20 63 68 61 6e 67 65 73 20 22 7d 7d 0a 64 db changes "}}.d
0dc0: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e 31 32 20 o_test tcl-1.12
0dd0: 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 {. set v [catch
0de0: 20 7b 64 62 20 63 6f 6d 6d 69 74 5f 68 6f 6f 6b {db commit_hook
0df0: 20 61 20 62 20 63 7d 20 6d 73 67 5d 0a 20 20 6c a b c} msg]. l
0e00: 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 append v $msg.}
0e10: 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 {1 {wrong # args
0e20: 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 20 : should be "db
0e30: 63 6f 6d 6d 69 74 5f 68 6f 6f 6b 20 3f 43 41 4c commit_hook ?CAL
0e40: 4c 42 41 43 4b 3f 22 7d 7d 0a 69 66 63 61 70 61 LBACK?"}}.ifcapa
0e50: 62 6c 65 20 7b 63 6f 6d 70 6c 65 74 65 7d 20 7b ble {complete} {
0e60: 0a 20 20 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 . do_test tcl-1
0e70: 2e 31 33 20 7b 0a 20 20 20 20 73 65 74 20 76 20 .13 {. set v
0e80: 5b 63 61 74 63 68 20 7b 64 62 20 63 6f 6d 70 6c [catch {db compl
0e90: 65 74 65 7d 20 6d 73 67 5d 0a 20 20 20 20 6c 61 ete} msg]. la
0ea0: 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 20 20 7d ppend v $msg. }
0eb0: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 {1 {wrong # arg
0ec0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 s: should be "db
0ed0: 20 63 6f 6d 70 6c 65 74 65 20 53 51 4c 22 7d 7d complete SQL"}}
0ee0: 0a 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 .}.do_test tcl-1
0ef0: 2e 31 34 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 .14 {. set v [c
0f00: 61 74 63 68 20 7b 64 62 20 65 76 61 6c 7d 20 6d atch {db eval} m
0f10: 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 sg]. lappend v
0f20: 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 $msg.} {1 {wrong
0f30: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
0f40: 62 65 20 22 64 62 20 65 76 61 6c 20 3f 4f 50 54 be "db eval ?OPT
0f50: 49 4f 4e 53 3f 20 53 51 4c 20 3f 41 52 52 41 59 IONS? SQL ?ARRAY
0f60: 2d 4e 41 4d 45 3f 20 3f 53 43 52 49 50 54 3f 22 -NAME? ?SCRIPT?"
0f70: 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 }}.do_test tcl-1
0f80: 2e 31 35 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 .15 {. set v [c
0f90: 61 74 63 68 20 7b 64 62 20 66 75 6e 63 74 69 6f atch {db functio
0fa0: 6e 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e n} msg]. lappen
0fb0: 64 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 d v $msg.} {1 {w
0fc0: 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f rong # args: sho
0fd0: 75 6c 64 20 62 65 20 22 64 62 20 66 75 6e 63 74 uld be "db funct
0fe0: 69 6f 6e 20 4e 41 4d 45 20 3f 53 57 49 54 43 48 ion NAME ?SWITCH
0ff0: 45 53 3f 20 53 43 52 49 50 54 22 7d 7d 0a 64 6f ES? SCRIPT"}}.do
1000: 5f 74 65 73 74 20 74 63 6c 2d 31 2e 31 36 20 7b _test tcl-1.16 {
1010: 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 68 20 . set v [catch
1020: 7b 64 62 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f {db last_insert_
1030: 72 6f 77 69 64 20 78 79 7a 7d 20 6d 73 67 5d 0a rowid xyz} msg].
1040: 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 lappend v $msg
1050: 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 .} {1 {wrong # a
1060: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 rgs: should be "
1070: 64 62 20 6c 61 73 74 5f 69 6e 73 65 72 74 5f 72 db last_insert_r
1080: 6f 77 69 64 20 22 7d 7d 0a 64 6f 5f 74 65 73 74 owid "}}.do_test
1090: 20 74 63 6c 2d 31 2e 31 37 20 7b 0a 20 20 73 65 tcl-1.17 {. se
10a0: 74 20 76 20 5b 63 61 74 63 68 20 7b 64 62 20 72 t v [catch {db r
10b0: 65 6b 65 79 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 ekey} msg]. lap
10c0: 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 7b 31 pend v $msg.} {1
10d0: 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 {wrong # args:
10e0: 73 68 6f 75 6c 64 20 62 65 20 22 64 62 20 72 65 should be "db re
10f0: 6b 65 79 20 4b 45 59 22 7d 7d 0a 64 6f 5f 74 65 key KEY"}}.do_te
1100: 73 74 20 74 63 6c 2d 31 2e 31 38 20 7b 0a 20 20 st tcl-1.18 {.
1110: 73 65 74 20 76 20 5b 63 61 74 63 68 20 7b 64 62 set v [catch {db
1120: 20 74 69 6d 65 6f 75 74 7d 20 6d 73 67 5d 0a 20 timeout} msg].
1130: 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a lappend v $msg.
1140: 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 } {1 {wrong # ar
1150: 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 gs: should be "d
1160: 62 20 74 69 6d 65 6f 75 74 20 4d 49 4c 4c 49 53 b timeout MILLIS
1170: 45 43 4f 4e 44 53 22 7d 7d 0a 64 6f 5f 74 65 73 ECONDS"}}.do_tes
1180: 74 20 74 63 6c 2d 31 2e 31 39 20 7b 0a 20 20 73 t tcl-1.19 {. s
1190: 65 74 20 76 20 5b 63 61 74 63 68 20 7b 64 62 20 et v [catch {db
11a0: 63 6f 6c 6c 61 74 65 7d 20 6d 73 67 5d 0a 20 20 collate} msg].
11b0: 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d lappend v $msg.}
11c0: 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 {1 {wrong # arg
11d0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 64 62 s: should be "db
11e0: 20 63 6f 6c 6c 61 74 65 20 4e 41 4d 45 20 53 43 collate NAME SC
11f0: 52 49 50 54 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 RIPT"}}.do_test
1200: 74 63 6c 2d 31 2e 32 30 20 7b 0a 20 20 73 65 74 tcl-1.20 {. set
1210: 20 76 20 5b 63 61 74 63 68 20 7b 64 62 20 63 6f v [catch {db co
1220: 6c 6c 61 74 69 6f 6e 5f 6e 65 65 64 65 64 7d 20 llation_needed}
1230: 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 20 76 msg]. lappend v
1240: 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e $msg.} {1 {wron
1250: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
1260: 20 62 65 20 22 64 62 20 63 6f 6c 6c 61 74 69 6f be "db collatio
1270: 6e 5f 6e 65 65 64 65 64 20 53 43 52 49 50 54 22 n_needed SCRIPT"
1280: 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 }}.do_test tcl-1
1290: 2e 32 31 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 .21 {. set v [c
12a0: 61 74 63 68 20 7b 64 62 20 74 6f 74 61 6c 5f 63 atch {db total_c
12b0: 68 61 6e 67 65 73 20 78 79 7a 7d 20 6d 73 67 5d hanges xyz} msg]
12c0: 0a 20 20 6c 61 70 70 65 6e 64 20 76 20 24 6d 73 . lappend v $ms
12d0: 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 20 23 20 g.} {1 {wrong #
12e0: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
12f0: 22 64 62 20 74 6f 74 61 6c 5f 63 68 61 6e 67 65 "db total_change
1300: 73 20 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 s "}}.do_test tc
1310: 6c 2d 31 2e 32 32 20 7b 0a 20 20 73 65 74 20 76 l-1.22 {. set v
1320: 20 5b 63 61 74 63 68 20 7b 64 62 20 63 6f 70 79 [catch {db copy
1330: 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 6e 64 } msg]. lappend
1340: 20 76 20 24 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 v $msg.} {1 {wr
1350: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
1360: 6c 64 20 62 65 20 22 64 62 20 63 6f 70 79 20 43 ld be "db copy C
1370: 4f 4e 46 4c 49 43 54 2d 41 4c 47 4f 52 49 54 48 ONFLICT-ALGORITH
1380: 4d 20 54 41 42 4c 45 20 46 49 4c 45 4e 41 4d 45 M TABLE FILENAME
1390: 20 3f 53 45 50 41 52 41 54 4f 52 3f 20 3f 4e 55 ?SEPARATOR? ?NU
13a0: 4c 4c 49 4e 44 49 43 41 54 4f 52 3f 22 7d 7d 0a LLINDICATOR?"}}.
13b0: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 2e 32 33 do_test tcl-1.23
13c0: 20 7b 0a 20 20 73 65 74 20 76 20 5b 63 61 74 63 {. set v [catc
13d0: 68 20 7b 73 71 6c 69 74 65 33 20 64 62 32 20 74 h {sqlite3 db2 t
13e0: 65 73 74 2e 64 62 20 2d 76 66 73 20 6e 6f 73 75 est.db -vfs nosu
13f0: 63 68 76 66 73 7d 20 6d 73 67 5d 0a 20 20 6c 61 chvfs} msg]. la
1400: 70 70 65 6e 64 20 76 20 24 6d 73 67 0a 7d 20 7b ppend v $msg.} {
1410: 31 20 7b 6e 6f 20 73 75 63 68 20 76 66 73 3a 20 1 {no such vfs:
1420: 6e 6f 73 75 63 68 76 66 73 7d 7d 0a 0a 63 61 74 nosuchvfs}}..cat
1430: 63 68 20 7b 75 6e 73 65 74 20 3a 3a 72 65 73 75 ch {unset ::resu
1440: 6c 74 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d lt}.do_test tcl-
1450: 32 2e 31 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 2.1 {. execsql
1460: 22 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 5c "CREATE TABLE t\
1470: 75 30 31 32 33 78 28 61 20 69 6e 74 2c 20 62 5c u0123x(a int, b\
1480: 75 31 32 33 35 20 66 6c 6f 61 74 29 22 0a 7d 20 u1235 float)".}
1490: 7b 7d 0a 69 66 63 61 70 61 62 6c 65 20 73 63 68 {}.ifcapable sch
14a0: 65 6d 61 5f 70 72 61 67 6d 61 73 20 7b 0a 20 20 ema_pragmas {.
14b0: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 32 2e 32 20 do_test tcl-2.2
14c0: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 22 50 {. execsql "P
14d0: 52 41 47 4d 41 20 74 61 62 6c 65 5f 69 6e 66 6f RAGMA table_info
14e0: 28 74 5c 75 30 31 32 33 78 29 22 0a 20 20 7d 20 (t\u0123x)". }
14f0: 22 30 20 61 20 69 6e 74 20 30 20 7b 7d 20 30 20 "0 a int 0 {} 0
1500: 31 20 62 5c 75 31 32 33 35 20 66 6c 6f 61 74 20 1 b\u1235 float
1510: 30 20 7b 7d 20 30 22 0a 7d 0a 64 6f 5f 74 65 73 0 {} 0".}.do_tes
1520: 74 20 74 63 6c 2d 32 2e 33 20 7b 0a 20 20 65 78 t tcl-2.3 {. ex
1530: 65 63 73 71 6c 20 22 49 4e 53 45 52 54 20 49 4e ecsql "INSERT IN
1540: 54 4f 20 74 5c 75 30 31 32 33 78 20 56 41 4c 55 TO t\u0123x VALU
1550: 45 53 28 31 2c 32 2e 33 29 22 0a 20 20 64 62 20 ES(1,2.3)". db
1560: 65 76 61 6c 20 22 53 45 4c 45 43 54 20 2a 20 46 eval "SELECT * F
1570: 52 4f 4d 20 74 5c 75 30 31 32 33 78 22 20 72 65 ROM t\u0123x" re
1580: 73 75 6c 74 20 62 72 65 61 6b 0a 20 20 73 65 74 sult break. set
1590: 20 72 65 73 75 6c 74 28 2a 29 0a 7d 20 22 61 20 result(*).} "a
15a0: 62 5c 75 31 32 33 35 22 0a 0a 0a 23 20 54 65 73 b\u1235"...# Tes
15b0: 74 20 74 68 65 20 6f 6e 65 63 6f 6c 75 6d 6e 20 t the onecolumn
15c0: 6d 65 74 68 6f 64 0a 23 0a 64 6f 5f 74 65 73 74 method.#.do_test
15d0: 20 74 63 6c 2d 33 2e 31 20 7b 0a 20 20 65 78 65 tcl-3.1 {. exe
15e0: 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e 53 45 52 csql {. INSER
15f0: 54 20 49 4e 54 4f 20 74 31 20 53 45 4c 45 43 54 T INTO t1 SELECT
1600: 20 61 2a 32 2c 20 62 2a 32 20 46 52 4f 4d 20 74 a*2, b*2 FROM t
1610: 31 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 1;. INSERT IN
1620: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 61 2a 32 TO t1 SELECT a*2
1630: 2b 31 2c 20 62 2a 32 2b 31 20 46 52 4f 4d 20 74 +1, b*2+1 FROM t
1640: 31 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 1;. INSERT IN
1650: 54 4f 20 74 31 20 53 45 4c 45 43 54 20 61 2a 32 TO t1 SELECT a*2
1660: 2b 33 2c 20 62 2a 32 2b 33 20 46 52 4f 4d 20 74 +3, b*2+3 FROM t
1670: 31 3b 0a 20 20 7d 0a 20 20 73 65 74 20 72 63 20 1;. }. set rc
1680: 5b 63 61 74 63 68 20 7b 64 62 20 6f 6e 65 63 6f [catch {db oneco
1690: 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 2a 20 46 lumn {SELECT * F
16a0: 52 4f 4d 20 74 31 20 4f 52 44 45 52 20 42 59 20 ROM t1 ORDER BY
16b0: 61 7d 7d 20 6d 73 67 5d 0a 20 20 6c 61 70 70 65 a}} msg]. lappe
16c0: 6e 64 20 72 63 20 24 6d 73 67 0a 7d 20 7b 30 20 nd rc $msg.} {0
16d0: 31 30 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 10}.do_test tcl-
16e0: 33 2e 32 20 7b 0a 20 20 64 62 20 6f 6e 65 63 6f 3.2 {. db oneco
16f0: 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 2a 20 46 lumn {SELECT * F
1700: 52 4f 4d 20 74 31 20 57 48 45 52 45 20 61 3c 30 ROM t1 WHERE a<0
1710: 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 74 }.} {}.do_test t
1720: 63 6c 2d 33 2e 33 20 7b 0a 20 20 73 65 74 20 72 cl-3.3 {. set r
1730: 63 20 5b 63 61 74 63 68 20 7b 64 62 20 6f 6e 65 c [catch {db one
1740: 63 6f 6c 75 6d 6e 7d 20 65 72 72 6d 73 67 5d 0a column} errmsg].
1750: 20 20 6c 61 70 70 65 6e 64 20 72 63 20 24 65 72 lappend rc $er
1760: 72 6d 73 67 0a 7d 20 7b 31 20 7b 77 72 6f 6e 67 rmsg.} {1 {wrong
1770: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
1780: 62 65 20 22 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e be "db onecolumn
1790: 20 53 51 4c 22 7d 7d 0a 64 6f 5f 74 65 73 74 20 SQL"}}.do_test
17a0: 74 63 6c 2d 33 2e 34 20 7b 0a 20 20 73 65 74 20 tcl-3.4 {. set
17b0: 72 63 20 5b 63 61 74 63 68 20 7b 64 62 20 6f 6e rc [catch {db on
17c0: 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c 45 43 54 20 ecolumn {SELECT
17d0: 62 6f 67 75 73 7d 7d 20 65 72 72 6d 73 67 5d 0a bogus}} errmsg].
17e0: 20 20 6c 61 70 70 65 6e 64 20 72 63 20 24 65 72 lappend rc $er
17f0: 72 6d 73 67 0a 7d 20 7b 31 20 7b 6e 6f 20 73 75 rmsg.} {1 {no su
1800: 63 68 20 63 6f 6c 75 6d 6e 3a 20 62 6f 67 75 73 ch column: bogus
1810: 7d 7d 0a 69 66 63 61 70 61 62 6c 65 20 7b 74 63 }}.ifcapable {tc
1820: 6c 76 61 72 7d 20 7b 0a 20 20 64 6f 5f 74 65 73 lvar} {. do_tes
1830: 74 20 74 63 6c 2d 33 2e 35 20 7b 0a 20 20 20 20 t tcl-3.5 {.
1840: 73 65 74 20 62 20 35 30 0a 20 20 20 20 73 65 74 set b 50. set
1850: 20 72 63 20 5b 63 61 74 63 68 20 7b 64 62 20 6f rc [catch {db o
1860: 6e 65 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f ne {SELECT * FRO
1870: 4d 20 74 31 20 57 48 45 52 45 20 62 3e 24 62 7d M t1 WHERE b>$b}
1880: 7d 20 6d 73 67 5d 0a 20 20 20 20 6c 61 70 70 65 } msg]. lappe
1890: 6e 64 20 72 63 20 24 6d 73 67 0a 20 20 7d 20 7b nd rc $msg. } {
18a0: 30 20 34 31 7d 0a 20 20 64 6f 5f 74 65 73 74 20 0 41}. do_test
18b0: 74 63 6c 2d 33 2e 36 20 7b 0a 20 20 20 20 73 65 tcl-3.6 {. se
18c0: 74 20 62 20 35 30 30 0a 20 20 20 20 73 65 74 20 t b 500. set
18d0: 72 63 20 5b 63 61 74 63 68 20 7b 64 62 20 6f 6e rc [catch {db on
18e0: 65 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d e {SELECT * FROM
18f0: 20 74 31 20 57 48 45 52 45 20 62 3e 24 62 7d 7d t1 WHERE b>$b}}
1900: 20 6d 73 67 5d 0a 20 20 20 20 6c 61 70 70 65 6e msg]. lappen
1910: 64 20 72 63 20 24 6d 73 67 0a 20 20 7d 20 7b 30 d rc $msg. } {0
1920: 20 7b 7d 7d 0a 20 20 64 6f 5f 74 65 73 74 20 74 {}}. do_test t
1930: 63 6c 2d 33 2e 37 20 7b 0a 20 20 20 20 73 65 74 cl-3.7 {. set
1940: 20 62 20 35 30 30 0a 20 20 20 20 73 65 74 20 72 b 500. set r
1950: 63 20 5b 63 61 74 63 68 20 7b 64 62 20 6f 6e 65 c [catch {db one
1960: 20 7b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 {. INSERT
1970: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 39 INTO t1 VALUES(9
1980: 39 2c 35 31 30 29 3b 0a 20 20 20 20 20 20 53 45 9,510);. SE
1990: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 57 LECT * FROM t1 W
19a0: 48 45 52 45 20 62 3e 24 62 0a 20 20 20 20 7d 7d HERE b>$b. }}
19b0: 20 6d 73 67 5d 0a 20 20 20 20 6c 61 70 70 65 6e msg]. lappen
19c0: 64 20 72 63 20 24 6d 73 67 0a 20 20 7d 20 7b 30 d rc $msg. } {0
19d0: 20 39 39 7d 0a 7d 0a 69 66 63 61 70 61 62 6c 65 99}.}.ifcapable
19e0: 20 7b 21 74 63 6c 76 61 72 7d 20 7b 0a 20 20 20 {!tclvar} {.
19f0: 65 78 65 63 73 71 6c 20 7b 49 4e 53 45 52 54 20 execsql {INSERT
1a00: 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 39 INTO t1 VALUES(9
1a10: 39 2c 35 31 30 29 7d 0a 7d 0a 0a 23 20 54 75 72 9,510)}.}..# Tur
1a20: 6e 20 74 68 65 20 62 75 73 79 20 68 61 6e 64 6c n the busy handl
1a30: 65 72 20 6f 6e 20 61 6e 64 20 6f 66 66 0a 23 0a er on and off.#.
1a40: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 34 2e 31 20 do_test tcl-4.1
1a50: 7b 0a 20 20 70 72 6f 63 20 62 75 73 79 5f 63 61 {. proc busy_ca
1a60: 6c 6c 62 61 63 6b 20 7b 63 6e 74 7d 20 7b 0a 20 llback {cnt} {.
1a70: 20 20 20 62 72 65 61 6b 0a 20 20 7d 0a 20 20 64 break. }. d
1a80: 62 20 62 75 73 79 20 62 75 73 79 5f 63 61 6c 6c b busy busy_call
1a90: 62 61 63 6b 0a 20 20 64 62 20 62 75 73 79 0a 7d back. db busy.}
1aa0: 20 7b 62 75 73 79 5f 63 61 6c 6c 62 61 63 6b 7d {busy_callback}
1ab0: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 34 2e 32 .do_test tcl-4.2
1ac0: 20 7b 0a 20 20 64 62 20 62 75 73 79 20 7b 7d 0a {. db busy {}.
1ad0: 20 20 64 62 20 62 75 73 79 0a 7d 20 7b 7d 0a 0a db busy.} {}..
1ae0: 69 66 63 61 70 61 62 6c 65 20 7b 74 63 6c 76 61 ifcapable {tclva
1af0: 72 7d 20 7b 0a 20 20 23 20 50 61 72 73 69 6e 67 r} {. # Parsing
1b00: 20 6f 66 20 54 43 4c 20 76 61 72 69 61 62 6c 65 of TCL variable
1b10: 20 6e 61 6d 65 73 20 77 69 74 68 69 6e 20 53 51 names within SQ
1b20: 4c 20 69 6e 74 6f 20 62 6f 75 6e 64 20 70 61 72 L into bound par
1b30: 61 6d 65 74 65 72 73 2e 0a 20 20 23 0a 20 20 64 ameters.. #. d
1b40: 6f 5f 74 65 73 74 20 74 63 6c 2d 35 2e 31 20 7b o_test tcl-5.1 {
1b50: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 43 52 . execsql {CR
1b60: 45 41 54 45 20 54 41 42 4c 45 20 74 33 28 61 2c EATE TABLE t3(a,
1b70: 62 2c 63 29 7d 0a 20 20 20 20 63 61 74 63 68 20 b,c)}. catch
1b80: 7b 75 6e 73 65 74 20 78 7d 0a 20 20 20 20 73 65 {unset x}. se
1b90: 74 20 78 28 31 29 20 41 0a 20 20 20 20 73 65 74 t x(1) A. set
1ba0: 20 78 28 32 29 20 42 0a 20 20 20 20 65 78 65 63 x(2) B. exec
1bb0: 73 71 6c 20 7b 0a 20 20 20 20 20 20 49 4e 53 45 sql {. INSE
1bc0: 52 54 20 49 4e 54 4f 20 74 33 20 56 41 4c 55 45 RT INTO t3 VALUE
1bd0: 53 28 24 3a 3a 78 28 31 29 2c 24 3a 3a 78 28 32 S($::x(1),$::x(2
1be0: 29 2c 24 3a 3a 78 28 33 29 29 3b 0a 20 20 20 20 ),$::x(3));.
1bf0: 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 SELECT * FROM
1c00: 74 33 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 41 20 t3. }. } {A
1c10: 42 20 7b 7d 7d 0a 20 20 64 6f 5f 74 65 73 74 20 B {}}. do_test
1c20: 74 63 6c 2d 35 2e 32 20 7b 0a 20 20 20 20 65 78 tcl-5.2 {. ex
1c30: 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45 ecsql {. SE
1c40: 4c 45 43 54 20 74 79 70 65 6f 66 28 61 29 2c 20 LECT typeof(a),
1c50: 74 79 70 65 6f 66 28 62 29 2c 20 74 79 70 65 6f typeof(b), typeo
1c60: 66 28 63 29 20 46 52 4f 4d 20 74 33 0a 20 20 20 f(c) FROM t3.
1c70: 20 7d 0a 20 20 7d 20 7b 74 65 78 74 20 74 65 78 }. } {text tex
1c80: 74 20 6e 75 6c 6c 7d 0a 20 20 64 6f 5f 74 65 73 t null}. do_tes
1c90: 74 20 74 63 6c 2d 35 2e 33 20 7b 0a 20 20 20 20 t tcl-5.3 {.
1ca0: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 78 7d 0a catch {unset x}.
1cb0: 20 20 20 20 73 65 74 20 78 20 5b 62 69 6e 61 72 set x [binar
1cc0: 79 20 66 6f 72 6d 61 74 20 68 31 32 20 36 38 36 y format h12 686
1cd0: 39 30 30 36 38 36 66 30 30 5d 0a 20 20 20 20 65 900686f00]. e
1ce0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 55 xecsql {. U
1cf0: 50 44 41 54 45 20 74 33 20 53 45 54 20 61 3d 24 PDATE t3 SET a=$
1d00: 3a 3a 78 3b 0a 20 20 20 20 7d 0a 20 20 20 20 64 ::x;. }. d
1d10: 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 20 20 53 b eval {. S
1d20: 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 74 33 0a ELECT a FROM t3.
1d30: 20 20 20 20 7d 20 62 72 65 61 6b 0a 20 20 20 20 } break.
1d40: 62 69 6e 61 72 79 20 73 63 61 6e 20 24 61 20 68 binary scan $a h
1d50: 31 32 20 61 64 61 74 61 0a 20 20 20 20 73 65 74 12 adata. set
1d60: 20 61 64 61 74 61 0a 20 20 7d 20 7b 36 38 36 39 adata. } {6869
1d70: 30 30 36 38 36 66 30 30 7d 0a 20 20 64 6f 5f 74 00686f00}. do_t
1d80: 65 73 74 20 74 63 6c 2d 35 2e 34 20 7b 0a 20 20 est tcl-5.4 {.
1d90: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 execsql {.
1da0: 20 20 53 45 4c 45 43 54 20 74 79 70 65 6f 66 28 SELECT typeof(
1db0: 61 29 2c 20 74 79 70 65 6f 66 28 62 29 2c 20 74 a), typeof(b), t
1dc0: 79 70 65 6f 66 28 63 29 20 46 52 4f 4d 20 74 33 ypeof(c) FROM t3
1dd0: 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 62 6c 6f 62 . }. } {blob
1de0: 20 74 65 78 74 20 6e 75 6c 6c 7d 0a 7d 0a 0a 23 text null}.}..#
1df0: 20 4f 70 65 72 61 74 69 6f 6e 20 6f 66 20 22 62 Operation of "b
1e00: 72 65 61 6b 22 20 61 6e 64 20 22 63 6f 6e 74 69 reak" and "conti
1e10: 6e 75 65 22 20 77 69 74 68 69 6e 20 72 6f 77 20 nue" within row
1e20: 73 63 72 69 70 74 73 0a 23 0a 64 6f 5f 74 65 73 scripts.#.do_tes
1e30: 74 20 74 63 6c 2d 36 2e 31 20 7b 0a 20 20 64 62 t tcl-6.1 {. db
1e40: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 eval {SELECT *
1e50: 46 52 4f 4d 20 74 31 7d 20 7b 0a 20 20 20 20 62 FROM t1} {. b
1e60: 72 65 61 6b 0a 20 20 7d 0a 20 20 6c 61 70 70 65 reak. }. lappe
1e70: 6e 64 20 61 20 24 62 0a 7d 20 7b 31 30 20 32 30 nd a $b.} {10 20
1e80: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 36 2e }.do_test tcl-6.
1e90: 32 20 7b 0a 20 20 73 65 74 20 63 6e 74 20 30 0a 2 {. set cnt 0.
1ea0: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 db eval {SELEC
1eb0: 54 20 2a 20 46 52 4f 4d 20 74 31 7d 20 7b 0a 20 T * FROM t1} {.
1ec0: 20 20 20 69 66 20 7b 24 61 3e 34 30 7d 20 63 6f if {$a>40} co
1ed0: 6e 74 69 6e 75 65 0a 20 20 20 20 69 6e 63 72 20 ntinue. incr
1ee0: 63 6e 74 0a 20 20 7d 0a 20 20 73 65 74 20 63 6e cnt. }. set cn
1ef0: 74 0a 7d 20 7b 34 7d 0a 64 6f 5f 74 65 73 74 20 t.} {4}.do_test
1f00: 74 63 6c 2d 36 2e 33 20 7b 0a 20 20 73 65 74 20 tcl-6.3 {. set
1f10: 63 6e 74 20 30 0a 20 20 64 62 20 65 76 61 6c 20 cnt 0. db eval
1f20: 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 {SELECT * FROM t
1f30: 31 7d 20 7b 0a 20 20 20 20 69 66 20 7b 24 61 3c 1} {. if {$a<
1f40: 34 30 7d 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 40} continue.
1f50: 20 69 6e 63 72 20 63 6e 74 0a 20 20 7d 0a 20 20 incr cnt. }.
1f60: 73 65 74 20 63 6e 74 0a 7d 20 7b 35 7d 0a 64 6f set cnt.} {5}.do
1f70: 5f 74 65 73 74 20 74 63 6c 2d 36 2e 34 20 7b 0a _test tcl-6.4 {.
1f80: 20 20 70 72 6f 63 20 72 65 74 75 72 6e 5f 74 65 proc return_te
1f90: 73 74 20 7b 78 7d 20 7b 0a 20 20 20 20 64 62 20 st {x} {. db
1fa0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 eval {SELECT * F
1fb0: 52 4f 4d 20 74 31 7d 20 7b 0a 20 20 20 20 20 20 ROM t1} {.
1fc0: 69 66 20 7b 24 61 3d 3d 24 78 7d 20 7b 72 65 74 if {$a==$x} {ret
1fd0: 75 72 6e 20 24 62 7d 0a 20 20 20 20 7d 0a 20 20 urn $b}. }.
1fe0: 7d 0a 20 20 72 65 74 75 72 6e 5f 74 65 73 74 20 }. return_test
1ff0: 31 30 0a 7d 20 32 30 0a 64 6f 5f 74 65 73 74 20 10.} 20.do_test
2000: 74 63 6c 2d 36 2e 35 20 7b 0a 20 20 72 65 74 75 tcl-6.5 {. retu
2010: 72 6e 5f 74 65 73 74 20 32 30 0a 7d 20 34 30 0a rn_test 20.} 40.
2020: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 36 2e 36 20 do_test tcl-6.6
2030: 7b 0a 20 20 72 65 74 75 72 6e 5f 74 65 73 74 20 {. return_test
2040: 39 39 0a 7d 20 35 31 30 0a 64 6f 5f 74 65 73 74 99.} 510.do_test
2050: 20 74 63 6c 2d 36 2e 37 20 7b 0a 20 20 72 65 74 tcl-6.7 {. ret
2060: 75 72 6e 5f 74 65 73 74 20 30 0a 7d 20 7b 7d 0a urn_test 0.} {}.
2070: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 37 2e 31 .do_test tcl-7.1
2080: 20 7b 0a 20 20 64 62 20 76 65 72 73 69 6f 6e 0a {. db version.
2090: 20 20 65 78 70 72 20 30 0a 7d 20 7b 30 7d 0a 0a expr 0.} {0}..
20a0: 23 20 6d 6f 64 69 66 79 20 61 6e 64 20 72 65 73 # modify and res
20b0: 65 74 20 74 68 65 20 4e 55 4c 4c 20 72 65 70 72 et the NULL repr
20c0: 65 73 65 6e 74 61 74 69 6f 6e 0a 23 0a 64 6f 5f esentation.#.do_
20d0: 74 65 73 74 20 74 63 6c 2d 38 2e 31 20 7b 0a 20 test tcl-8.1 {.
20e0: 20 64 62 20 6e 75 6c 6c 76 61 6c 75 65 20 4e 61 db nullvalue Na
20f0: 4e 0a 20 20 65 78 65 63 73 71 6c 20 7b 49 4e 53 N. execsql {INS
2100: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 ERT INTO t1 VALU
2110: 45 53 28 33 30 2c 4e 55 4c 4c 29 7d 0a 20 20 64 ES(30,NULL)}. d
2120: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a b eval {SELECT *
2130: 20 46 52 4f 4d 20 74 31 20 57 48 45 52 45 20 62 FROM t1 WHERE b
2140: 20 49 53 20 4e 55 4c 4c 7d 0a 7d 20 7b 33 30 20 IS NULL}.} {30
2150: 4e 61 4e 7d 0a 70 72 6f 63 20 63 6f 6e 63 61 74 NaN}.proc concat
2160: 46 75 6e 63 20 61 72 67 73 20 7b 72 65 74 75 72 Func args {retur
2170: 6e 20 5b 6a 6f 69 6e 20 24 61 72 67 73 20 7b 7d n [join $args {}
2180: 5d 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 38 ]}.do_test tcl-8
2190: 2e 32 20 7b 0a 20 20 64 62 20 66 75 6e 63 74 69 .2 {. db functi
21a0: 6f 6e 20 63 6f 6e 63 61 74 20 63 6f 6e 63 61 74 on concat concat
21b0: 46 75 6e 63 0a 20 20 64 62 20 65 76 61 6c 20 7b Func. db eval {
21c0: 53 45 4c 45 43 54 20 63 6f 6e 63 61 74 28 27 61 SELECT concat('a
21d0: 27 2c 20 62 2c 20 27 7a 27 29 20 46 52 4f 4d 20 ', b, 'z') FROM
21e0: 74 31 20 57 48 45 52 45 20 62 20 69 73 20 4e 55 t1 WHERE b is NU
21f0: 4c 4c 7d 0a 7d 20 7b 61 4e 61 4e 7a 7d 0a 64 6f LL}.} {aNaNz}.do
2200: 5f 74 65 73 74 20 74 63 6c 2d 38 2e 33 20 7b 0a _test tcl-8.3 {.
2210: 20 20 64 62 20 6e 75 6c 6c 76 61 6c 75 65 20 4e db nullvalue N
2220: 55 4c 4c 0a 20 20 64 62 20 6e 75 6c 6c 76 61 6c ULL. db nullval
2230: 75 65 0a 7d 20 7b 4e 55 4c 4c 7d 0a 64 6f 5f 74 ue.} {NULL}.do_t
2240: 65 73 74 20 74 63 6c 2d 38 2e 34 20 7b 0a 20 20 est tcl-8.4 {.
2250: 64 62 20 6e 75 6c 6c 76 61 6c 75 65 20 7b 7d 0a db nullvalue {}.
2260: 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 db eval {SELEC
2270: 54 20 2a 20 46 52 4f 4d 20 74 31 20 57 48 45 52 T * FROM t1 WHER
2280: 45 20 62 20 49 53 20 4e 55 4c 4c 7d 0a 7d 20 7b E b IS NULL}.} {
2290: 33 30 20 7b 7d 7d 0a 64 6f 5f 74 65 73 74 20 74 30 {}}.do_test t
22a0: 63 6c 2d 38 2e 35 20 7b 0a 20 20 64 62 20 66 75 cl-8.5 {. db fu
22b0: 6e 63 74 69 6f 6e 20 63 6f 6e 63 61 74 20 63 6f nction concat co
22c0: 6e 63 61 74 46 75 6e 63 0a 20 20 64 62 20 65 76 ncatFunc. db ev
22d0: 61 6c 20 7b 53 45 4c 45 43 54 20 63 6f 6e 63 61 al {SELECT conca
22e0: 74 28 27 61 27 2c 20 62 2c 20 27 7a 27 29 20 46 t('a', b, 'z') F
22f0: 52 4f 4d 20 74 31 20 57 48 45 52 45 20 62 20 69 ROM t1 WHERE b i
2300: 73 20 4e 55 4c 4c 7d 0a 7d 20 7b 61 7a 7d 0a 0a s NULL}.} {az}..
2310: 23 20 54 65 73 74 20 74 68 65 20 72 65 74 75 72 # Test the retur
2320: 6e 20 74 79 70 65 20 6f 66 20 75 73 65 72 2d 64 n type of user-d
2330: 65 66 69 6e 65 64 20 66 75 6e 63 74 69 6f 6e 73 efined functions
2340: 0a 23 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 39 .#.do_test tcl-9
2350: 2e 31 20 7b 0a 20 20 64 62 20 66 75 6e 63 74 69 .1 {. db functi
2360: 6f 6e 20 72 65 74 5f 73 74 72 20 7b 72 65 74 75 on ret_str {retu
2370: 72 6e 20 22 68 69 22 7d 0a 20 20 65 78 65 63 73 rn "hi"}. 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 73 74 72 28 29 29 7d 0a 7d 20 f(ret_str())}.}
23a0: 7b 74 65 78 74 7d 0a 64 6f 5f 74 65 73 74 20 74 {text}.do_test t
23b0: 63 6c 2d 39 2e 32 20 7b 0a 20 20 64 62 20 66 75 cl-9.2 {. db fu
23c0: 6e 63 74 69 6f 6e 20 72 65 74 5f 64 62 6c 20 7b nction ret_dbl {
23d0: 72 65 74 75 72 6e 20 5b 65 78 70 72 20 7b 72 61 return [expr {ra
23e0: 6e 64 28 29 2a 30 2e 35 7d 5d 7d 0a 20 20 65 78 nd()*0.5}]}. ex
23f0: 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 74 79 ecsql {SELECT ty
2400: 70 65 6f 66 28 72 65 74 5f 64 62 6c 28 29 29 7d peof(ret_dbl())}
2410: 0a 7d 20 7b 72 65 61 6c 7d 0a 64 6f 5f 74 65 73 .} {real}.do_tes
2420: 74 20 74 63 6c 2d 39 2e 33 20 7b 0a 20 20 64 62 t tcl-9.3 {. db
2430: 20 66 75 6e 63 74 69 6f 6e 20 72 65 74 5f 69 6e function ret_in
2440: 74 20 7b 72 65 74 75 72 6e 20 5b 65 78 70 72 20 t {return [expr
2450: 7b 69 6e 74 28 72 61 6e 64 28 29 2a 32 30 30 29 {int(rand()*200)
2460: 7d 5d 7d 0a 20 20 65 78 65 63 73 71 6c 20 7b 53 }]}. execsql {S
2470: 45 4c 45 43 54 20 74 79 70 65 6f 66 28 72 65 74 ELECT typeof(ret
2480: 5f 69 6e 74 28 29 29 7d 0a 7d 20 7b 69 6e 74 65 _int())}.} {inte
2490: 67 65 72 7d 0a 0a 23 20 52 65 63 75 72 73 69 76 ger}..# Recursiv
24a0: 65 20 63 61 6c 6c 73 20 74 6f 20 74 68 65 20 73 e calls to the s
24b0: 61 6d 65 20 75 73 65 72 2d 64 65 66 69 6e 65 64 ame user-defined
24c0: 20 66 75 6e 63 74 69 6f 6e 0a 23 0a 69 66 63 61 function.#.ifca
24d0: 70 61 62 6c 65 20 74 63 6c 76 61 72 20 7b 0a 20 pable tclvar {.
24e0: 20 64 6f 5f 74 65 73 74 20 74 63 6c 2d 39 2e 31 do_test tcl-9.1
24f0: 30 20 7b 0a 20 20 20 20 70 72 6f 63 20 75 73 65 0 {. proc use
2500: 72 66 75 6e 63 5f 72 31 20 7b 6e 7d 20 7b 0a 20 rfunc_r1 {n} {.
2510: 20 20 20 20 20 69 66 20 7b 24 6e 3c 3d 30 7d 20 if {$n<=0}
2520: 7b 72 65 74 75 72 6e 20 30 7d 0a 20 20 20 20 20 {return 0}.
2530: 20 73 65 74 20 6e 6d 31 20 5b 65 78 70 72 20 7b set nm1 [expr {
2540: 24 6e 2d 31 7d 5d 0a 20 20 20 20 20 20 72 65 74 $n-1}]. ret
2550: 75 72 6e 20 5b 65 78 70 72 20 7b 5b 64 62 20 65 urn [expr {[db e
2560: 76 61 6c 20 7b 53 45 4c 45 43 54 20 72 31 28 24 val {SELECT r1($
2570: 6e 6d 31 29 7d 5d 2b 24 6e 7d 5d 0a 20 20 20 20 nm1)}]+$n}].
2580: 7d 0a 20 20 20 20 64 62 20 66 75 6e 63 74 69 6f }. db functio
2590: 6e 20 72 31 20 75 73 65 72 66 75 6e 63 5f 72 31 n r1 userfunc_r1
25a0: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 53 45 . execsql {SE
25b0: 4c 45 43 54 20 72 31 28 31 30 29 7d 0a 20 20 7d LECT r1(10)}. }
25c0: 20 7b 35 35 7d 0a 20 20 64 6f 5f 74 65 73 74 20 {55}. do_test
25d0: 74 63 6c 2d 39 2e 31 31 20 7b 0a 20 20 20 20 65 tcl-9.11 {. e
25e0: 78 65 63 73 71 6c 20 7b 53 45 4c 45 43 54 20 72 xecsql {SELECT r
25f0: 31 28 31 30 30 29 7d 0a 20 20 7d 20 7b 35 30 35 1(100)}. } {505
2600: 30 7d 0a 7d 0a 0a 23 20 54 65 73 74 73 20 66 6f 0}.}..# Tests fo
2610: 72 20 74 68 65 20 6e 65 77 20 74 72 61 6e 73 61 r the new transa
2620: 63 74 69 6f 6e 20 6d 65 74 68 6f 64 0a 23 0a 64 ction method.#.d
2630: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 31 20 o_test tcl-10.1
2640: 7b 0a 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 {. db transacti
2650: 6f 6e 20 7b 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 on {}.} {}.do_te
2660: 73 74 20 74 63 6c 2d 31 30 2e 32 20 7b 0a 20 20 st tcl-10.2 {.
2670: 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 64 db transaction d
2680: 65 66 65 72 72 65 64 20 7b 7d 0a 7d 20 7b 7d 0a eferred {}.} {}.
2690: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 33 do_test tcl-10.3
26a0: 20 7b 0a 20 20 64 62 20 74 72 61 6e 73 61 63 74 {. db transact
26b0: 69 6f 6e 20 69 6d 6d 65 64 69 61 74 65 20 7b 7d ion immediate {}
26c0: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 74 63 .} {}.do_test tc
26d0: 6c 2d 31 30 2e 34 20 7b 0a 20 20 64 62 20 74 72 l-10.4 {. db tr
26e0: 61 6e 73 61 63 74 69 6f 6e 20 65 78 63 6c 75 73 ansaction exclus
26f0: 69 76 65 20 7b 7d 0a 7d 20 7b 7d 0a 64 6f 5f 74 ive {}.} {}.do_t
2700: 65 73 74 20 74 63 6c 2d 31 30 2e 35 20 7b 0a 20 est tcl-10.5 {.
2710: 20 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b set rc [catch {
2720: 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 78 db transaction x
2730: 79 7a 7a 79 20 7b 7d 7d 20 6d 73 67 5d 0a 20 20 yzzy {}} msg].
2740: 6c 61 70 70 65 6e 64 20 72 63 20 24 6d 73 67 0a lappend rc $msg.
2750: 7d 20 7b 31 20 7b 62 61 64 20 74 72 61 6e 73 61 } {1 {bad transa
2760: 63 74 69 6f 6e 20 74 79 70 65 20 22 78 79 7a 7a ction type "xyzz
2770: 79 22 3a 20 6d 75 73 74 20 62 65 20 64 65 66 65 y": must be defe
2780: 72 72 65 64 2c 20 65 78 63 6c 75 73 69 76 65 2c rred, exclusive,
2790: 20 6f 72 20 69 6d 6d 65 64 69 61 74 65 7d 7d 0a or immediate}}.
27a0: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 36 do_test tcl-10.6
27b0: 20 7b 0a 20 20 73 65 74 20 72 63 20 5b 63 61 74 {. set rc [cat
27c0: 63 68 20 7b 64 62 20 74 72 61 6e 73 61 63 74 69 ch {db transacti
27d0: 6f 6e 20 7b 65 72 72 6f 72 20 74 65 73 74 2d 65 on {error test-e
27e0: 72 72 6f 72 7d 7d 20 6d 73 67 5d 0a 20 20 6c 61 rror}} msg]. la
27f0: 70 70 65 6e 64 20 72 63 20 24 6d 73 67 0a 7d 20 ppend rc $msg.}
2800: 7b 31 20 74 65 73 74 2d 65 72 72 6f 72 7d 0a 64 {1 test-error}.d
2810: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 37 20 o_test tcl-10.7
2820: 7b 0a 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 {. db transacti
2830: 6f 6e 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c on {. db eval
2840: 20 7b 43 52 45 41 54 45 20 54 41 42 4c 45 20 74 {CREATE TABLE t
2850: 34 28 78 29 7d 0a 20 20 20 20 64 62 20 74 72 61 4(x)}. db tra
2860: 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20 nsaction {.
2870: 20 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 db eval {INSERT
2880: 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 INTO t4 VALUES(
2890: 31 29 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 1)}. }. }.
28a0: 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 db eval {SELECT
28b0: 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 31 0a 64 * FROM t4}.} 1.d
28c0: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 38 20 o_test tcl-10.8
28d0: 7b 0a 20 20 63 61 74 63 68 20 7b 0a 20 20 20 20 {. catch {.
28e0: 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b db transaction {
28f0: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b . db eval {
2900: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 INSERT INTO t4 V
2910: 41 4c 55 45 53 28 32 29 7d 0a 20 20 20 20 20 20 ALUES(2)}.
2920: 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 db eval {INSERT
2930: 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 33 INTO t4 VALUES(3
2940: 29 7d 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c )}. db eval
2950: 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 {INSERT INTO t4
2960: 20 56 41 4c 55 45 53 28 34 29 7d 0a 20 20 20 20 VALUES(4)}.
2970: 20 20 65 72 72 6f 72 20 74 65 73 74 2d 65 72 72 error test-err
2980: 6f 72 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 64 or. }. }. d
2990: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a b eval {SELECT *
29a0: 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 31 0a 64 6f FROM t4}.} 1.do
29b0: 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 39 20 7b _test tcl-10.9 {
29c0: 0a 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 6f . db transactio
29d0: 6e 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c 20 n {. db eval
29e0: 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 {INSERT INTO t4
29f0: 56 41 4c 55 45 53 28 32 29 7d 0a 20 20 20 20 63 VALUES(2)}. c
2a00: 61 74 63 68 20 7b 0a 20 20 20 20 20 20 64 62 20 atch {. db
2a10: 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 transaction {.
2a20: 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 49 db eval {I
2a30: 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41 NSERT INTO t4 VA
2a40: 4c 55 45 53 28 33 29 7d 0a 20 20 20 20 20 20 20 LUES(3)}.
2a50: 20 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 db eval {INSERT
2a60: 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 INTO t4 VALUES(
2a70: 34 29 7d 0a 20 20 20 20 20 20 20 20 65 72 72 6f 4)}. erro
2a80: 72 20 74 65 73 74 2d 65 72 72 6f 72 0a 20 20 20 r test-error.
2a90: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 }. }. }.
2aa0: 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 db eval {SELECT
2ab0: 20 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 7b 31 * FROM t4}.} {1
2ac0: 20 32 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 2}.do_test tcl-
2ad0: 31 30 2e 31 30 20 7b 0a 20 20 66 6f 72 20 7b 73 10.10 {. for {s
2ae0: 65 74 20 69 20 30 7d 20 7b 24 69 3c 31 7d 20 7b et i 0} {$i<1} {
2af0: 69 6e 63 72 20 69 7d 20 7b 0a 20 20 20 20 64 62 incr i} {. db
2b00: 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 transaction {.
2b10: 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 49 4e db eval {IN
2b20: 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c SERT INTO t4 VAL
2b30: 55 45 53 28 35 29 7d 0a 20 20 20 20 20 20 63 6f UES(5)}. co
2b40: 6e 74 69 6e 75 65 0a 20 20 20 20 7d 0a 20 20 20 ntinue. }.
2b50: 20 65 72 72 6f 72 20 22 54 68 69 73 20 6c 69 6e error "This lin
2b60: 65 20 73 68 6f 75 6c 64 20 6e 6f 74 20 62 65 20 e should not be
2b70: 72 75 6e 22 0a 20 20 7d 0a 20 20 64 62 20 65 76 run". }. db ev
2b80: 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f al {SELECT * FRO
2b90: 4d 20 74 34 7d 0a 7d 20 7b 31 20 32 20 35 7d 0a M t4}.} {1 2 5}.
2ba0: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 31 do_test tcl-10.1
2bb0: 31 20 7b 0a 20 20 66 6f 72 20 7b 73 65 74 20 69 1 {. for {set i
2bc0: 20 30 7d 20 7b 24 69 3c 31 30 7d 20 7b 69 6e 63 0} {$i<10} {inc
2bd0: 72 20 69 7d 20 7b 0a 20 20 20 20 64 62 20 74 72 r i} {. db tr
2be0: 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 ansaction {.
2bf0: 20 20 64 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 db eval {INSER
2c00: 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 T INTO t4 VALUES
2c10: 28 36 29 7d 0a 20 20 20 20 20 20 62 72 65 61 6b (6)}. break
2c20: 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 64 62 20 . }. }. db
2c30: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 eval {SELECT * F
2c40: 52 4f 4d 20 74 34 7d 0a 7d 20 7b 31 20 32 20 35 ROM t4}.} {1 2 5
2c50: 20 36 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 6}.do_test tcl-
2c60: 31 30 2e 31 32 20 7b 0a 20 20 73 65 74 20 72 63 10.12 {. set rc
2c70: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 66 6f [catch {. fo
2c80: 72 20 7b 73 65 74 20 69 20 30 7d 20 7b 24 69 3c r {set i 0} {$i<
2c90: 31 30 7d 20 7b 69 6e 63 72 20 69 7d 20 7b 0a 20 10} {incr i} {.
2ca0: 20 20 20 20 20 64 62 20 74 72 61 6e 73 61 63 74 db transact
2cb0: 69 6f 6e 20 7b 0a 20 20 20 20 20 20 20 20 64 62 ion {. db
2cc0: 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e eval {INSERT IN
2cd0: 54 4f 20 74 34 20 56 41 4c 55 45 53 28 37 29 7d TO t4 VALUES(7)}
2ce0: 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 0a . return.
2cf0: 20 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 }. }.
2d00: 7d 5d 0a 7d 20 7b 32 7d 0a 64 6f 5f 74 65 73 74 }].} {2}.do_test
2d10: 20 74 63 6c 2d 31 30 2e 31 33 20 7b 0a 20 20 64 tcl-10.13 {. d
2d20: 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a b eval {SELECT *
2d30: 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 7b 31 20 32 FROM t4}.} {1 2
2d40: 20 35 20 36 20 37 7d 0a 0a 23 20 4e 6f 77 20 74 5 6 7}..# Now t
2d50: 65 73 74 20 74 68 61 74 20 5b 64 62 20 74 72 61 est that [db tra
2d60: 6e 73 61 63 74 69 6f 6e 5d 20 63 6f 6d 6d 61 6e nsaction] comman
2d70: 64 73 20 6d 61 79 20 62 65 20 6e 65 73 74 65 64 ds may be nested
2d80: 20 77 69 74 68 20 0a 23 20 74 68 65 20 65 78 70 with .# the exp
2d90: 65 63 74 65 64 20 72 65 73 75 6c 74 73 2e 0a 23 ected results..#
2da0: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e .do_test tcl-10.
2db0: 31 34 20 7b 0a 20 20 64 62 20 74 72 61 6e 73 61 14 {. db transa
2dc0: 63 74 69 6f 6e 20 7b 0a 20 20 20 20 64 62 20 65 ction {. db e
2dd0: 76 61 6c 20 7b 0a 20 20 20 20 20 20 44 45 4c 45 val {. DELE
2de0: 54 45 20 46 52 4f 4d 20 74 34 3b 0a 20 20 20 20 TE FROM t4;.
2df0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 INSERT INTO t4
2e00: 20 56 41 4c 55 45 53 28 27 6f 6e 65 27 29 3b 0a VALUES('one');.
2e10: 20 20 20 20 7d 0a 0a 20 20 20 20 63 61 74 63 68 }.. catch
2e20: 20 7b 20 0a 20 20 20 20 20 20 64 62 20 74 72 61 { . db tra
2e30: 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20 nsaction {.
2e40: 20 20 20 64 62 20 65 76 61 6c 20 7b 20 49 4e 53 db eval { INS
2e50: 45 52 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 ERT INTO t4 VALU
2e60: 45 53 28 27 74 77 6f 27 29 20 7d 0a 20 20 20 20 ES('two') }.
2e70: 20 20 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 db transacti
2e80: 6f 6e 20 7b 0a 20 20 20 20 20 20 20 20 20 20 64 on {. d
2e90: 62 20 65 76 61 6c 20 7b 20 49 4e 53 45 52 54 20 b eval { INSERT
2ea0: 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 27 INTO t4 VALUES('
2eb0: 74 68 72 65 65 27 29 20 7d 0a 20 20 20 20 20 20 three') }.
2ec0: 20 20 20 20 65 72 72 6f 72 20 22 74 68 72 6f 77 error "throw
2ed0: 20 61 6e 20 65 72 72 6f 72 21 22 0a 20 20 20 20 an error!".
2ee0: 20 20 20 20 7d 0a 20 20 20 20 20 20 7d 0a 20 20 }. }.
2ef0: 20 20 7d 0a 20 20 7d 0a 0a 20 20 64 62 20 65 76 }. }.. db ev
2f00: 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f al {SELECT * FRO
2f10: 4d 20 74 34 7d 0a 7d 20 7b 6f 6e 65 7d 0a 64 6f M t4}.} {one}.do
2f20: 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 31 35 20 _test tcl-10.15
2f30: 7b 0a 20 20 23 20 4d 61 6b 65 20 73 75 72 65 20 {. # Make sure
2f40: 61 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 68 61 a transaction ha
2f50: 73 20 6e 6f 74 20 62 65 65 6e 20 6c 65 66 74 20 s not been left
2f60: 6f 70 65 6e 2e 0a 20 20 64 62 20 65 76 61 6c 20 open.. db eval
2f70: 7b 42 45 47 49 4e 20 3b 20 43 4f 4d 4d 49 54 7d {BEGIN ; COMMIT}
2f80: 0a 7d 20 7b 7d 0a 64 6f 5f 74 65 73 74 20 74 63 .} {}.do_test tc
2f90: 6c 2d 31 30 2e 31 36 20 7b 0a 20 20 64 62 20 74 l-10.16 {. db t
2fa0: 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a 20 20 20 ransaction {.
2fb0: 20 64 62 20 65 76 61 6c 20 7b 20 49 4e 53 45 52 db eval { INSER
2fc0: 54 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 T INTO t4 VALUES
2fd0: 28 27 74 77 6f 27 29 3b 20 7d 0a 20 20 20 20 64 ('two'); }. d
2fe0: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a b transaction {.
2ff0: 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b 20 db eval {
3000: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 INSERT INTO t4 V
3010: 41 4c 55 45 53 28 27 74 68 72 65 65 27 29 20 7d ALUES('three') }
3020: 0a 20 20 20 20 20 20 64 62 20 74 72 61 6e 73 61 . db transa
3030: 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20 20 20 20 ction {.
3040: 64 62 20 65 76 61 6c 20 7b 20 49 4e 53 45 52 54 db eval { INSERT
3050: 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 INTO t4 VALUES(
3060: 27 66 6f 75 72 27 29 20 7d 0a 20 20 20 20 20 20 'four') }.
3070: 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 20 64 62 }. }. }. db
3080: 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 eval {SELECT *
3090: 46 52 4f 4d 20 74 34 7d 0a 7d 20 7b 6f 6e 65 20 FROM t4}.} {one
30a0: 74 77 6f 20 74 68 72 65 65 20 66 6f 75 72 7d 0a two three four}.
30b0: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 2e 31 do_test tcl-10.1
30c0: 37 20 7b 0a 20 20 63 61 74 63 68 20 7b 0a 20 20 7 {. catch {.
30d0: 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e db transaction
30e0: 20 7b 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c {. db eval
30f0: 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 { INSERT INTO t
3100: 34 20 56 41 4c 55 45 53 28 27 41 27 29 3b 20 7d 4 VALUES('A'); }
3110: 0a 20 20 20 20 20 20 64 62 20 74 72 61 6e 73 61 . db transa
3120: 63 74 69 6f 6e 20 7b 0a 20 20 20 20 20 20 20 20 ction {.
3130: 64 62 20 65 76 61 6c 20 7b 20 49 4e 53 45 52 54 db eval { INSERT
3140: 20 49 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 INTO t4 VALUES(
3150: 27 42 27 29 20 7d 0a 20 20 20 20 20 20 20 20 64 'B') }. d
3160: 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b 0a b transaction {.
3170: 20 20 20 20 20 20 20 20 20 20 64 62 20 65 76 61 db eva
3180: 6c 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 l { INSERT INTO
3190: 74 34 20 56 41 4c 55 45 53 28 27 43 27 29 20 7d t4 VALUES('C') }
31a0: 0a 20 20 20 20 20 20 20 20 20 20 65 72 72 6f 72 . error
31b0: 20 22 74 68 72 6f 77 20 61 6e 20 65 72 72 6f 72 "throw an error
31c0: 21 22 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 !". }.
31d0: 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 20 }. }. }.
31e0: 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 db eval {SELECT
31f0: 20 2a 20 46 52 4f 4d 20 74 34 7d 0a 7d 20 7b 6f * FROM t4}.} {o
3200: 6e 65 20 74 77 6f 20 74 68 72 65 65 20 66 6f 75 ne two three fou
3210: 72 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 r}.do_test tcl-1
3220: 30 2e 31 38 20 7b 0a 20 20 23 20 4d 61 6b 65 20 0.18 {. # Make
3230: 73 75 72 65 20 61 20 74 72 61 6e 73 61 63 74 69 sure a transacti
3240: 6f 6e 20 68 61 73 20 6e 6f 74 20 62 65 65 6e 20 on has not been
3250: 6c 65 66 74 20 6f 70 65 6e 2e 0a 20 20 64 62 20 left open.. db
3260: 65 76 61 6c 20 7b 42 45 47 49 4e 20 3b 20 43 4f eval {BEGIN ; CO
3270: 4d 4d 49 54 7d 0a 7d 20 7b 7d 0a 0a 23 20 4d 65 MMIT}.} {}..# Me
3280: 73 73 20 75 70 20 61 20 5b 64 62 20 74 72 61 6e ss up a [db tran
3290: 73 61 63 74 69 6f 6e 5d 20 63 6f 6d 6d 61 6e 64 saction] command
32a0: 20 62 79 20 6c 6f 63 6b 69 6e 67 20 74 68 65 20 by locking the
32b0: 64 61 74 61 62 61 73 65 20 75 73 69 6e 67 20 61 database using a
32c0: 0a 23 20 73 65 63 6f 6e 64 20 63 6f 6e 6e 65 63 .# second connec
32d0: 74 69 6f 6e 20 77 68 65 6e 20 69 74 20 74 72 69 tion when it tri
32e0: 65 73 20 74 6f 20 63 6f 6d 6d 69 74 2e 20 4d 61 es to commit. Ma
32f0: 6b 65 20 73 75 72 65 20 74 68 65 20 74 72 61 6e ke sure the tran
3300: 73 61 63 74 69 6f 6e 0a 23 20 69 73 20 6e 6f 74 saction.# is not
3310: 20 73 74 69 6c 6c 20 6f 70 65 6e 20 61 66 74 65 still open afte
3320: 72 20 74 68 65 20 22 64 61 74 61 62 61 73 65 20 r the "database
3330: 69 73 20 6c 6f 63 6b 65 64 22 20 65 78 63 65 70 is locked" excep
3340: 74 69 6f 6e 20 69 73 20 74 68 72 6f 77 6e 2e 0a tion is thrown..
3350: 23 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 30 #.do_test tcl-10
3360: 2e 31 38 20 7b 0a 20 20 73 71 6c 69 74 65 33 20 .18 {. sqlite3
3370: 64 62 32 20 74 65 73 74 2e 64 62 0a 20 20 64 62 db2 test.db. db
3380: 32 20 65 76 61 6c 20 7b 0a 20 20 20 20 42 45 47 2 eval {. BEG
3390: 49 4e 3b 0a 20 20 20 20 53 45 4c 45 43 54 20 2a IN;. SELECT *
33a0: 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d 61 73 FROM sqlite_mas
33b0: 74 65 72 3b 0a 20 20 7d 0a 0a 20 20 73 65 74 20 ter;. }.. set
33c0: 72 63 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 rc [catch {.
33d0: 64 62 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 7b db transaction {
33e0: 0a 20 20 20 20 20 20 64 62 20 65 76 61 6c 20 7b . db eval {
33f0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 34 20 56 INSERT INTO t4 V
3400: 41 4c 55 45 53 28 27 66 69 76 65 27 29 7d 0a 20 ALUES('five')}.
3410: 20 20 20 7d 0a 20 20 7d 20 6d 73 67 5d 0a 20 20 }. } msg].
3420: 6c 69 73 74 20 24 72 63 20 24 6d 73 67 0a 7d 20 list $rc $msg.}
3430: 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 {1 {database is
3440: 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 locked}}.do_test
3450: 20 74 63 6c 2d 31 30 2e 31 39 20 7b 0a 20 20 64 tcl-10.19 {. d
3460: 62 20 65 76 61 6c 20 7b 42 45 47 49 4e 20 3b 20 b eval {BEGIN ;
3470: 43 4f 4d 4d 49 54 7d 0a 7d 20 7b 7d 0a 0a 23 20 COMMIT}.} {}..#
3480: 54 68 77 61 72 74 20 61 20 5b 64 62 20 74 72 61 Thwart a [db tra
3490: 6e 73 61 63 74 69 6f 6e 5d 20 63 6f 6d 6d 61 6e nsaction] comman
34a0: 64 20 62 79 20 6c 6f 63 6b 69 6e 67 20 74 68 65 d by locking the
34b0: 20 64 61 74 61 62 61 73 65 20 75 73 69 6e 67 20 database using
34c0: 61 0a 23 20 73 65 63 6f 6e 64 20 63 6f 6e 6e 65 a.# second conne
34d0: 63 74 69 6f 6e 20 77 69 74 68 20 22 42 45 47 49 ction with "BEGI
34e0: 4e 20 45 58 43 4c 55 53 49 56 45 22 2e 20 4d 61 N EXCLUSIVE". Ma
34f0: 6b 65 20 73 75 72 65 20 6e 6f 20 74 72 61 6e 73 ke sure no trans
3500: 61 63 74 69 6f 6e 20 69 73 20 0a 23 20 6f 70 65 action is .# ope
3510: 6e 20 61 66 74 65 72 20 74 68 65 20 22 64 61 74 n after the "dat
3520: 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 22 abase is locked"
3530: 20 65 78 63 65 70 74 69 6f 6e 20 69 73 20 74 68 exception is th
3540: 72 6f 77 6e 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 rown..#.do_test
3550: 74 63 6c 2d 31 30 2e 32 30 20 7b 0a 20 20 64 62 tcl-10.20 {. db
3560: 32 20 65 76 61 6c 20 7b 0a 20 20 20 20 43 4f 4d 2 eval {. COM
3570: 4d 49 54 3b 0a 20 20 20 20 42 45 47 49 4e 20 45 MIT;. BEGIN E
3580: 58 43 4c 55 53 49 56 45 3b 0a 20 20 7d 0a 20 20 XCLUSIVE;. }.
3590: 73 65 74 20 72 63 20 5b 63 61 74 63 68 20 7b 0a set rc [catch {.
35a0: 20 20 20 20 64 62 20 74 72 61 6e 73 61 63 74 69 db transacti
35b0: 6f 6e 20 7b 0a 20 20 20 20 20 20 64 62 20 65 76 on {. db ev
35c0: 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 al {INSERT INTO
35d0: 74 34 20 56 41 4c 55 45 53 28 27 66 69 76 65 27 t4 VALUES('five'
35e0: 29 7d 0a 20 20 20 20 7d 0a 20 20 7d 20 6d 73 67 )}. }. } msg
35f0: 5d 0a 20 20 6c 69 73 74 20 24 72 63 20 24 6d 73 ]. list $rc $ms
3600: 67 0a 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 g.} {1 {database
3610: 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f is locked}}.do_
3620: 74 65 73 74 20 74 63 6c 2d 31 30 2e 32 31 20 7b test tcl-10.21 {
3630: 0a 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 64 . db2 close. d
3640: 62 20 65 76 61 6c 20 7b 42 45 47 49 4e 20 3b 20 b eval {BEGIN ;
3650: 43 4f 4d 4d 49 54 7d 0a 7d 20 7b 7d 0a 64 6f 5f COMMIT}.} {}.do_
3660: 74 65 73 74 20 74 63 6c 2d 31 30 2e 32 32 20 7b test tcl-10.22 {
3670: 0a 20 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 . sqlite3 db2 t
3680: 65 73 74 2e 64 62 0a 20 20 64 62 20 74 72 61 6e est.db. db tran
3690: 73 61 63 74 69 6f 6e 20 65 78 63 6c 75 73 69 76 saction exclusiv
36a0: 65 20 7b 0a 20 20 20 20 63 61 74 63 68 20 7b 20 e {. catch {
36b0: 64 62 32 20 65 76 61 6c 20 7b 53 45 4c 45 43 54 db2 eval {SELECT
36c0: 20 2a 20 46 52 4f 4d 20 73 71 6c 69 74 65 5f 6d * FROM sqlite_m
36d0: 61 73 74 65 72 7d 20 7d 20 6d 73 67 0a 20 20 20 aster} } msg.
36e0: 20 73 65 74 20 6d 73 67 20 22 64 62 32 3a 20 24 set msg "db2: $
36f0: 6d 73 67 22 0a 20 20 7d 0a 20 20 73 65 74 20 6d msg". }. set m
3700: 73 67 0a 7d 20 7b 64 62 32 3a 20 64 61 74 61 62 sg.} {db2: datab
3710: 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 0a 64 ase is locked}.d
3720: 62 32 20 63 6c 6f 73 65 0a 0a 64 6f 5f 74 65 73 b2 close..do_tes
3730: 74 20 74 63 6c 2d 31 31 2e 31 20 7b 0a 20 20 64 t tcl-11.1 {. d
3740: 62 20 65 76 61 6c 20 7b 49 4e 53 45 52 54 20 49 b eval {INSERT I
3750: 4e 54 4f 20 74 34 20 56 41 4c 55 45 53 28 36 29 NTO t4 VALUES(6)
3760: 7d 0a 20 20 64 62 20 65 78 69 73 74 73 20 7b 53 }. db exists {S
3770: 45 4c 45 43 54 20 78 2c 78 2a 32 2c 78 2b 78 20 ELECT x,x*2,x+x
3780: 46 52 4f 4d 20 74 34 20 57 48 45 52 45 20 78 3d FROM t4 WHERE x=
3790: 3d 36 7d 0a 7d 20 7b 31 7d 0a 64 6f 5f 74 65 73 =6}.} {1}.do_tes
37a0: 74 20 74 63 6c 2d 31 31 2e 32 20 7b 0a 20 20 64 t tcl-11.2 {. d
37b0: 62 20 65 78 69 73 74 73 20 7b 53 45 4c 45 43 54 b exists {SELECT
37c0: 20 30 20 46 52 4f 4d 20 74 34 20 57 48 45 52 45 0 FROM t4 WHERE
37d0: 20 78 3d 3d 36 7d 0a 7d 20 7b 31 7d 0a 64 6f 5f x==6}.} {1}.do_
37e0: 74 65 73 74 20 74 63 6c 2d 31 31 2e 33 20 7b 0a test tcl-11.3 {.
37f0: 20 20 64 62 20 65 78 69 73 74 73 20 7b 53 45 4c db exists {SEL
3800: 45 43 54 20 31 20 46 52 4f 4d 20 74 34 20 57 48 ECT 1 FROM t4 WH
3810: 45 52 45 20 78 3d 3d 38 7d 0a 7d 20 7b 30 7d 0a ERE x==8}.} {0}.
3820: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 31 2e 33 do_test tcl-11.3
3830: 2e 31 20 7b 0a 20 20 74 63 6c 5f 6f 62 6a 70 72 .1 {. tcl_objpr
3840: 6f 63 20 64 62 20 65 78 69 73 74 73 20 7b 53 45 oc db exists {SE
3850: 4c 45 43 54 20 31 20 46 52 4f 4d 20 74 34 20 57 LECT 1 FROM t4 W
3860: 48 45 52 45 20 78 3d 3d 38 7d 0a 7d 20 7b 30 7d HERE x==8}.} {0}
3870: 0a 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 32 ..do_test tcl-12
3880: 2e 31 20 7b 0a 20 20 75 6e 73 65 74 20 2d 6e 6f .1 {. unset -no
3890: 63 6f 6d 70 6c 61 69 6e 20 61 20 62 20 63 20 76 complain a b c v
38a0: 65 72 73 69 6f 6e 0a 20 20 73 65 74 20 76 65 72 ersion. set ver
38b0: 73 69 6f 6e 20 5b 64 62 20 76 65 72 73 69 6f 6e sion [db version
38c0: 5d 0a 20 20 73 63 61 6e 20 24 76 65 72 73 69 6f ]. scan $versio
38d0: 6e 20 22 25 64 2e 25 64 2e 25 64 22 20 61 20 62 n "%d.%d.%d" a b
38e0: 20 63 0a 20 20 65 78 70 72 20 24 61 2a 31 30 30 c. expr $a*100
38f0: 30 30 30 30 20 2b 20 24 62 2a 31 30 30 30 20 2b 0000 + $b*1000 +
3900: 20 24 63 0a 7d 20 5b 73 71 6c 69 74 65 33 5f 6c $c.} [sqlite3_l
3910: 69 62 76 65 72 73 69 6f 6e 5f 6e 75 6d 62 65 72 ibversion_number
3920: 5d 0a 0a 0a 23 20 43 68 65 63 6b 20 74 6f 20 73 ]...# Check to s
3930: 65 65 20 74 68 61 74 20 77 68 65 6e 20 62 69 6e ee that when bin
3940: 64 69 6e 67 73 20 6f 66 20 74 68 65 20 66 6f 72 dings of the for
3950: 6d 20 40 61 61 61 20 61 72 65 20 75 73 65 64 20 m @aaa are used
3960: 69 6e 73 74 65 61 64 0a 23 20 6f 66 20 24 61 61 instead.# of $aa
3970: 61 2c 20 74 68 61 74 20 6f 62 6a 65 63 74 73 20 a, that objects
3980: 61 72 65 20 74 72 65 61 74 65 64 20 61 73 20 62 are treated as b
3990: 79 74 65 61 72 72 61 79 20 61 6e 64 20 61 72 65 ytearray and are
39a0: 20 69 6e 73 65 72 74 65 64 0a 23 20 61 73 20 42 inserted.# as B
39b0: 4c 4f 42 73 2e 0a 23 0a 69 66 63 61 70 61 62 6c LOBs..#.ifcapabl
39c0: 65 20 74 63 6c 76 61 72 20 7b 0a 20 20 64 6f 5f e tclvar {. do_
39d0: 74 65 73 74 20 74 63 6c 2d 31 33 2e 31 20 7b 0a test tcl-13.1 {.
39e0: 20 20 20 20 64 62 20 65 76 61 6c 20 7b 43 52 45 db eval {CRE
39f0: 41 54 45 20 54 41 42 4c 45 20 74 35 28 78 20 42 ATE TABLE t5(x B
3a00: 4c 4f 42 29 7d 0a 20 20 20 20 73 65 74 20 78 20 LOB)}. set x
3a10: 61 62 63 31 32 33 0a 20 20 20 20 64 62 20 65 76 abc123. db ev
3a20: 61 6c 20 7b 49 4e 53 45 52 54 20 49 4e 54 4f 20 al {INSERT INTO
3a30: 74 35 20 56 41 4c 55 45 53 28 24 78 29 7d 0a 20 t5 VALUES($x)}.
3a40: 20 20 20 64 62 20 65 76 61 6c 20 7b 53 45 4c 45 db eval {SELE
3a50: 43 54 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f CT typeof(x) FRO
3a60: 4d 20 74 35 7d 0a 20 20 7d 20 7b 74 65 78 74 7d M t5}. } {text}
3a70: 0a 20 20 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 . do_test tcl-1
3a80: 33 2e 32 20 7b 0a 20 20 20 20 62 69 6e 61 72 79 3.2 {. binary
3a90: 20 73 63 61 6e 20 24 78 20 48 20 6e 6f 74 55 73 scan $x H notUs
3aa0: 65 64 0a 20 20 20 20 64 62 20 65 76 61 6c 20 7b ed. db eval {
3ab0: 0a 20 20 20 20 20 20 44 45 4c 45 54 45 20 46 52 . DELETE FR
3ac0: 4f 4d 20 74 35 3b 0a 20 20 20 20 20 20 49 4e 53 OM t5;. INS
3ad0: 45 52 54 20 49 4e 54 4f 20 74 35 20 56 41 4c 55 ERT INTO t5 VALU
3ae0: 45 53 28 24 78 29 3b 0a 20 20 20 20 20 20 53 45 ES($x);. SE
3af0: 4c 45 43 54 20 74 79 70 65 6f 66 28 78 29 20 46 LECT typeof(x) F
3b00: 52 4f 4d 20 74 35 3b 0a 20 20 20 20 7d 0a 20 20 ROM t5;. }.
3b10: 7d 20 7b 74 65 78 74 7d 0a 20 20 64 6f 5f 74 65 } {text}. do_te
3b20: 73 74 20 74 63 6c 2d 31 33 2e 33 20 7b 0a 20 20 st tcl-13.3 {.
3b30: 20 20 64 62 20 65 76 61 6c 20 7b 0a 20 20 20 20 db eval {.
3b40: 20 20 44 45 4c 45 54 45 20 46 52 4f 4d 20 74 35 DELETE FROM t5
3b50: 3b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 ;. INSERT I
3b60: 4e 54 4f 20 74 35 20 56 41 4c 55 45 53 28 40 78 NTO t5 VALUES(@x
3b70: 29 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 );. SELECT
3b80: 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d 20 74 typeof(x) FROM t
3b90: 35 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 62 6c 5;. }. } {bl
3ba0: 6f 62 7d 0a 20 20 64 6f 5f 74 65 73 74 20 74 63 ob}. do_test tc
3bb0: 6c 2d 31 33 2e 34 20 7b 0a 20 20 20 20 73 65 74 l-13.4 {. set
3bc0: 20 79 20 31 32 33 34 0a 20 20 20 20 64 62 20 65 y 1234. db e
3bd0: 76 61 6c 20 7b 0a 20 20 20 20 20 20 44 45 4c 45 val {. DELE
3be0: 54 45 20 46 52 4f 4d 20 74 35 3b 0a 20 20 20 20 TE FROM t5;.
3bf0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 35 INSERT INTO t5
3c00: 20 56 41 4c 55 45 53 28 40 79 29 3b 0a 20 20 20 VALUES(@y);.
3c10: 20 20 20 53 45 4c 45 43 54 20 68 65 78 28 78 29 SELECT hex(x)
3c20: 2c 20 74 79 70 65 6f 66 28 78 29 20 46 52 4f 4d , typeof(x) FROM
3c30: 20 74 35 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 33 t5. }. } {3
3c40: 31 33 32 33 33 33 34 20 62 6c 6f 62 7d 0a 7d 0a 1323334 blob}.}.
3c50: 0a 64 62 20 66 75 6e 63 20 78 43 61 6c 6c 20 78 .db func xCall x
3c60: 43 61 6c 6c 0a 70 72 6f 63 20 78 43 61 6c 6c 20 Call.proc xCall
3c70: 7b 7d 20 7b 20 72 65 74 75 72 6e 20 22 76 61 6c {} { return "val
3c80: 75 65 22 20 7d 0a 64 6f 5f 65 78 65 63 73 71 6c ue" }.do_execsql
3c90: 5f 74 65 73 74 20 74 63 6c 2d 31 34 2e 31 20 7b _test tcl-14.1 {
3ca0: 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20 . CREATE TABLE
3cb0: 74 36 28 78 29 3b 0a 20 20 49 4e 53 45 52 54 20 t6(x);. INSERT
3cc0: 49 4e 54 4f 20 74 36 20 56 41 4c 55 45 53 28 31 INTO t6 VALUES(1
3cd0: 29 3b 0a 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c );.}.do_test tcl
3ce0: 2d 31 34 2e 32 20 7b 0a 20 20 64 62 20 6f 6e 65 -14.2 {. db one
3cf0: 20 7b 53 45 4c 45 43 54 20 78 20 46 52 4f 4d 20 {SELECT x FROM
3d00: 74 36 20 57 48 45 52 45 20 78 43 61 6c 6c 28 29 t6 WHERE xCall()
3d10: 21 3d 27 76 61 6c 75 65 27 7d 0a 7d 20 7b 7d 0a !='value'}.} {}.
3d20: 0a 23 20 56 65 72 69 66 79 20 74 68 61 74 20 74 .# Verify that t
3d30: 68 65 20 22 65 78 69 73 74 73 22 20 61 6e 64 20 he "exists" and
3d40: 22 6f 6e 65 63 6f 6c 75 6d 6e 22 20 6d 65 74 68 "onecolumn" meth
3d50: 6f 64 73 20 77 6f 72 6b 20 77 68 65 6e 0a 23 20 ods work when.#
3d60: 61 20 22 70 72 6f 66 69 6c 65 22 20 69 73 20 72 a "profile" is r
3d70: 65 67 69 73 74 65 72 65 64 2e 0a 23 0a 63 61 74 egistered..#.cat
3d80: 63 68 20 7b 64 62 20 63 6c 6f 73 65 7d 0a 73 71 ch {db close}.sq
3d90: 6c 69 74 65 33 20 64 62 20 3a 6d 65 6d 6f 72 79 lite3 db :memory
3da0: 3a 0a 70 72 6f 63 20 6e 6f 6f 70 2d 70 72 6f 66 :.proc noop-prof
3db0: 69 6c 65 20 7b 61 72 67 73 7d 20 7b 0a 20 20 72 ile {args} {. r
3dc0: 65 74 75 72 6e 0a 7d 0a 64 6f 5f 74 65 73 74 20 eturn.}.do_test
3dd0: 74 63 6c 2d 31 35 2e 30 20 7b 0a 20 20 64 62 20 tcl-15.0 {. db
3de0: 65 76 61 6c 20 7b 43 52 45 41 54 45 20 54 41 42 eval {CREATE TAB
3df0: 4c 45 20 74 31 28 61 29 3b 20 49 4e 53 45 52 54 LE t1(a); INSERT
3e00: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 INTO t1 VALUES(
3e10: 31 29 2c 28 32 29 2c 28 33 29 3b 7d 0a 20 20 64 1),(2),(3);}. d
3e20: 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 4c b onecolumn {SEL
3e30: 45 43 54 20 61 20 46 52 4f 4d 20 74 31 20 57 48 ECT a FROM t1 WH
3e40: 45 52 45 20 61 3e 32 7d 0a 7d 20 7b 33 7d 0a 64 ERE a>2}.} {3}.d
3e50: 6f 5f 74 65 73 74 20 74 63 6c 2d 31 35 2e 31 20 o_test tcl-15.1
3e60: 7b 0a 20 20 64 62 20 65 78 69 73 74 73 20 7b 53 {. db exists {S
3e70: 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 74 31 20 ELECT a FROM t1
3e80: 57 48 45 52 45 20 61 3e 32 7d 0a 7d 20 7b 31 7d WHERE a>2}.} {1}
3e90: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 35 2e .do_test tcl-15.
3ea0: 32 20 7b 0a 20 20 64 62 20 65 78 69 73 74 73 20 2 {. db exists
3eb0: 7b 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 74 {SELECT a FROM t
3ec0: 31 20 57 48 45 52 45 20 61 3e 33 7d 0a 7d 20 7b 1 WHERE a>3}.} {
3ed0: 30 7d 0a 64 62 20 70 72 6f 66 69 6c 65 20 6e 6f 0}.db profile no
3ee0: 6f 70 2d 70 72 6f 66 69 6c 65 0a 64 6f 5f 74 65 op-profile.do_te
3ef0: 73 74 20 74 63 6c 2d 31 35 2e 33 20 7b 0a 20 20 st tcl-15.3 {.
3f00: 64 62 20 6f 6e 65 63 6f 6c 75 6d 6e 20 7b 53 45 db onecolumn {SE
3f10: 4c 45 43 54 20 61 20 46 52 4f 4d 20 74 31 20 57 LECT a FROM t1 W
3f20: 48 45 52 45 20 61 3e 32 7d 0a 7d 20 7b 33 7d 0a HERE a>2}.} {3}.
3f30: 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 35 2e 34 do_test tcl-15.4
3f40: 20 7b 0a 20 20 64 62 20 65 78 69 73 74 73 20 7b {. db exists {
3f50: 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 74 31 SELECT a FROM t1
3f60: 20 57 48 45 52 45 20 61 3e 32 7d 0a 7d 20 7b 31 WHERE a>2}.} {1
3f70: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 35 }.do_test tcl-15
3f80: 2e 35 20 7b 0a 20 20 64 62 20 65 78 69 73 74 73 .5 {. db exists
3f90: 20 7b 53 45 4c 45 43 54 20 61 20 46 52 4f 4d 20 {SELECT a FROM
3fa0: 74 31 20 57 48 45 52 45 20 61 3e 33 7d 0a 7d 20 t1 WHERE a>3}.}
3fb0: 7b 30 7d 0a 0a 0a 23 20 32 30 31 37 2d 30 36 2d {0}...# 2017-06-
3fc0: 32 36 3a 20 54 68 65 20 2d 2d 77 69 74 68 6f 75 26: The --withou
3fd0: 74 6e 75 6c 6c 73 20 66 6c 61 67 20 74 6f 20 22 tnulls flag to "
3fe0: 64 62 20 65 76 61 6c 22 2e 0a 23 0a 23 20 49 6e db eval"..#.# In
3ff0: 20 74 68 65 20 22 64 62 20 65 76 61 6c 20 2d 2d the "db eval --
4000: 77 69 74 68 6f 75 74 6e 75 6c 6c 73 20 53 51 4c withoutnulls SQL
4010: 20 41 52 52 41 59 22 20 66 6f 72 6d 2c 20 4e 55 ARRAY" form, NU
4020: 4c 4c 20 72 65 73 75 6c 74 73 20 63 61 75 73 65 LL results cause
4030: 20 74 68 65 0a 23 20 63 6f 72 72 65 73 70 6f 6e the.# correspon
4040: 64 69 6e 67 20 61 72 72 61 79 20 65 6e 74 72 79 ding array entry
4050: 20 74 6f 20 62 65 20 75 6e 73 65 74 2e 20 20 54 to be unset. T
4060: 68 65 20 64 65 66 61 75 6c 74 20 62 65 68 61 76 he default behav
4070: 69 6f 72 20 28 77 69 74 68 6f 75 74 0a 23 20 74 ior (without.# t
4080: 68 65 20 2d 77 69 74 68 6f 75 74 6e 75 6c 6c 73 he -withoutnulls
4090: 20 66 6c 61 67 73 29 20 69 73 20 66 6f 72 20 74 flags) is for t
40a0: 68 65 20 63 6f 72 72 65 73 70 6f 6e 64 69 6e 67 he corresponding
40b0: 20 61 72 72 61 79 20 76 61 6c 75 65 20 74 6f 20 array value to
40c0: 67 65 74 0a 23 20 74 68 65 20 5b 64 62 20 6e 75 get.# the [db nu
40d0: 6c 6c 76 61 6c 75 65 5d 20 73 74 72 69 6e 67 2e llvalue] string.
40e0: 0a 23 0a 63 61 74 63 68 20 7b 64 62 20 63 6c 6f .#.catch {db clo
40f0: 73 65 7d 0a 66 6f 72 63 65 64 65 6c 65 74 65 20 se}.forcedelete
4100: 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65 33 20 test.db.sqlite3
4110: 64 62 20 74 65 73 74 2e 64 62 0a 64 6f 5f 65 78 db test.db.do_ex
4120: 65 63 73 71 6c 5f 74 65 73 74 20 74 63 6c 2d 31 ecsql_test tcl-1
4130: 36 2e 31 30 30 20 7b 0a 20 20 43 52 45 41 54 45 6.100 {. CREATE
4140: 20 54 41 42 4c 45 20 74 31 28 61 2c 62 29 3b 0a TABLE t1(a,b);.
4150: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 INSERT INTO t1
4160: 20 56 41 4c 55 45 53 28 31 2c 32 29 2c 28 32 2c VALUES(1,2),(2,
4170: 4e 55 4c 4c 29 2c 28 33 2c 27 78 79 7a 27 29 3b NULL),(3,'xyz');
4180: 0a 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 .}.do_test tcl-1
4190: 36 2e 31 30 31 20 7b 0a 20 20 73 65 74 20 72 65 6.101 {. set re
41a0: 73 20 7b 7d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f s {}. unset -no
41b0: 63 6f 6d 70 6c 61 69 6e 20 78 0a 20 20 64 62 20 complain x. db
41c0: 65 76 61 6c 20 7b 53 45 4c 45 43 54 20 2a 20 46 eval {SELECT * F
41d0: 52 4f 4d 20 74 31 7d 20 78 20 7b 0a 20 20 20 20 ROM t1} x {.
41e0: 6c 61 70 70 65 6e 64 20 72 65 73 20 24 78 28 61 lappend res $x(a
41f0: 29 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 78 ) [array names x
4200: 5d 0a 20 20 7d 0a 20 20 73 65 74 20 72 65 73 0a ]. }. set res.
4210: 7d 20 7b 31 20 7b 61 20 62 20 2a 7d 20 32 20 7b } {1 {a b *} 2 {
4220: 61 20 62 20 2a 7d 20 33 20 7b 61 20 62 20 2a 7d a b *} 3 {a b *}
4230: 7d 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 36 }.do_test tcl-16
4240: 2e 31 30 32 20 7b 0a 20 20 73 65 74 20 72 65 73 .102 {. set res
4250: 20 5b 63 61 74 63 68 20 7b 0a 20 20 20 20 64 62 [catch {. db
4260: 20 65 76 61 6c 20 2d 75 6e 6b 6e 6f 77 6e 20 7b eval -unknown {
4270: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 SELECT * FROM t1
4280: 7d 20 78 20 7b 0a 20 20 20 20 20 20 6c 61 70 70 } x {. lapp
4290: 65 6e 64 20 72 65 73 20 24 78 28 61 29 20 5b 61 end res $x(a) [a
42a0: 72 72 61 79 20 6e 61 6d 65 73 20 78 5d 0a 20 20 rray names x].
42b0: 20 20 7d 0a 20 20 7d 20 72 63 5d 0a 20 20 6c 61 }. } rc]. la
42c0: 70 70 65 6e 64 20 72 65 73 20 24 72 63 0a 7d 20 ppend res $rc.}
42d0: 7b 31 20 7b 75 6e 6b 6e 6f 77 6e 20 6f 70 74 69 {1 {unknown opti
42e0: 6f 6e 3a 20 22 2d 75 6e 6b 6e 6f 77 6e 22 7d 7d on: "-unknown"}}
42f0: 0a 64 6f 5f 74 65 73 74 20 74 63 6c 2d 31 36 2e .do_test tcl-16.
4300: 31 30 33 20 7b 0a 20 20 73 65 74 20 72 65 73 20 103 {. set res
4310: 7b 7d 0a 20 20 75 6e 73 65 74 20 2d 6e 6f 63 6f {}. unset -noco
4320: 6d 70 6c 61 69 6e 20 78 0a 20 20 64 62 20 65 76 mplain x. db ev
4330: 61 6c 20 2d 77 69 74 68 6f 75 74 6e 75 6c 6c 73 al -withoutnulls
4340: 20 7b 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 {SELECT * FROM
4350: 74 31 7d 20 78 20 7b 0a 20 20 20 20 6c 61 70 70 t1} x {. lapp
4360: 65 6e 64 20 72 65 73 20 24 78 28 61 29 20 5b 61 end res $x(a) [a
4370: 72 72 61 79 20 6e 61 6d 65 73 20 78 5d 0a 20 20 rray names x].
4380: 7d 0a 20 20 73 65 74 20 72 65 73 0a 7d 20 7b 31 }. set res.} {1
4390: 20 7b 61 20 62 20 2a 7d 20 32 20 7b 61 20 2a 7d {a b *} 2 {a *}
43a0: 20 33 20 7b 61 20 62 20 2a 7d 7d 0a 0a 0a 0a 0a 3 {a b *}}.....
43b0: 0a 66 69 6e 69 73 68 5f 74 65 73 74 0a .finish_test.