/ Hex Artifact Content
Login

Artifact 4b3c8c60c2171164d472059c73e9f3c1844bb66d:


0000: 23 20 32 30 31 34 20 4f 63 74 6f 62 65 72 20 33  # 2014 October 3
0010: 30 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72  0.#.# The author
0020: 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79 72   disclaims copyr
0030: 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f 75  ight to this sou
0040: 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70 6c  rce code.  In pl
0050: 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61 6c  ace of.# a legal
0060: 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69 73   notice, here is
0070: 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a 23   a blessing:.#.#
0080: 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20 67      May you do g
0090: 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69 6c  ood and not evil
00a0: 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 66  ..#    May you f
00b0: 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73 20  ind forgiveness 
00c0: 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e 64  for yourself and
00d0: 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73 2e   forgive others.
00e0: 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73 68  .#    May you sh
00f0: 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76 65  are freely, neve
0100: 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74 68  r taking more th
0110: 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a 23  an you give..#.#
0120: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0130: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0140: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0150: 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a  ****************
0160: 2a 2a 2a 2a 2a 2a 2a 0a 23 0a 0a 73 65 74 20 74  *******.#..set t
0170: 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69 72  estdir [file dir
0180: 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f 75  name $argv0].sou
0190: 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65 73  rce $testdir/tes
01a0: 74 65 72 2e 74 63 6c 0a 73 65 74 20 74 65 73 74  ter.tcl.set test
01b0: 70 72 65 66 69 78 20 65 5f 62 6c 6f 62 63 6c 6f  prefix e_blobclo
01c0: 73 65 0a 0a 73 65 74 20 64 6f 74 73 20 5b 73 74  se..set dots [st
01d0: 72 69 6e 67 20 72 65 70 65 61 74 20 2e 20 34 30  ring repeat . 40
01e0: 5d 0a 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73  ].do_execsql_tes
01f0: 74 20 31 2e 30 20 7b 0a 20 20 43 52 45 41 54 45  t 1.0 {.  CREATE
0200: 20 54 41 42 4c 45 20 78 31 28 61 20 49 4e 54 45   TABLE x1(a INTE
0210: 47 45 52 20 50 52 49 4d 41 52 59 20 4b 45 59 2c  GER PRIMARY KEY,
0220: 20 62 20 44 4f 54 53 29 3b 0a 20 20 49 4e 53 45   b DOTS);.  INSE
0230: 52 54 20 49 4e 54 4f 20 78 31 20 56 41 4c 55 45  RT INTO x1 VALUE
0240: 53 28 2d 31 2c 20 24 64 6f 74 73 29 3b 0a 20 20  S(-1, $dots);.  
0250: 49 4e 53 45 52 54 20 49 4e 54 4f 20 78 31 20 56  INSERT INTO x1 V
0260: 41 4c 55 45 53 28 2d 31 30 2c 20 24 64 6f 74 73  ALUES(-10, $dots
0270: 29 3b 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  );.  INSERT INTO
0280: 20 78 31 20 56 41 4c 55 45 53 28 2d 31 30 30 2c   x1 VALUES(-100,
0290: 20 24 64 6f 74 73 29 3b 0a 20 20 49 4e 53 45 52   $dots);.  INSER
02a0: 54 20 49 4e 54 4f 20 78 31 20 56 41 4c 55 45 53  T INTO x1 VALUES
02b0: 28 2d 31 30 30 30 2c 20 24 64 6f 74 73 29 3b 0a  (-1000, $dots);.
02c0: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 78 31    INSERT INTO x1
02d0: 20 56 41 4c 55 45 53 28 2d 31 30 30 30 30 2c 20   VALUES(-10000, 
02e0: 24 64 6f 74 73 29 3b 0a 7d 0a 0a 23 20 45 56 49  $dots);.}..# EVI
02f0: 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 30 33 31 34  DENCE-OF: R-0314
0300: 35 2d 34 36 33 39 30 20 54 68 69 73 20 66 75 6e  5-46390 This fun
0310: 63 74 69 6f 6e 20 63 6c 6f 73 65 73 20 61 6e 20  ction closes an 
0320: 6f 70 65 6e 20 42 4c 4f 42 20 68 61 6e 64 6c 65  open BLOB handle
0330: 2e 0a 23 0a 23 20 20 20 49 74 27 73 20 6e 6f 74  ..#.#   It's not
0340: 20 63 6c 65 61 72 20 68 6f 77 20 74 6f 20 74 65   clear how to te
0350: 73 74 20 74 68 61 74 20 61 20 62 6c 6f 62 20 68  st that a blob h
0360: 61 6e 64 6c 65 20 72 65 61 6c 6c 79 20 69 73 20  andle really is 
0370: 63 6c 6f 73 65 64 2e 0a 23 20 20 20 41 74 74 65  closed..#   Atte
0380: 6d 70 74 69 6e 67 20 74 6f 20 75 73 65 20 61 20  mpting to use a 
0390: 63 6c 6f 73 65 64 20 62 6c 6f 62 20 68 61 6e 64  closed blob hand
03a0: 6c 65 20 77 69 6c 6c 20 6c 69 6b 65 6c 79 20 63  le will likely c
03b0: 72 61 73 68 20 74 68 65 20 70 72 6f 63 65 73 73  rash the process
03c0: 2e 0a 23 20 20 20 41 73 73 75 6d 65 20 68 65 72  ..#   Assume her
03d0: 65 20 74 68 61 74 20 69 66 20 74 68 65 20 53 48  e that if the SH
03e0: 41 52 45 44 20 6c 6f 63 6b 20 6f 6e 20 74 68 65  ARED lock on the
03f0: 20 64 62 20 66 69 6c 65 20 69 73 20 72 65 6c 65   db file is rele
0400: 61 73 65 64 2c 0a 23 20 20 20 74 68 65 20 62 6c  ased,.#   the bl
0410: 6f 62 20 68 61 6e 64 6c 65 20 68 61 73 20 62 65  ob handle has be
0420: 65 6e 20 63 6c 6f 73 65 64 2e 0a 23 0a 64 6f 5f  en closed..#.do_
0430: 65 78 65 63 73 71 6c 5f 74 65 73 74 20 31 2e 31  execsql_test 1.1
0440: 20 7b 20 50 52 41 47 4d 41 20 6c 6f 63 6b 5f 73   { PRAGMA lock_s
0450: 74 61 74 75 73 20 7d 20 7b 6d 61 69 6e 20 75 6e  tatus } {main un
0460: 6c 6f 63 6b 65 64 20 74 65 6d 70 20 63 6c 6f 73  locked temp clos
0470: 65 64 7d 0a 73 71 6c 69 74 65 33 5f 62 6c 6f 62  ed}.sqlite3_blob
0480: 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20 78 31  _open db main x1
0490: 20 62 20 2d 31 20 30 20 42 0a 64 6f 5f 65 78 65   b -1 0 B.do_exe
04a0: 63 73 71 6c 5f 74 65 73 74 20 31 2e 32 20 7b 20  csql_test 1.2 { 
04b0: 50 52 41 47 4d 41 20 6c 6f 63 6b 5f 73 74 61 74  PRAGMA lock_stat
04c0: 75 73 20 7d 20 7b 6d 61 69 6e 20 73 68 61 72 65  us } {main share
04d0: 64 20 74 65 6d 70 20 63 6c 6f 73 65 64 7d 0a 73  d temp closed}.s
04e0: 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 63 6c 6f 73  qlite3_blob_clos
04f0: 65 20 24 42 0a 64 6f 5f 65 78 65 63 73 71 6c 5f  e $B.do_execsql_
0500: 74 65 73 74 20 31 2e 33 20 7b 20 50 52 41 47 4d  test 1.3 { PRAGM
0510: 41 20 6c 6f 63 6b 5f 73 74 61 74 75 73 20 7d 20  A lock_status } 
0520: 7b 6d 61 69 6e 20 75 6e 6c 6f 63 6b 65 64 20 74  {main unlocked t
0530: 65 6d 70 20 63 6c 6f 73 65 64 7d 0a 0a 0a 23 20  emp closed}...# 
0540: 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 33  EVIDENCE-OF: R-3
0550: 34 30 32 37 2d 30 30 36 31 37 20 49 66 20 74 68  4027-00617 If th
0560: 65 20 62 6c 6f 62 20 68 61 6e 64 6c 65 20 62 65  e blob handle be
0570: 69 6e 67 20 63 6c 6f 73 65 64 20 77 61 73 20 6f  ing closed was o
0580: 70 65 6e 65 64 0a 23 20 66 6f 72 20 72 65 61 64  pened.# for read
0590: 2d 77 72 69 74 65 20 61 63 63 65 73 73 2c 20 61  -write access, a
05a0: 6e 64 20 69 66 20 74 68 65 20 64 61 74 61 62 61  nd if the databa
05b0: 73 65 20 69 73 20 69 6e 20 61 75 74 6f 2d 63 6f  se is in auto-co
05c0: 6d 6d 69 74 20 6d 6f 64 65 20 61 6e 64 0a 23 20  mmit mode and.# 
05d0: 74 68 65 72 65 20 61 72 65 20 6e 6f 20 6f 74 68  there are no oth
05e0: 65 72 20 6f 70 65 6e 20 72 65 61 64 2d 77 72 69  er open read-wri
05f0: 74 65 20 62 6c 6f 62 20 68 61 6e 64 6c 65 73 20  te blob handles 
0600: 6f 72 20 61 63 74 69 76 65 20 77 72 69 74 65 0a  or active write.
0610: 23 20 73 74 61 74 65 6d 65 6e 74 73 2c 20 74 68  # statements, th
0620: 65 20 63 75 72 72 65 6e 74 20 74 72 61 6e 73 61  e current transa
0630: 63 74 69 6f 6e 20 69 73 20 63 6f 6d 6d 69 74 74  ction is committ
0640: 65 64 2e 0a 23 0a 23 20 20 20 32 2e 31 2e 2a 3a  ed..#.#   2.1.*:
0650: 20 54 72 61 6e 73 61 63 74 69 6f 6e 20 69 73 20   Transaction is 
0660: 6e 6f 74 20 63 6f 6d 6d 69 74 74 65 64 20 69 66  not committed if
0670: 20 74 68 65 72 65 20 61 72 65 20 6f 74 68 65 72   there are other
0680: 20 6f 70 65 6e 20 0a 23 20 20 20 20 20 20 20 20   open .#        
0690: 20 20 72 65 61 64 2d 77 72 69 74 65 20 62 6c 6f    read-write blo
06a0: 62 20 68 61 6e 64 6c 65 73 2e 0a 23 0a 23 20 20  b handles..#.#  
06b0: 20 32 2e 32 2e 2a 3a 20 54 72 61 6e 73 61 63 74   2.2.*: Transact
06c0: 69 6f 6e 20 69 73 20 6e 6f 74 20 63 6f 6d 6d 69  ion is not commi
06d0: 74 74 65 64 20 69 66 20 6e 6f 74 20 69 6e 20 61  tted if not in a
06e0: 75 74 6f 2d 63 6f 6d 6d 69 74 20 6d 6f 64 65 2e  uto-commit mode.
06f0: 0a 23 0a 23 20 20 20 32 2e 33 2e 2a 3a 20 41 63  .#.#   2.3.*: Ac
0700: 74 69 76 65 20 77 72 69 74 65 20 73 74 61 74 65  tive write state
0710: 6d 65 6e 74 73 2e 0a 23 0a 64 6f 5f 74 65 73 74  ments..#.do_test
0720: 20 32 2e 31 2e 31 20 7b 0a 20 20 73 71 6c 69 74   2.1.1 {.  sqlit
0730: 65 33 5f 62 6c 6f 62 5f 6f 70 65 6e 20 64 62 20  e3_blob_open db 
0740: 6d 61 69 6e 20 78 31 20 62 20 2d 31 30 30 20 31  main x1 b -100 1
0750: 20 42 31 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c   B1.  sqlite3_bl
0760: 6f 62 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20  ob_open db main 
0770: 78 31 20 62 20 2d 31 30 30 30 20 31 20 42 32 0a  x1 b -1000 1 B2.
0780: 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 6f    sqlite3_blob_o
0790: 70 65 6e 20 64 62 20 6d 61 69 6e 20 78 31 20 62  pen db main x1 b
07a0: 20 2d 31 30 30 30 30 20 31 20 42 33 0a 20 20 73   -10000 1 B3.  s
07b0: 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 6f 70 65 6e  qlite3_blob_open
07c0: 20 64 62 20 6d 61 69 6e 20 78 31 20 62 20 2d 31   db main x1 b -1
07d0: 30 30 30 30 20 30 20 42 34 20 20 20 20 20 20 3b  0000 0 B4      ;
07e0: 23 20 42 34 20 69 73 20 72 65 61 64 2d 6f 6e 6c  # B4 is read-onl
07f0: 79 21 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 50  y!.  execsql { P
0800: 52 41 47 4d 41 20 6c 6f 63 6b 5f 73 74 61 74 75  RAGMA lock_statu
0810: 73 20 7d 0a 7d 20 7b 6d 61 69 6e 20 72 65 73 65  s }.} {main rese
0820: 72 76 65 64 20 74 65 6d 70 20 63 6c 6f 73 65 64  rved temp closed
0830: 7d 0a 64 6f 5f 74 65 73 74 20 32 2e 31 2e 32 20  }.do_test 2.1.2 
0840: 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62  {.  sqlite3_blob
0850: 5f 63 6c 6f 73 65 20 24 42 31 20 0a 20 20 65 78  _close $B1 .  ex
0860: 65 63 73 71 6c 20 7b 20 50 52 41 47 4d 41 20 6c  ecsql { PRAGMA l
0870: 6f 63 6b 5f 73 74 61 74 75 73 20 7d 0a 7d 20 7b  ock_status }.} {
0880: 6d 61 69 6e 20 72 65 73 65 72 76 65 64 20 74 65  main reserved te
0890: 6d 70 20 63 6c 6f 73 65 64 7d 0a 64 6f 5f 74 65  mp closed}.do_te
08a0: 73 74 20 32 2e 31 2e 33 20 7b 0a 20 20 73 71 6c  st 2.1.3 {.  sql
08b0: 69 74 65 33 5f 62 6c 6f 62 5f 63 6c 6f 73 65 20  ite3_blob_close 
08c0: 24 42 32 20 0a 20 20 65 78 65 63 73 71 6c 20 7b  $B2 .  execsql {
08d0: 20 50 52 41 47 4d 41 20 6c 6f 63 6b 5f 73 74 61   PRAGMA lock_sta
08e0: 74 75 73 20 7d 0a 7d 20 7b 6d 61 69 6e 20 72 65  tus }.} {main re
08f0: 73 65 72 76 65 64 20 74 65 6d 70 20 63 6c 6f 73  served temp clos
0900: 65 64 7d 0a 64 6f 5f 74 65 73 74 20 32 2e 31 2e  ed}.do_test 2.1.
0910: 34 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c  4 {.  sqlite3_bl
0920: 6f 62 5f 63 6c 6f 73 65 20 24 42 33 20 0a 20 20  ob_close $B3 .  
0930: 65 78 65 63 73 71 6c 20 7b 20 50 52 41 47 4d 41  execsql { PRAGMA
0940: 20 6c 6f 63 6b 5f 73 74 61 74 75 73 20 7d 0a 7d   lock_status }.}
0950: 20 7b 6d 61 69 6e 20 73 68 61 72 65 64 20 74 65   {main shared te
0960: 6d 70 20 63 6c 6f 73 65 64 7d 0a 64 6f 5f 74 65  mp closed}.do_te
0970: 73 74 20 32 2e 31 2e 35 20 7b 0a 20 20 73 71 6c  st 2.1.5 {.  sql
0980: 69 74 65 33 5f 62 6c 6f 62 5f 63 6c 6f 73 65 20  ite3_blob_close 
0990: 24 42 34 20 0a 20 20 65 78 65 63 73 71 6c 20 7b  $B4 .  execsql {
09a0: 20 50 52 41 47 4d 41 20 6c 6f 63 6b 5f 73 74 61   PRAGMA lock_sta
09b0: 74 75 73 20 7d 0a 7d 20 7b 6d 61 69 6e 20 75 6e  tus }.} {main un
09c0: 6c 6f 63 6b 65 64 20 74 65 6d 70 20 63 6c 6f 73  locked temp clos
09d0: 65 64 7d 0a 0a 64 6f 5f 74 65 73 74 20 32 2e 32  ed}..do_test 2.2
09e0: 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62  .1 {.  sqlite3_b
09f0: 6c 6f 62 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e  lob_open db main
0a00: 20 78 31 20 62 20 2d 31 30 30 20 31 20 42 31 0a   x1 b -100 1 B1.
0a10: 20 20 65 78 65 63 73 71 6c 20 7b 20 50 52 41 47    execsql { PRAG
0a20: 4d 41 20 6c 6f 63 6b 5f 73 74 61 74 75 73 20 7d  MA lock_status }
0a30: 0a 7d 20 7b 6d 61 69 6e 20 72 65 73 65 72 76 65  .} {main reserve
0a40: 64 20 74 65 6d 70 20 63 6c 6f 73 65 64 7d 0a 64  d temp closed}.d
0a50: 6f 5f 74 65 73 74 20 32 2e 32 2e 32 20 7b 0a 20  o_test 2.2.2 {. 
0a60: 20 65 78 65 63 73 71 6c 20 7b 20 42 45 47 49 4e   execsql { BEGIN
0a70: 20 7d 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f   }.  sqlite3_blo
0a80: 62 5f 63 6c 6f 73 65 20 24 42 31 20 0a 20 20 65  b_close $B1 .  e
0a90: 78 65 63 73 71 6c 20 7b 20 50 52 41 47 4d 41 20  xecsql { PRAGMA 
0aa0: 6c 6f 63 6b 5f 73 74 61 74 75 73 20 7d 0a 7d 20  lock_status }.} 
0ab0: 7b 6d 61 69 6e 20 72 65 73 65 72 76 65 64 20 74  {main reserved t
0ac0: 65 6d 70 20 63 6c 6f 73 65 64 7d 0a 64 6f 5f 74  emp closed}.do_t
0ad0: 65 73 74 20 32 2e 32 2e 33 20 7b 0a 20 20 65 78  est 2.2.3 {.  ex
0ae0: 65 63 73 71 6c 20 7b 20 43 4f 4d 4d 49 54 20 7d  ecsql { COMMIT }
0af0: 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 50 52 41  .  execsql { PRA
0b00: 47 4d 41 20 6c 6f 63 6b 5f 73 74 61 74 75 73 20  GMA lock_status 
0b10: 7d 0a 7d 20 7b 6d 61 69 6e 20 75 6e 6c 6f 63 6b  }.} {main unlock
0b20: 65 64 20 74 65 6d 70 20 63 6c 6f 73 65 64 7d 0a  ed temp closed}.
0b30: 0a 70 72 6f 63 20 76 61 6c 20 7b 7d 20 7b 20 0a  .proc val {} { .
0b40: 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 63    sqlite3_blob_c
0b50: 6c 6f 73 65 20 24 3a 3a 42 20 0a 20 20 64 62 20  lose $::B .  db 
0b60: 65 76 61 6c 20 7b 20 50 52 41 47 4d 41 20 6c 6f  eval { PRAGMA lo
0b70: 63 6b 5f 73 74 61 74 75 73 20 7d 0a 7d 0a 64 62  ck_status }.}.db
0b80: 20 66 75 6e 63 20 76 61 6c 20 76 61 6c 0a 64 6f   func val val.do
0b90: 5f 74 65 73 74 20 32 2e 33 2e 31 20 7b 0a 20 20  _test 2.3.1 {.  
0ba0: 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 6f 70 65  sqlite3_blob_ope
0bb0: 6e 20 64 62 20 6d 61 69 6e 20 78 31 20 62 20 2d  n db main x1 b -
0bc0: 31 30 30 20 31 20 42 0a 20 20 65 78 65 63 73 71  100 1 B.  execsq
0bd0: 6c 20 7b 20 50 52 41 47 4d 41 20 6c 6f 63 6b 5f  l { PRAGMA lock_
0be0: 73 74 61 74 75 73 20 7d 0a 7d 20 7b 6d 61 69 6e  status }.} {main
0bf0: 20 72 65 73 65 72 76 65 64 20 74 65 6d 70 20 63   reserved temp c
0c00: 6c 6f 73 65 64 7d 0a 64 6f 5f 74 65 73 74 20 32  losed}.do_test 2
0c10: 2e 33 2e 32 20 7b 0a 20 20 65 78 65 63 73 71 6c  .3.2 {.  execsql
0c20: 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 78   { INSERT INTO x
0c30: 31 20 56 41 4c 55 45 53 28 31 35 2c 20 76 61 6c  1 VALUES(15, val
0c40: 28 29 29 20 7d 0a 20 20 65 78 65 63 73 71 6c 20  ()) }.  execsql 
0c50: 7b 20 50 52 41 47 4d 41 20 6c 6f 63 6b 5f 73 74  { PRAGMA lock_st
0c60: 61 74 75 73 20 7d 0a 7d 20 7b 6d 61 69 6e 20 75  atus }.} {main u
0c70: 6e 6c 6f 63 6b 65 64 20 74 65 6d 70 20 63 6c 6f  nlocked temp clo
0c80: 73 65 64 7d 0a 64 6f 5f 74 65 73 74 20 32 2e 33  sed}.do_test 2.3
0c90: 2e 33 20 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b  .3 {.  execsql {
0ca0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 78   SELECT * FROM x
0cb0: 31 20 57 48 45 52 45 20 61 20 3d 20 31 35 20 7d  1 WHERE a = 15 }
0cc0: 0a 7d 20 7b 31 35 20 7b 6d 61 69 6e 20 72 65 73  .} {15 {main res
0cd0: 65 72 76 65 64 20 74 65 6d 70 20 63 6c 6f 73 65  erved temp close
0ce0: 64 7d 7d 0a 0a 23 20 41 20 72 65 61 64 65 72 20  d}}..# A reader 
0cf0: 64 6f 65 73 20 6e 6f 74 20 69 6e 68 69 62 69 74  does not inhibit
0d00: 20 63 6f 6d 6d 69 74 2e 0a 64 6f 5f 74 65 73 74   commit..do_test
0d10: 20 32 2e 33 2e 34 20 7b 0a 20 20 73 71 6c 69 74   2.3.4 {.  sqlit
0d20: 65 33 5f 62 6c 6f 62 5f 6f 70 65 6e 20 64 62 20  e3_blob_open db 
0d30: 6d 61 69 6e 20 78 31 20 62 20 2d 31 30 30 20 31  main x1 b -100 1
0d40: 20 42 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 50   B.  execsql { P
0d50: 52 41 47 4d 41 20 6c 6f 63 6b 5f 73 74 61 74 75  RAGMA lock_statu
0d60: 73 20 7d 0a 7d 20 7b 6d 61 69 6e 20 72 65 73 65  s }.} {main rese
0d70: 72 76 65 64 20 74 65 6d 70 20 63 6c 6f 73 65 64  rved temp closed
0d80: 7d 0a 64 6f 5f 74 65 73 74 20 32 2e 33 2e 35 20  }.do_test 2.3.5 
0d90: 7b 0a 20 20 65 78 65 63 73 71 6c 20 7b 20 53 45  {.  execsql { SE
0da0: 4c 45 43 54 20 61 2c 20 76 61 6c 28 29 20 46 52  LECT a, val() FR
0db0: 4f 4d 20 78 31 20 4c 49 4d 49 54 20 31 20 7d 0a  OM x1 LIMIT 1 }.
0dc0: 7d 20 7b 2d 31 30 30 30 30 20 7b 6d 61 69 6e 20  } {-10000 {main 
0dd0: 73 68 61 72 65 64 20 74 65 6d 70 20 63 6c 6f 73  shared temp clos
0de0: 65 64 7d 7d 0a 0a 0a 64 6f 5f 74 65 73 74 20 33  ed}}...do_test 3
0df0: 2e 31 20 7b 0a 20 20 73 71 6c 69 74 65 33 5f 62  .1 {.  sqlite3_b
0e00: 6c 6f 62 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e  lob_open db main
0e10: 20 78 31 20 62 20 2d 31 30 20 31 20 42 0a 20 20   x1 b -10 1 B.  
0e20: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 49 4e  execsql {.    IN
0e30: 53 45 52 54 20 49 4e 54 4f 20 78 31 20 56 41 4c  SERT INTO x1 VAL
0e40: 55 45 53 28 31 2c 20 27 61 62 63 27 29 3b 0a 20  UES(1, 'abc');. 
0e50: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
0e60: 20 78 31 20 57 48 45 52 45 20 61 3d 31 3b 0a 20   x1 WHERE a=1;. 
0e70: 20 7d 0a 7d 20 7b 31 20 61 62 63 7d 0a 64 6f 5f   }.} {1 abc}.do_
0e80: 74 65 73 74 20 33 2e 32 20 7b 0a 20 20 73 71 6c  test 3.2 {.  sql
0e90: 69 74 65 33 5f 62 6c 6f 62 5f 77 72 69 74 65 20  ite3_blob_write 
0ea0: 24 42 20 30 20 22 61 62 63 64 65 66 67 68 69 6a  $B 0 "abcdefghij
0eb0: 22 20 31 30 0a 20 20 65 78 65 63 73 71 6c 20 7b  " 10.  execsql {
0ec0: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 78   SELECT * FROM x
0ed0: 31 20 57 48 45 52 45 20 61 3d 2d 31 30 20 7d 0a  1 WHERE a=-10 }.
0ee0: 7d 20 7b 2d 31 30 20 61 62 63 64 65 66 67 68 69  } {-10 abcdefghi
0ef0: 6a 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e  j...............
0f00: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 7d  ...............}
0f10: 0a 0a 64 6f 5f 74 65 73 74 20 33 2e 33 20 7b 0a  ..do_test 3.3 {.
0f20: 20 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65    sqlite3 db2 te
0f30: 73 74 2e 64 62 0a 20 20 65 78 65 63 73 71 6c 20  st.db.  execsql 
0f40: 7b 20 42 45 47 49 4e 20 3b 20 53 45 4c 45 43 54  { BEGIN ; SELECT
0f50: 20 2a 20 46 52 4f 4d 20 78 31 20 7d 20 64 62 32   * FROM x1 } db2
0f60: 0a 20 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f  .  sqlite3_blob_
0f70: 63 6c 6f 73 65 20 24 42 20 0a 7d 20 7b 53 51 4c  close $B .} {SQL
0f80: 49 54 45 5f 42 55 53 59 7d 0a 0a 23 20 45 56 49  ITE_BUSY}..# EVI
0f90: 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 34 31 39 35  DENCE-OF: R-4195
0fa0: 39 2d 33 38 37 33 37 20 4f 74 68 65 72 77 69 73  9-38737 Otherwis
0fb0: 65 2c 20 69 66 20 74 68 69 73 20 66 75 6e 63 74  e, if this funct
0fc0: 69 6f 6e 20 69 73 20 70 61 73 73 65 64 20 61 0a  ion is passed a.
0fd0: 23 20 76 61 6c 69 64 20 6f 70 65 6e 20 62 6c 6f  # valid open blo
0fe0: 62 20 68 61 6e 64 6c 65 2c 20 74 68 65 20 76 61  b handle, the va
0ff0: 6c 75 65 73 20 72 65 74 75 72 6e 65 64 20 62 79  lues returned by
1000: 20 74 68 65 20 73 71 6c 69 74 65 33 5f 65 72 72   the sqlite3_err
1010: 63 6f 64 65 28 29 0a 23 20 61 6e 64 20 73 71 6c  code().# and sql
1020: 69 74 65 33 5f 65 72 72 6d 73 67 28 29 20 66 75  ite3_errmsg() fu
1030: 6e 63 74 69 6f 6e 73 20 61 72 65 20 73 65 74 20  nctions are set 
1040: 62 65 66 6f 72 65 20 72 65 74 75 72 6e 69 6e 67  before returning
1050: 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 33 2e 34 20  ..#.do_test 3.4 
1060: 7b 0a 20 20 6c 69 73 74 20 5b 73 71 6c 69 74 65  {.  list [sqlite
1070: 33 5f 65 72 72 63 6f 64 65 20 64 62 5d 20 5b 73  3_errcode db] [s
1080: 71 6c 69 74 65 33 5f 65 72 72 6d 73 67 20 64 62  qlite3_errmsg db
1090: 5d 0a 7d 20 7b 53 51 4c 49 54 45 5f 42 55 53 59  ].} {SQLITE_BUSY
10a0: 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f   {database is lo
10b0: 63 6b 65 64 7d 7d 0a 0a 23 20 45 56 49 44 45 4e  cked}}..# EVIDEN
10c0: 43 45 2d 4f 46 3a 20 52 2d 33 37 38 30 31 2d 33  CE-OF: R-37801-3
10d0: 37 36 33 33 20 54 68 65 20 42 4c 4f 42 20 68 61  7633 The BLOB ha
10e0: 6e 64 6c 65 20 69 73 20 63 6c 6f 73 65 64 20 75  ndle is closed u
10f0: 6e 63 6f 6e 64 69 74 69 6f 6e 61 6c 6c 79 2e 0a  nconditionally..
1100: 23 20 45 76 65 6e 20 69 66 20 74 68 69 73 20 72  # Even if this r
1110: 6f 75 74 69 6e 65 20 72 65 74 75 72 6e 73 20 61  outine returns a
1120: 6e 20 65 72 72 6f 72 20 63 6f 64 65 2c 20 74 68  n error code, th
1130: 65 20 68 61 6e 64 6c 65 20 69 73 20 73 74 69 6c  e handle is stil
1140: 6c 0a 23 20 63 6c 6f 73 65 64 2e 0a 23 0a 23 20  l.# closed..#.# 
1150: 20 20 54 65 73 74 20 74 68 61 74 20 74 68 65 20    Test that the 
1160: 6c 6f 63 6b 20 68 61 73 20 62 65 65 6e 20 72 65  lock has been re
1170: 6c 65 61 73 65 64 2e 20 41 73 73 75 6d 65 20 74  leased. Assume t
1180: 68 69 73 20 6d 65 61 6e 73 20 74 68 65 20 68 61  his means the ha
1190: 6e 64 6c 65 0a 23 20 20 20 69 73 20 63 6c 6f 73  ndle.#   is clos
11a0: 65 64 2c 20 65 76 65 6e 20 74 68 6f 75 67 68 20  ed, even though 
11b0: 62 6c 6f 62 5f 63 6c 6f 73 65 28 29 20 72 65 74  blob_close() ret
11c0: 75 72 6e 65 64 20 53 51 4c 49 54 45 5f 42 55 53  urned SQLITE_BUS
11d0: 59 2e 0a 23 0a 64 6f 5f 65 78 65 63 73 71 6c 5f  Y..#.do_execsql_
11e0: 74 65 73 74 20 33 2e 34 20 7b 20 50 52 41 47 4d  test 3.4 { PRAGM
11f0: 41 20 6c 6f 63 6b 5f 73 74 61 74 75 73 20 7d 20  A lock_status } 
1200: 7b 6d 61 69 6e 20 75 6e 6c 6f 63 6b 65 64 20 74  {main unlocked t
1210: 65 6d 70 20 63 6c 6f 73 65 64 7d 0a 0a 23 20 45  emp closed}..# E
1220: 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d 33 35  VIDENCE-OF: R-35
1230: 31 31 31 2d 30 35 36 32 38 20 49 66 20 61 6e 20  111-05628 If an 
1240: 65 72 72 6f 72 20 6f 63 63 75 72 73 20 77 68 69  error occurs whi
1250: 6c 65 20 63 6f 6d 6d 69 74 74 69 6e 67 20 74 68  le committing th
1260: 65 0a 23 20 74 72 61 6e 73 61 63 74 69 6f 6e 2c  e.# transaction,
1270: 20 61 6e 20 65 72 72 6f 72 20 63 6f 64 65 20 69   an error code i
1280: 73 20 72 65 74 75 72 6e 65 64 20 61 6e 64 20 74  s returned and t
1290: 68 65 20 74 72 61 6e 73 61 63 74 69 6f 6e 20 72  he transaction r
12a0: 6f 6c 6c 65 64 0a 23 20 62 61 63 6b 2e 0a 23 0a  olled.# back..#.
12b0: 23 20 20 20 52 6f 77 20 31 20 69 73 20 72 65 6d  #   Row 1 is rem
12c0: 6f 76 65 64 20 28 69 74 20 77 61 73 20 69 6e 73  oved (it was ins
12d0: 65 72 74 65 64 20 74 68 69 73 20 74 72 61 6e 73  erted this trans
12e0: 61 63 74 69 6f 6e 29 20 61 6e 64 20 72 6f 77 20  action) and row 
12f0: 2d 31 30 0a 23 20 20 20 69 73 20 72 65 73 74 6f  -10.#   is resto
1300: 72 65 64 20 74 6f 20 69 74 73 20 6f 72 69 67 69  red to its origi
1310: 6e 61 6c 20 73 74 61 74 65 2e 20 54 72 61 6e 73  nal state. Trans
1320: 61 63 74 69 6f 6e 20 68 61 73 20 62 65 65 6e 20  action has been 
1330: 72 6f 6c 6c 65 64 20 62 61 63 6b 2e 0a 23 0a 64  rolled back..#.d
1340: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 33  o_execsql_test 3
1350: 2e 35 20 7b 0a 20 20 53 45 4c 45 43 54 20 2a 20  .5 {.  SELECT * 
1360: 46 52 4f 4d 20 78 31 20 57 48 45 52 45 20 61 20  FROM x1 WHERE a 
1370: 49 4e 20 28 31 2c 20 2d 31 30 29 3b 0a 7d 20 7b  IN (1, -10);.} {
1380: 2d 31 30 20 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e  -10 ............
1390: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e  ................
13a0: 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 7d 0a 0a 23  ............}..#
13b0: 20 45 56 49 44 45 4e 43 45 2d 4f 46 3a 20 52 2d   EVIDENCE-OF: R-
13c0: 32 35 38 39 34 2d 35 31 30 36 30 20 43 61 6c 6c  25894-51060 Call
13d0: 69 6e 67 20 74 68 69 73 20 72 6f 75 74 69 6e 65  ing this routine
13e0: 20 77 69 74 68 20 61 20 6e 75 6c 6c 20 70 6f 69   with a null poi
13f0: 6e 74 65 72 0a 23 20 28 73 75 63 68 20 61 73 20  nter.# (such as 
1400: 77 6f 75 6c 64 20 62 65 20 72 65 74 75 72 6e 65  would be returne
1410: 64 20 62 79 20 61 20 66 61 69 6c 65 64 20 63 61  d by a failed ca
1420: 6c 6c 20 74 6f 20 73 71 6c 69 74 65 33 5f 62 6c  ll to sqlite3_bl
1430: 6f 62 5f 6f 70 65 6e 28 29 29 20 69 73 0a 23 20  ob_open()) is.# 
1440: 61 20 68 61 72 6d 6c 65 73 73 20 6e 6f 2d 6f 70  a harmless no-op
1450: 2e 0a 23 0a 64 6f 5f 74 65 73 74 20 34 2e 30 20  ..#.do_test 4.0 
1460: 7b 20 73 71 6c 69 74 65 33 5f 62 6c 6f 62 5f 63  { sqlite3_blob_c
1470: 6c 6f 73 65 20 30 20 7d 20 7b 7d 0a 0a 66 69 6e  lose 0 } {}..fin
1480: 69 73 68 5f 74 65 73 74 0a                       ish_test.