/ Hex Artifact Content
Login

Artifact b68339e473d26cdeabe784ef14d7522334ec22c3:


0000: 23 20 32 30 31 30 20 4e 6f 76 65 6d 62 65 72 20  # 2010 November 
0010: 31 39 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f  19.#.# The autho
0020: 72 20 64 69 73 63 6c 61 69 6d 73 20 63 6f 70 79  r disclaims copy
0030: 72 69 67 68 74 20 74 6f 20 74 68 69 73 20 73 6f  right to this so
0040: 75 72 63 65 20 63 6f 64 65 2e 20 20 49 6e 20 70  urce code.  In p
0050: 6c 61 63 65 20 6f 66 0a 23 20 61 20 6c 65 67 61  lace of.# a lega
0060: 6c 20 6e 6f 74 69 63 65 2c 20 68 65 72 65 20 69  l notice, here i
0070: 73 20 61 20 62 6c 65 73 73 69 6e 67 3a 0a 23 0a  s a blessing:.#.
0080: 23 20 20 20 20 4d 61 79 20 79 6f 75 20 64 6f 20  #    May you do 
0090: 67 6f 6f 64 20 61 6e 64 20 6e 6f 74 20 65 76 69  good and not evi
00a0: 6c 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20  l..#    May you 
00b0: 66 69 6e 64 20 66 6f 72 67 69 76 65 6e 65 73 73  find forgiveness
00c0: 20 66 6f 72 20 79 6f 75 72 73 65 6c 66 20 61 6e   for yourself an
00d0: 64 20 66 6f 72 67 69 76 65 20 6f 74 68 65 72 73  d forgive others
00e0: 2e 0a 23 20 20 20 20 4d 61 79 20 79 6f 75 20 73  ..#    May you s
00f0: 68 61 72 65 20 66 72 65 65 6c 79 2c 20 6e 65 76  hare freely, nev
0100: 65 72 20 74 61 6b 69 6e 67 20 6d 6f 72 65 20 74  er taking more t
0110: 68 61 6e 20 79 6f 75 20 67 69 76 65 2e 0a 23 0a  han you give..#.
0120: 23 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 2a 0a 23 0a 0a 73 65 74 20  ********.#..set 
0170: 74 65 73 74 64 69 72 20 5b 66 69 6c 65 20 64 69  testdir [file di
0180: 72 6e 61 6d 65 20 24 61 72 67 76 30 5d 0a 73 6f  rname $argv0].so
0190: 75 72 63 65 20 24 74 65 73 74 64 69 72 2f 74 65  urce $testdir/te
01a0: 73 74 65 72 2e 74 63 6c 0a 73 6f 75 72 63 65 20  ster.tcl.source 
01b0: 24 74 65 73 74 64 69 72 2f 6c 6f 63 6b 5f 63 6f  $testdir/lock_co
01c0: 6d 6d 6f 6e 2e 74 63 6c 0a 73 6f 75 72 63 65 20  mmon.tcl.source 
01d0: 24 74 65 73 74 64 69 72 2f 77 61 6c 5f 63 6f 6d  $testdir/wal_com
01e0: 6d 6f 6e 2e 74 63 6c 0a 0a 73 65 74 20 74 65 73  mon.tcl..set tes
01f0: 74 70 72 65 66 69 78 20 73 75 70 65 72 6c 6f 63  tprefix superloc
0200: 6b 0a 0a 23 20 54 65 73 74 20 6f 72 67 61 6e 69  k..# Test organi
0210: 7a 61 74 69 6f 6e 3a 0a 23 0a 23 20 20 20 31 2e  zation:.#.#   1.
0220: 2a 3a 20 54 65 73 74 20 73 75 70 65 72 6c 6f 63  *: Test superloc
0230: 6b 20 6f 6e 20 61 20 72 6f 6c 6c 62 61 63 6b 20  k on a rollback 
0240: 64 61 74 61 62 61 73 65 2e 20 54 65 73 74 20 74  database. Test t
0250: 68 61 74 20 6f 6e 63 65 20 74 68 65 20 64 62 20  hat once the db 
0260: 69 73 0a 23 20 20 20 20 20 20 20 20 73 75 70 65  is.#        supe
0270: 72 6c 6f 63 6b 65 64 2c 20 69 74 20 69 73 20 6e  rlocked, it is n
0280: 6f 74 20 70 6f 73 73 69 62 6c 65 20 66 6f 72 20  ot possible for 
0290: 61 20 73 65 63 6f 6e 64 20 63 6c 69 65 6e 74 20  a second client 
02a0: 74 6f 20 72 65 61 64 20 66 72 6f 6d 0a 23 20 20  to read from.#  
02b0: 20 20 20 20 20 20 69 74 2e 0a 23 0a 23 20 20 20        it..#.#   
02c0: 32 2e 2a 3a 20 54 65 73 74 20 73 75 70 65 72 6c  2.*: Test superl
02d0: 6f 63 6b 20 6f 6e 20 61 20 57 41 4c 20 64 61 74  ock on a WAL dat
02e0: 61 62 61 73 65 20 77 69 74 68 20 7a 65 72 6f 20  abase with zero 
02f0: 66 72 61 6d 65 73 20 69 6e 20 74 68 65 20 57 41  frames in the WA
0300: 4c 20 66 69 6c 65 2e 0a 23 20 20 20 20 20 20 20  L file..#       
0310: 20 54 65 73 74 20 74 68 61 74 20 6f 6e 63 65 20   Test that once 
0320: 74 68 65 20 64 62 20 69 73 20 73 75 70 65 72 6c  the db is superl
0330: 6f 63 6b 65 64 2c 20 69 74 20 69 73 20 6e 6f 74  ocked, it is not
0340: 20 70 6f 73 73 69 62 6c 65 20 74 6f 20 72 65 61   possible to rea
0350: 64 2c 0a 23 20 20 20 20 20 20 20 20 77 72 69 74  d,.#        writ
0360: 65 20 6f 72 20 63 68 65 63 6b 70 6f 69 6e 74 20  e or checkpoint 
0370: 74 68 65 20 64 62 2e 0a 23 0a 23 20 20 20 33 2e  the db..#.#   3.
0380: 2a 3a 20 41 73 20 32 2e 2a 2c 20 66 6f 72 20 57  *: As 2.*, for W
0390: 41 4c 20 64 61 74 61 62 61 73 65 73 20 77 69 74  AL databases wit
03a0: 68 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 66 72  h one or more fr
03b0: 61 6d 65 73 20 69 6e 20 74 68 65 20 57 41 4c 2e  ames in the WAL.
03c0: 0a 23 0a 23 20 20 20 34 2e 2a 3a 20 41 73 20 32  .#.#   4.*: As 2
03d0: 2e 2a 2c 20 66 6f 72 20 57 41 4c 20 64 61 74 61  .*, for WAL data
03e0: 62 61 73 65 73 20 77 69 74 68 20 6f 6e 65 20 6f  bases with one o
03f0: 72 20 6d 6f 72 65 20 63 68 65 63 6b 70 6f 69 6e  r more checkpoin
0400: 74 65 64 20 66 72 61 6d 65 73 20 0a 23 20 20 20  ted frames .#   
0410: 20 20 20 20 20 69 6e 20 74 68 65 20 57 41 4c 2e       in the WAL.
0420: 0a 23 0a 23 20 20 20 35 2e 2a 3a 20 54 65 73 74  .#.#   5.*: Test
0430: 20 74 68 61 74 20 61 20 63 61 6c 6c 20 74 6f 20   that a call to 
0440: 73 71 6c 69 74 65 33 64 65 6d 6f 5f 73 75 70 65  sqlite3demo_supe
0450: 72 6c 6f 63 6b 28 29 20 75 73 65 73 20 74 68 65  rlock() uses the
0460: 20 62 75 73 79 20 68 61 6e 64 6c 65 72 0a 23 20   busy handler.# 
0470: 20 20 20 20 20 20 20 63 6f 72 72 65 63 74 6c 79         correctly
0480: 20 74 6f 20 77 61 69 74 20 66 6f 72 20 65 78 69   to wait for exi
0490: 73 74 69 6e 67 20 63 6c 69 65 6e 74 73 20 74 6f  sting clients to
04a0: 20 63 6c 65 61 72 20 6f 6e 20 61 20 57 41 4c 20   clear on a WAL 
04b0: 64 61 74 61 62 61 73 65 2e 0a 23 20 20 20 20 20  database..#     
04c0: 20 20 20 41 6e 64 20 72 65 74 75 72 6e 73 20 53     And returns S
04d0: 51 4c 49 54 45 5f 42 55 53 59 20 69 66 20 6e 6f  QLITE_BUSY if no
04e0: 20 62 75 73 79 20 68 61 6e 64 6c 65 72 20 69 73   busy handler is
04f0: 20 64 65 66 69 6e 65 64 20 6f 72 20 74 68 65 20   defined or the 
0500: 62 75 73 79 0a 23 20 20 20 20 20 20 20 20 68 61  busy.#        ha
0510: 6e 64 6c 65 72 20 72 65 74 75 72 6e 73 20 30 20  ndler returns 0 
0520: 62 65 66 6f 72 65 20 73 61 69 64 20 63 6c 69 65  before said clie
0530: 6e 74 73 20 72 65 6c 69 6e 71 75 69 73 68 20 74  nts relinquish t
0540: 68 65 69 72 20 6c 6f 63 6b 73 2e 0a 23 0a 23 20  heir locks..#.# 
0550: 20 20 36 2e 2a 3a 20 54 65 73 74 20 74 68 61 74    6.*: Test that
0560: 20 69 66 20 61 20 73 75 70 65 72 6c 6f 63 6b 65   if a superlocke
0570: 64 20 57 41 4c 20 64 61 74 61 62 61 73 65 20 69  d WAL database i
0580: 73 20 6f 76 65 72 77 72 69 74 74 65 6e 2c 20 65  s overwritten, e
0590: 78 69 73 74 69 6e 67 0a 23 20 20 20 20 20 20 20  xisting.#       
05a0: 20 63 6c 69 65 6e 74 73 20 72 75 6e 20 74 68 65   clients run the
05b0: 20 72 65 63 6f 76 65 72 79 20 74 6f 20 62 75 69   recovery to bui
05c0: 6c 64 20 74 68 65 20 6e 65 77 20 77 61 6c 2d 69  ld the new wal-i
05d0: 6e 64 65 78 20 61 66 74 65 72 20 74 68 65 20 0a  ndex after the .
05e0: 23 20 20 20 20 20 20 20 20 73 75 70 65 72 6c 6f  #        superlo
05f0: 63 6b 20 69 73 20 72 65 6c 65 61 73 65 64 2e 0a  ck is released..
0600: 23 20 20 20 20 20 20 20 20 0a 23 0a 0a 64 6f 5f  #        .#..do_
0610: 65 78 65 63 73 71 6c 5f 74 65 73 74 20 31 2e 31  execsql_test 1.1
0620: 20 7b 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c   {.  CREATE TABL
0630: 45 20 74 31 28 61 2c 20 62 29 3b 0a 20 20 49 4e  E t1(a, b);.  IN
0640: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
0650: 55 45 53 28 31 2c 20 32 29 3b 0a 20 20 50 52 41  UES(1, 2);.  PRA
0660: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
0670: 20 3d 20 44 45 4c 45 54 45 3b 0a 7d 20 7b 64 65   = DELETE;.} {de
0680: 6c 65 74 65 7d 0a 0a 64 6f 5f 74 65 73 74 20 31  lete}..do_test 1
0690: 2e 32 20 7b 20 73 71 6c 69 74 65 33 64 65 6d 6f  .2 { sqlite3demo
06a0: 5f 73 75 70 65 72 6c 6f 63 6b 20 75 6e 6c 6f 63  _superlock unloc
06b0: 6b 20 74 65 73 74 2e 64 62 20 7d 20 7b 75 6e 6c  k test.db } {unl
06c0: 6f 63 6b 7d 0a 64 6f 5f 63 61 74 63 68 73 71 6c  ock}.do_catchsql
06d0: 5f 74 65 73 74 20 31 2e 33 20 7b 20 53 45 4c 45  _test 1.3 { SELE
06e0: 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 7d 20 7b  CT * FROM t1 } {
06f0: 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c  1 {database is l
0700: 6f 63 6b 65 64 7d 7d 0a 64 6f 5f 74 65 73 74 20  ocked}}.do_test 
0710: 31 2e 34 20 7b 20 75 6e 6c 6f 63 6b 20 7d 20 7b  1.4 { unlock } {
0720: 7d 0a 0a 69 66 63 61 70 61 62 6c 65 20 21 77 61  }..ifcapable !wa
0730: 6c 20 7b 66 69 6e 69 73 68 5f 74 65 73 74 20 3b  l {finish_test ;
0740: 20 72 65 74 75 72 6e 20 7d 0a 69 66 20 7b 20 21   return }.if { !
0750: 5b 77 61 6c 5f 69 73 5f 6f 6b 5d 20 7d 20 7b 0a  [wal_is_ok] } {.
0760: 20 20 66 69 6e 69 73 68 5f 74 65 73 74 20 0a 20    finish_test . 
0770: 20 72 65 74 75 72 6e 20 0a 7d 0a 0a 64 6f 5f 65   return .}..do_e
0780: 78 65 63 73 71 6c 5f 74 65 73 74 20 32 2e 31 20  xecsql_test 2.1 
0790: 7b 20 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  { .  INSERT INTO
07a0: 20 74 31 20 56 41 4c 55 45 53 28 33 2c 20 34 29   t1 VALUES(3, 4)
07b0: 3b 0a 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e  ;.  PRAGMA journ
07c0: 61 6c 5f 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a 7d  al_mode = WAL;.}
07d0: 20 7b 77 61 6c 7d 0a 0a 64 6f 5f 74 65 73 74 20   {wal}..do_test 
07e0: 32 2e 32 20 7b 20 73 71 6c 69 74 65 33 64 65 6d  2.2 { sqlite3dem
07f0: 6f 5f 73 75 70 65 72 6c 6f 63 6b 20 75 6e 6c 6f  o_superlock unlo
0800: 63 6b 20 74 65 73 74 2e 64 62 20 7d 20 7b 75 6e  ck test.db } {un
0810: 6c 6f 63 6b 7d 0a 64 6f 5f 63 61 74 63 68 73 71  lock}.do_catchsq
0820: 6c 5f 74 65 73 74 20 32 2e 33 20 7b 20 53 45 4c  l_test 2.3 { SEL
0830: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 7d 20  ECT * FROM t1 } 
0840: 20 20 20 20 20 20 20 20 20 20 7b 31 20 7b 64 61            {1 {da
0850: 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65 64  tabase is locked
0860: 7d 7d 0a 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74  }}.do_catchsql_t
0870: 65 73 74 20 32 2e 34 20 7b 20 49 4e 53 45 52 54  est 2.4 { INSERT
0880: 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28   INTO t1 VALUES(
0890: 35 2c 20 36 29 7d 20 7b 31 20 7b 64 61 74 61 62  5, 6)} {1 {datab
08a0: 61 73 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a  ase is locked}}.
08b0: 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74  do_catchsql_test
08c0: 20 32 2e 35 20 7b 20 50 52 41 47 4d 41 20 77 61   2.5 { PRAGMA wa
08d0: 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 20 7d 20 20  l_checkpoint }  
08e0: 20 20 20 20 7b 30 20 7b 31 20 2d 31 20 2d 31 7d      {0 {1 -1 -1}
08f0: 7d 0a 64 6f 5f 74 65 73 74 20 32 2e 36 20 7b 20  }.do_test 2.6 { 
0900: 75 6e 6c 6f 63 6b 20 7d 20 7b 7d 0a 0a 64 6f 5f  unlock } {}..do_
0910: 65 78 65 63 73 71 6c 5f 74 65 73 74 20 33 2e 31  execsql_test 3.1
0920: 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74   { INSERT INTO t
0930: 31 20 56 41 4c 55 45 53 28 33 2c 20 34 29 20 7d  1 VALUES(3, 4) }
0940: 20 0a 0a 64 6f 5f 74 65 73 74 20 33 2e 32 20 7b   ..do_test 3.2 {
0950: 20 73 71 6c 69 74 65 33 64 65 6d 6f 5f 73 75 70   sqlite3demo_sup
0960: 65 72 6c 6f 63 6b 20 75 6e 6c 6f 63 6b 20 74 65  erlock unlock te
0970: 73 74 2e 64 62 20 7d 20 7b 75 6e 6c 6f 63 6b 7d  st.db } {unlock}
0980: 0a 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73  .do_catchsql_tes
0990: 74 20 33 2e 33 20 7b 20 53 45 4c 45 43 54 20 2a  t 3.3 { SELECT *
09a0: 20 46 52 4f 4d 20 74 31 20 7d 20 20 20 20 20 20   FROM t1 }      
09b0: 20 20 20 20 20 7b 31 20 7b 64 61 74 61 62 61 73       {1 {databas
09c0: 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f  e is locked}}.do
09d0: 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20 33  _catchsql_test 3
09e0: 2e 34 20 7b 20 49 4e 53 45 52 54 20 49 4e 54 4f  .4 { INSERT INTO
09f0: 20 74 31 20 56 41 4c 55 45 53 28 35 2c 20 36 29   t1 VALUES(5, 6)
0a00: 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69  } {1 {database i
0a10: 73 20 6c 6f 63 6b 65 64 7d 7d 0a 64 6f 5f 63 61  s locked}}.do_ca
0a20: 74 63 68 73 71 6c 5f 74 65 73 74 20 33 2e 35 20  tchsql_test 3.5 
0a30: 7b 20 50 52 41 47 4d 41 20 77 61 6c 5f 63 68 65  { PRAGMA wal_che
0a40: 63 6b 70 6f 69 6e 74 20 7d 20 20 20 20 20 20 7b  ckpoint }      {
0a50: 30 20 7b 31 20 2d 31 20 2d 31 7d 7d 0a 64 6f 5f  0 {1 -1 -1}}.do_
0a60: 74 65 73 74 20 33 2e 36 20 7b 20 75 6e 6c 6f 63  test 3.6 { unloc
0a70: 6b 20 7d 20 7b 7d 0a 0a 64 6f 5f 65 78 65 63 73  k } {}..do_execs
0a80: 71 6c 5f 74 65 73 74 20 34 2e 31 20 7b 20 50 52  ql_test 4.1 { PR
0a90: 41 47 4d 41 20 77 61 6c 5f 63 68 65 63 6b 70 6f  AGMA wal_checkpo
0aa0: 69 6e 74 20 7d 20 5b 0a 20 20 6c 69 73 74 20 30  int } [.  list 0
0ab0: 20 5b 77 61 6c 5f 66 72 61 6d 65 73 20 64 62 20   [wal_frames db 
0ac0: 31 20 31 5d 20 5b 77 61 6c 5f 66 72 61 6d 65 73  1 1] [wal_frames
0ad0: 20 64 62 20 31 20 31 5d 0a 5d 0a 0a 64 6f 5f 74   db 1 1].]..do_t
0ae0: 65 73 74 20 34 2e 32 20 7b 20 73 71 6c 69 74 65  est 4.2 { sqlite
0af0: 33 64 65 6d 6f 5f 73 75 70 65 72 6c 6f 63 6b 20  3demo_superlock 
0b00: 75 6e 6c 6f 63 6b 20 74 65 73 74 2e 64 62 20 7d  unlock test.db }
0b10: 20 7b 75 6e 6c 6f 63 6b 7d 0a 64 6f 5f 63 61 74   {unlock}.do_cat
0b20: 63 68 73 71 6c 5f 74 65 73 74 20 34 2e 33 20 7b  chsql_test 4.3 {
0b30: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
0b40: 31 20 7d 20 20 20 20 20 20 20 20 20 20 20 7b 31  1 }           {1
0b50: 20 7b 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f   {database is lo
0b60: 63 6b 65 64 7d 7d 0a 64 6f 5f 63 61 74 63 68 73  cked}}.do_catchs
0b70: 71 6c 5f 74 65 73 74 20 34 2e 34 20 7b 20 49 4e  ql_test 4.4 { IN
0b80: 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c  SERT INTO t1 VAL
0b90: 55 45 53 28 35 2c 20 36 29 7d 20 7b 31 20 7b 64  UES(5, 6)} {1 {d
0ba0: 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b 65  atabase is locke
0bb0: 64 7d 7d 0a 64 6f 5f 63 61 74 63 68 73 71 6c 5f  d}}.do_catchsql_
0bc0: 74 65 73 74 20 34 2e 35 20 7b 20 50 52 41 47 4d  test 4.5 { PRAGM
0bd0: 41 20 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74  A wal_checkpoint
0be0: 20 7d 20 20 20 20 20 20 7b 30 20 7b 31 20 2d 31   }      {0 {1 -1
0bf0: 20 2d 31 7d 7d 0a 64 6f 5f 74 65 73 74 20 34 2e   -1}}.do_test 4.
0c00: 36 20 7b 20 75 6e 6c 6f 63 6b 20 7d 20 7b 7d 0a  6 { unlock } {}.
0c10: 0a 64 6f 5f 6d 75 6c 74 69 63 6c 69 65 6e 74 5f  .do_multiclient_
0c20: 74 65 73 74 20 74 6e 20 7b 0a 0a 20 20 70 72 6f  test tn {..  pro
0c30: 63 20 62 75 73 79 68 61 6e 64 6c 65 72 20 7b 78  c busyhandler {x
0c40: 7d 20 7b 0a 20 20 20 20 73 77 69 74 63 68 20 2d  } {.    switch -
0c50: 2d 20 24 78 20 7b 0a 20 20 20 20 20 20 31 20 7b  - $x {.      1 {
0c60: 20 73 71 6c 31 20 22 43 4f 4d 4d 49 54 22 20 7d   sql1 "COMMIT" }
0c70: 0a 20 20 20 20 20 20 32 20 7b 20 73 71 6c 32 20  .      2 { sql2 
0c80: 22 43 4f 4d 4d 49 54 22 20 7d 0a 20 20 20 20 20  "COMMIT" }.     
0c90: 20 33 20 7b 20 73 71 6c 33 20 22 43 4f 4d 4d 49   3 { sql3 "COMMI
0ca0: 54 22 20 7d 0a 20 20 20 20 7d 0a 20 20 20 20 6c  T" }.    }.    l
0cb0: 61 70 70 65 6e 64 20 3a 3a 62 75 73 79 6c 69 73  append ::busylis
0cc0: 74 20 24 78 0a 20 20 20 20 72 65 74 75 72 6e 20  t $x.    return 
0cd0: 31 0a 20 20 7d 0a 20 20 73 65 74 20 3a 3a 62 75  1.  }.  set ::bu
0ce0: 73 79 6c 69 73 74 20 5b 6c 69 73 74 5d 0a 0a 20  sylist [list].. 
0cf0: 20 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e 31   do_test 5.$tn.1
0d00: 20 7b 0a 20 20 20 20 73 71 6c 31 20 7b 0a 20 20   {.    sql1 {.  
0d10: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
0d20: 20 74 31 28 61 2c 20 62 29 3b 0a 20 20 20 20 20   t1(a, b);.     
0d30: 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f   PRAGMA journal_
0d40: 6d 6f 64 65 20 3d 20 57 41 4c 3b 0a 20 20 20 20  mode = WAL;.    
0d50: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0d60: 20 56 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a 20   VALUES(1, 2);. 
0d70: 20 20 20 7d 0a 20 20 7d 20 7b 77 61 6c 7d 0a 0a     }.  } {wal}..
0d80: 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e    do_test 5.$tn.
0d90: 32 20 7b 0a 20 20 20 20 73 71 6c 31 20 7b 20 42  2 {.    sql1 { B
0da0: 45 47 49 4e 20 3b 20 53 45 4c 45 43 54 20 2a 20  EGIN ; SELECT * 
0db0: 46 52 4f 4d 20 74 31 20 7d 0a 20 20 20 20 73 71  FROM t1 }.    sq
0dc0: 6c 32 20 7b 20 42 45 47 49 4e 20 3b 20 49 4e 53  l2 { BEGIN ; INS
0dd0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
0de0: 45 53 28 33 2c 20 34 29 20 7d 0a 20 20 20 20 73  ES(3, 4) }.    s
0df0: 71 6c 33 20 7b 20 42 45 47 49 4e 20 3b 20 53 45  ql3 { BEGIN ; SE
0e00: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 7d  LECT * FROM t1 }
0e10: 0a 20 20 7d 20 7b 31 20 32 7d 0a 0a 20 20 64 6f  .  } {1 2}..  do
0e20: 5f 74 65 73 74 20 35 2e 24 74 6e 2e 33 20 7b 0a  _test 5.$tn.3 {.
0e30: 20 20 20 20 73 65 74 20 3a 3a 62 75 73 79 6c 69      set ::busyli
0e40: 73 74 20 5b 6c 69 73 74 5d 0a 20 20 20 20 73 71  st [list].    sq
0e50: 6c 69 74 65 33 64 65 6d 6f 5f 73 75 70 65 72 6c  lite3demo_superl
0e60: 6f 63 6b 20 75 6e 6c 6f 63 6b 20 74 65 73 74 2e  ock unlock test.
0e70: 64 62 20 22 22 20 62 75 73 79 68 61 6e 64 6c 65  db "" busyhandle
0e80: 72 0a 20 20 20 20 73 65 74 20 3a 3a 62 75 73 79  r.    set ::busy
0e90: 6c 69 73 74 0a 20 20 7d 20 7b 30 20 31 20 32 20  list.  } {0 1 2 
0ea0: 33 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 35 2e  3}..  do_test 5.
0eb0: 24 74 6e 2e 34 20 7b 20 63 73 71 6c 32 20 7b 20  $tn.4 { csql2 { 
0ec0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
0ed0: 20 7d 20 7d 20 7b 31 20 7b 64 61 74 61 62 61 73   } } {1 {databas
0ee0: 65 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 20 20  e is locked}}.  
0ef0: 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e 35 20  do_test 5.$tn.5 
0f00: 7b 20 0a 20 20 20 20 63 73 71 6c 33 20 7b 20 49  { .    csql3 { I
0f10: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0f20: 4c 55 45 53 28 35 2c 20 36 29 20 7d 20 0a 20 20  LUES(5, 6) } .  
0f30: 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69  } {1 {database i
0f40: 73 20 6c 6f 63 6b 65 64 7d 7d 0a 20 20 64 6f 5f  s locked}}.  do_
0f50: 74 65 73 74 20 35 2e 24 74 6e 2e 36 20 7b 20 63  test 5.$tn.6 { c
0f60: 73 71 6c 31 20 22 50 52 41 47 4d 41 20 77 61 6c  sql1 "PRAGMA wal
0f70: 5f 63 68 65 63 6b 70 6f 69 6e 74 22 20 7d 20 7b  _checkpoint" } {
0f80: 30 20 7b 31 20 2d 31 20 2d 31 7d 7d 0a 0a 20 20  0 {1 -1 -1}}..  
0f90: 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e 37 20  do_test 5.$tn.7 
0fa0: 7b 20 75 6e 6c 6f 63 6b 20 7d 20 7b 7d 0a 0a 20  { unlock } {}.. 
0fb0: 20 0a 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74   .  do_test 5.$t
0fc0: 6e 2e 38 20 7b 0a 20 20 20 20 73 71 6c 31 20 7b  n.8 {.    sql1 {
0fd0: 20 42 45 47 49 4e 20 3b 20 53 45 4c 45 43 54 20   BEGIN ; SELECT 
0fe0: 2a 20 46 52 4f 4d 20 74 31 20 7d 0a 20 20 20 20  * FROM t1 }.    
0ff0: 73 71 6c 32 20 7b 20 42 45 47 49 4e 20 3b 20 49  sql2 { BEGIN ; I
1000: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
1010: 4c 55 45 53 28 35 2c 20 36 29 20 7d 0a 20 20 20  LUES(5, 6) }.   
1020: 20 73 71 6c 33 20 7b 20 42 45 47 49 4e 20 3b 20   sql3 { BEGIN ; 
1030: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31  SELECT * FROM t1
1040: 20 7d 0a 20 20 7d 20 7b 31 20 32 20 33 20 34 7d   }.  } {1 2 3 4}
1050: 0a 0a 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74  ..  do_test 5.$t
1060: 6e 2e 39 20 7b 20 0a 20 20 20 20 6c 69 73 74 20  n.9 { .    list 
1070: 5b 63 61 74 63 68 20 7b 73 71 6c 69 74 65 33 64  [catch {sqlite3d
1080: 65 6d 6f 5f 73 75 70 65 72 6c 6f 63 6b 20 75 6e  emo_superlock un
1090: 6c 6f 63 6b 20 74 65 73 74 2e 64 62 7d 20 6d 73  lock test.db} ms
10a0: 67 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 31 20 7b  g] $msg.  } {1 {
10b0: 64 61 74 61 62 61 73 65 20 69 73 20 6c 6f 63 6b  database is lock
10c0: 65 64 7d 7d 0a 20 20 64 6f 5f 74 65 73 74 20 35  ed}}.  do_test 5
10d0: 2e 24 74 6e 2e 31 30 20 7b 20 0a 20 20 20 20 73  .$tn.10 { .    s
10e0: 71 6c 31 20 43 4f 4d 4d 49 54 0a 20 20 20 20 6c  ql1 COMMIT.    l
10f0: 69 73 74 20 5b 63 61 74 63 68 20 7b 73 71 6c 69  ist [catch {sqli
1100: 74 65 33 64 65 6d 6f 5f 73 75 70 65 72 6c 6f 63  te3demo_superloc
1110: 6b 20 75 6e 6c 6f 63 6b 20 74 65 73 74 2e 64 62  k unlock test.db
1120: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 20 7d 20  } msg] $msg.  } 
1130: 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20  {1 {database is 
1140: 6c 6f 63 6b 65 64 7d 7d 0a 20 20 64 6f 5f 74 65  locked}}.  do_te
1150: 73 74 20 35 2e 24 74 6e 2e 31 31 20 7b 20 0a 20  st 5.$tn.11 { . 
1160: 20 20 20 73 71 6c 32 20 43 4f 4d 4d 49 54 0a 20     sql2 COMMIT. 
1170: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b     list [catch {
1180: 73 71 6c 69 74 65 33 64 65 6d 6f 5f 73 75 70 65  sqlite3demo_supe
1190: 72 6c 6f 63 6b 20 75 6e 6c 6f 63 6b 20 74 65 73  rlock unlock tes
11a0: 74 2e 64 62 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  t.db} msg] $msg.
11b0: 20 20 7d 20 7b 31 20 7b 64 61 74 61 62 61 73 65    } {1 {database
11c0: 20 69 73 20 6c 6f 63 6b 65 64 7d 7d 0a 20 20 64   is locked}}.  d
11d0: 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e 31 32 20  o_test 5.$tn.12 
11e0: 7b 20 0a 20 20 20 20 73 71 6c 33 20 43 4f 4d 4d  { .    sql3 COMM
11f0: 49 54 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74  IT.    list [cat
1200: 63 68 20 7b 73 71 6c 69 74 65 33 64 65 6d 6f 5f  ch {sqlite3demo_
1210: 73 75 70 65 72 6c 6f 63 6b 20 75 6e 6c 6f 63 6b  superlock unlock
1220: 20 74 65 73 74 2e 64 62 7d 20 6d 73 67 5d 20 24   test.db} msg] $
1230: 6d 73 67 0a 20 20 7d 20 7b 30 20 75 6e 6c 6f 63  msg.  } {0 unloc
1240: 6b 7d 0a 20 20 75 6e 6c 6f 63 6b 0a 0a 0a 20 20  k}.  unlock...  
1250: 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e 31 33  do_test 5.$tn.13
1260: 20 7b 20 73 71 6c 31 20 7b 20 53 45 4c 45 43 54   { sql1 { SELECT
1270: 20 2a 20 46 52 4f 4d 20 74 31 20 7d 20 7d 20 7b   * FROM t1 } } {
1280: 31 20 32 20 33 20 34 20 35 20 36 7d 0a 20 20 64  1 2 3 4 5 6}.  d
1290: 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e 31 34 20  o_test 5.$tn.14 
12a0: 7b 20 73 71 6c 32 20 7b 20 53 45 4c 45 43 54 20  { sql2 { SELECT 
12b0: 2a 20 46 52 4f 4d 20 74 31 20 7d 20 7d 20 7b 31  * FROM t1 } } {1
12c0: 20 32 20 33 20 34 20 35 20 36 7d 0a 20 20 64 6f   2 3 4 5 6}.  do
12d0: 5f 74 65 73 74 20 35 2e 24 74 6e 2e 31 35 20 7b  _test 5.$tn.15 {
12e0: 20 73 71 6c 69 74 65 33 64 65 6d 6f 5f 73 75 70   sqlite3demo_sup
12f0: 65 72 6c 6f 63 6b 20 75 6e 6c 6f 63 6b 20 74 65  erlock unlock te
1300: 73 74 2e 64 62 20 7d 20 7b 75 6e 6c 6f 63 6b 7d  st.db } {unlock}
1310: 0a 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e  .  do_test 5.$tn
1320: 2e 31 36 20 7b 20 75 6e 6c 6f 63 6b 20 7d 20 7b  .16 { unlock } {
1330: 7d 0a 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74  }.  do_test 5.$t
1340: 6e 2e 31 37 20 7b 20 73 71 6c 32 20 7b 20 53 45  n.17 { sql2 { SE
1350: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 7d  LECT * FROM t1 }
1360: 20 7d 20 7b 31 20 32 20 33 20 34 20 35 20 36 7d   } {1 2 3 4 5 6}
1370: 0a 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e  .  do_test 5.$tn
1380: 2e 31 38 20 7b 20 73 71 6c 31 20 7b 20 53 45 4c  .18 { sql1 { SEL
1390: 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 7d 20  ECT * FROM t1 } 
13a0: 7d 20 7b 31 20 32 20 33 20 34 20 35 20 36 7d 0a  } {1 2 3 4 5 6}.
13b0: 20 20 64 6f 5f 74 65 73 74 20 35 2e 24 74 6e 2e    do_test 5.$tn.
13c0: 31 39 20 7b 20 73 71 6c 32 20 7b 20 53 45 4c 45  19 { sql2 { SELE
13d0: 43 54 20 2a 20 46 52 4f 4d 20 74 31 20 7d 20 7d  CT * FROM t1 } }
13e0: 20 7b 31 20 32 20 33 20 34 20 35 20 36 7d 0a 7d   {1 2 3 4 5 6}.}
13f0: 0a 0a 70 72 6f 63 20 72 65 61 64 5f 63 6f 6e 74  ..proc read_cont
1400: 65 6e 74 20 7b 66 69 6c 65 7d 20 7b 0a 20 20 69  ent {file} {.  i
1410: 66 20 7b 5b 66 69 6c 65 20 65 78 69 73 74 73 20  f {[file exists 
1420: 24 66 69 6c 65 5d 3d 3d 30 7d 20 7b 72 65 74 75  $file]==0} {retu
1430: 72 6e 20 22 22 7d 0a 20 20 73 65 74 20 66 64 20  rn ""}.  set fd 
1440: 5b 6f 70 65 6e 20 24 66 69 6c 65 5d 0a 20 20 66  [open $file].  f
1450: 63 6f 6e 66 69 67 75 72 65 20 24 66 64 20 2d 65  configure $fd -e
1460: 6e 63 6f 64 69 6e 67 20 62 69 6e 61 72 79 20 2d  ncoding binary -
1470: 74 72 61 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61  translation bina
1480: 72 79 0a 20 20 73 65 74 20 63 6f 6e 74 65 6e 74  ry.  set content
1490: 20 5b 72 65 61 64 20 24 66 64 5d 0a 20 20 63 6c   [read $fd].  cl
14a0: 6f 73 65 20 24 66 64 0a 20 20 72 65 74 75 72 6e  ose $fd.  return
14b0: 20 24 63 6f 6e 74 65 6e 74 0a 7d 0a 0a 70 72 6f   $content.}..pro
14c0: 63 20 77 72 69 74 65 5f 63 6f 6e 74 65 6e 74 20  c write_content 
14d0: 7b 66 69 6c 65 20 63 6f 6e 74 65 6e 74 7d 20 7b  {file content} {
14e0: 0a 20 20 73 65 74 20 66 64 20 5b 6f 70 65 6e 20  .  set fd [open 
14f0: 24 66 69 6c 65 20 77 2b 5d 0a 20 20 66 63 6f 6e  $file w+].  fcon
1500: 66 69 67 75 72 65 20 24 66 64 20 2d 65 6e 63 6f  figure $fd -enco
1510: 64 69 6e 67 20 62 69 6e 61 72 79 20 2d 74 72 61  ding binary -tra
1520: 6e 73 6c 61 74 69 6f 6e 20 62 69 6e 61 72 79 0a  nslation binary.
1530: 20 20 70 75 74 73 20 2d 6e 6f 6e 65 77 6c 69 6e    puts -nonewlin
1540: 65 20 24 66 64 20 24 63 6f 6e 74 65 6e 74 0a 20  e $fd $content. 
1550: 20 63 6c 6f 73 65 20 24 66 64 0a 7d 0a 0a 23 20   close $fd.}..# 
1560: 42 6f 74 68 20 24 66 69 6c 65 31 20 61 6e 64 20  Both $file1 and 
1570: 24 66 69 6c 65 32 20 61 72 65 20 64 61 74 61 62  $file2 are datab
1580: 61 73 65 20 66 69 6c 65 73 2e 20 54 68 69 73 20  ase files. This 
1590: 66 75 6e 63 74 69 6f 6e 20 74 61 6b 65 73 20 61  function takes a
15a0: 20 0a 23 20 73 75 70 65 72 6c 6f 63 6b 20 6f 6e   .# superlock on
15b0: 20 65 61 63 68 2c 20 74 68 65 6e 20 65 78 63 68   each, then exch
15c0: 61 6e 67 65 73 20 74 68 65 20 63 6f 6e 74 65 6e  anges the conten
15d0: 74 20 6f 66 20 74 68 65 20 74 77 6f 20 66 69 6c  t of the two fil
15e0: 65 73 20 28 69 2e 65 2e 0a 23 20 6f 76 65 72 77  es (i.e..# overw
15f0: 72 69 74 65 73 20 24 66 69 6c 65 31 20 77 69 74  rites $file1 wit
1600: 68 20 74 68 65 20 69 6e 69 74 69 61 6c 20 63 6f  h the initial co
1610: 6e 74 65 6e 74 73 20 6f 66 20 24 66 69 6c 65 32  ntents of $file2
1620: 2c 20 61 6e 64 20 6f 76 65 72 77 72 69 74 65 73  , and overwrites
1630: 0a 23 20 24 66 69 6c 65 32 20 77 69 74 68 20 74  .# $file2 with t
1640: 68 65 20 69 6e 69 74 69 61 6c 20 63 6f 6e 74 65  he initial conte
1650: 6e 74 73 20 6f 66 20 24 66 69 6c 65 31 29 2e 20  nts of $file1). 
1660: 54 68 65 20 63 6f 6e 74 65 6e 74 73 20 6f 66 20  The contents of 
1670: 61 6e 79 20 57 41 4c 20 0a 23 20 66 69 6c 65 20  any WAL .# file 
1680: 69 73 20 61 6c 73 6f 20 65 78 63 68 61 6e 67 65  is also exchange
1690: 64 2e 0a 23 0a 70 72 6f 63 20 64 62 5f 73 77 61  d..#.proc db_swa
16a0: 70 20 7b 66 69 6c 65 31 20 66 69 6c 65 32 7d 20  p {file1 file2} 
16b0: 7b 0a 20 20 73 71 6c 69 74 65 33 64 65 6d 6f 5f  {.  sqlite3demo_
16c0: 73 75 70 65 72 6c 6f 63 6b 20 75 6e 6c 6f 63 6b  superlock unlock
16d0: 31 20 24 66 69 6c 65 31 0a 20 20 73 71 6c 69 74  1 $file1.  sqlit
16e0: 65 33 64 65 6d 6f 5f 73 75 70 65 72 6c 6f 63 6b  e3demo_superlock
16f0: 20 75 6e 6c 6f 63 6b 32 20 24 66 69 6c 65 32 0a   unlock2 $file2.
1700: 0a 20 20 73 65 74 20 64 62 31 20 5b 72 65 61 64  .  set db1 [read
1710: 5f 63 6f 6e 74 65 6e 74 20 24 66 69 6c 65 31 5d  _content $file1]
1720: 0a 20 20 73 65 74 20 64 62 32 20 5b 72 65 61 64  .  set db2 [read
1730: 5f 63 6f 6e 74 65 6e 74 20 24 66 69 6c 65 32 5d  _content $file2]
1740: 0a 20 20 77 72 69 74 65 5f 63 6f 6e 74 65 6e 74  .  write_content
1750: 20 24 66 69 6c 65 31 20 24 64 62 32 0a 20 20 77   $file1 $db2.  w
1760: 72 69 74 65 5f 63 6f 6e 74 65 6e 74 20 24 66 69  rite_content $fi
1770: 6c 65 32 20 24 64 62 31 0a 0a 20 20 73 65 74 20  le2 $db1..  set 
1780: 77 61 6c 31 20 5b 72 65 61 64 5f 63 6f 6e 74 65  wal1 [read_conte
1790: 6e 74 20 24 7b 66 69 6c 65 31 7d 2d 77 61 6c 5d  nt ${file1}-wal]
17a0: 0a 20 20 73 65 74 20 77 61 6c 32 20 5b 72 65 61  .  set wal2 [rea
17b0: 64 5f 63 6f 6e 74 65 6e 74 20 24 7b 66 69 6c 65  d_content ${file
17c0: 32 7d 2d 77 61 6c 5d 0a 20 20 77 72 69 74 65 5f  2}-wal].  write_
17d0: 63 6f 6e 74 65 6e 74 20 24 7b 66 69 6c 65 31 7d  content ${file1}
17e0: 2d 77 61 6c 20 24 77 61 6c 32 0a 20 20 77 72 69  -wal $wal2.  wri
17f0: 74 65 5f 63 6f 6e 74 65 6e 74 20 24 7b 66 69 6c  te_content ${fil
1800: 65 32 7d 2d 77 61 6c 20 24 77 61 6c 31 0a 0a 20  e2}-wal $wal1.. 
1810: 20 75 6e 6c 6f 63 6b 31 0a 20 20 75 6e 6c 6f 63   unlock1.  unloc
1820: 6b 32 0a 7d 0a 0a 66 6f 72 63 65 64 65 6c 65 74  k2.}..forcedelet
1830: 65 20 74 65 73 74 2e 64 62 0a 73 71 6c 69 74 65  e test.db.sqlite
1840: 33 20 64 62 20 20 74 65 73 74 2e 64 62 0a 64 6f  3 db  test.db.do
1850: 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 36 2e  _execsql_test 6.
1860: 31 20 7b 0a 20 20 41 54 54 41 43 48 20 27 74 65  1 {.  ATTACH 'te
1870: 73 74 2e 64 62 32 27 20 41 53 20 61 75 78 3b 0a  st.db2' AS aux;.
1880: 20 20 50 52 41 47 4d 41 20 61 75 78 2e 6a 6f 75    PRAGMA aux.jou
1890: 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61 6c 3b  rnal_mode = wal;
18a0: 0a 20 20 43 52 45 41 54 45 20 54 41 42 4c 45 20  .  CREATE TABLE 
18b0: 61 75 78 2e 74 32 28 78 2c 20 79 29 3b 0a 20 20  aux.t2(x, y);.  
18c0: 49 4e 53 45 52 54 20 49 4e 54 4f 20 61 75 78 2e  INSERT INTO aux.
18d0: 74 32 20 56 41 4c 55 45 53 28 27 61 27 2c 20 27  t2 VALUES('a', '
18e0: 62 27 29 3b 0a 20 20 50 52 41 47 4d 41 20 73 63  b');.  PRAGMA sc
18f0: 68 65 6d 61 5f 76 65 72 73 69 6f 6e 20 3d 20 34  hema_version = 4
1900: 35 30 3b 0a 20 20 44 45 54 41 43 48 20 61 75 78  50;.  DETACH aux
1910: 3b 0a 0a 20 20 50 52 41 47 4d 41 20 6d 61 69 6e  ;..  PRAGMA main
1920: 2e 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20  .journal_mode = 
1930: 77 61 6c 3b 0a 20 20 43 52 45 41 54 45 20 54 41  wal;.  CREATE TA
1940: 42 4c 45 20 74 31 28 61 2c 20 62 29 3b 0a 20 20  BLE t1(a, b);.  
1950: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
1960: 41 4c 55 45 53 28 31 2c 20 32 29 3b 0a 20 20 49  ALUES(1, 2);.  I
1970: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
1980: 4c 55 45 53 28 33 2c 20 34 29 3b 0a 20 20 53 45  LUES(3, 4);.  SE
1990: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a  LECT * FROM t1;.
19a0: 7d 20 7b 77 61 6c 20 77 61 6c 20 31 20 32 20 33  } {wal wal 1 2 3
19b0: 20 34 7d 0a 0a 0a 64 62 5f 73 77 61 70 20 74 65   4}...db_swap te
19c0: 73 74 2e 64 62 32 20 74 65 73 74 2e 64 62 0a 64  st.db2 test.db.d
19d0: 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20  o_catchsql_test 
19e0: 36 2e 32 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  6.2 { SELECT * F
19f0: 52 4f 4d 20 74 31 20 7d 20 7b 31 20 7b 6e 6f 20  ROM t1 } {1 {no 
1a00: 73 75 63 68 20 74 61 62 6c 65 3a 20 74 31 7d 7d  such table: t1}}
1a10: 0a 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73  .do_catchsql_tes
1a20: 74 20 36 2e 33 20 7b 20 53 45 4c 45 43 54 20 2a  t 6.3 { SELECT *
1a30: 20 46 52 4f 4d 20 74 32 20 7d 20 7b 30 20 7b 61   FROM t2 } {0 {a
1a40: 20 62 7d 7d 0a 0a 64 62 5f 73 77 61 70 20 74 65   b}}..db_swap te
1a50: 73 74 2e 64 62 32 20 74 65 73 74 2e 64 62 0a 64  st.db2 test.db.d
1a60: 6f 5f 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20  o_catchsql_test 
1a70: 36 2e 34 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  6.4 { SELECT * F
1a80: 52 4f 4d 20 74 31 20 7d 20 7b 30 20 7b 31 20 32  ROM t1 } {0 {1 2
1a90: 20 33 20 34 7d 7d 0a 64 6f 5f 63 61 74 63 68 73   3 4}}.do_catchs
1aa0: 71 6c 5f 74 65 73 74 20 36 2e 35 20 7b 20 53 45  ql_test 6.5 { SE
1ab0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32 20 7d  LECT * FROM t2 }
1ac0: 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20 74 61 62   {1 {no such tab
1ad0: 6c 65 3a 20 74 32 7d 7d 0a 0a 64 6f 5f 65 78 65  le: t2}}..do_exe
1ae0: 63 73 71 6c 5f 74 65 73 74 20 20 36 2e 36 20 7b  csql_test  6.6 {
1af0: 20 50 52 41 47 4d 41 20 77 61 6c 5f 63 68 65 63   PRAGMA wal_chec
1b00: 6b 70 6f 69 6e 74 20 7d 20 7b 30 20 30 20 30 7d  kpoint } {0 0 0}
1b10: 0a 0a 64 62 5f 73 77 61 70 20 74 65 73 74 2e 64  ..db_swap test.d
1b20: 62 32 20 74 65 73 74 2e 64 62 0a 64 6f 5f 63 61  b2 test.db.do_ca
1b30: 74 63 68 73 71 6c 5f 74 65 73 74 20 36 2e 37 20  tchsql_test 6.7 
1b40: 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20  { SELECT * FROM 
1b50: 74 31 20 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68  t1 } {1 {no such
1b60: 20 74 61 62 6c 65 3a 20 74 31 7d 7d 0a 64 6f 5f   table: t1}}.do_
1b70: 63 61 74 63 68 73 71 6c 5f 74 65 73 74 20 36 2e  catchsql_test 6.
1b80: 38 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f  8 { SELECT * FRO
1b90: 4d 20 74 32 20 7d 20 7b 30 20 7b 61 20 62 7d 7d  M t2 } {0 {a b}}
1ba0: 0a 0a 64 62 5f 73 77 61 70 20 74 65 73 74 2e 64  ..db_swap test.d
1bb0: 62 32 20 74 65 73 74 2e 64 62 0a 64 6f 5f 63 61  b2 test.db.do_ca
1bc0: 74 63 68 73 71 6c 5f 74 65 73 74 20 36 2e 39 20  tchsql_test 6.9 
1bd0: 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20  { SELECT * FROM 
1be0: 74 31 20 7d 20 7b 30 20 7b 31 20 32 20 33 20 34  t1 } {0 {1 2 3 4
1bf0: 7d 7d 0a 64 6f 5f 63 61 74 63 68 73 71 6c 5f 74  }}.do_catchsql_t
1c00: 65 73 74 20 36 2e 31 30 20 7b 20 53 45 4c 45 43  est 6.10 { SELEC
1c10: 54 20 2a 20 46 52 4f 4d 20 74 32 20 7d 20 7b 31  T * FROM t2 } {1
1c20: 20 7b 6e 6f 20 73 75 63 68 20 74 61 62 6c 65 3a   {no such table:
1c30: 20 74 32 7d 7d 0a 0a 64 6f 5f 65 78 65 63 73 71   t2}}..do_execsq
1c40: 6c 5f 74 65 73 74 20 20 36 2e 31 31 20 7b 20 0a  l_test  6.11 { .
1c50: 20 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c    PRAGMA journal
1c60: 5f 6d 6f 64 65 20 3d 20 64 65 6c 65 74 65 3b 0a  _mode = delete;.
1c70: 20 20 50 52 41 47 4d 41 20 70 61 67 65 5f 73 69    PRAGMA page_si
1c80: 7a 65 20 3d 20 35 31 32 3b 0a 20 20 56 41 43 55  ze = 512;.  VACU
1c90: 55 4d 3b 0a 20 20 50 52 41 47 4d 41 20 6a 6f 75  UM;.  PRAGMA jou
1ca0: 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61 6c 3b  rnal_mode = wal;
1cb0: 0a 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74  .  INSERT INTO t
1cc0: 31 20 56 41 4c 55 45 53 28 35 2c 20 36 29 3b 0a  1 VALUES(5, 6);.
1cd0: 7d 20 7b 64 65 6c 65 74 65 20 77 61 6c 7d 0a 0a  } {delete wal}..
1ce0: 64 62 5f 73 77 61 70 20 74 65 73 74 2e 64 62 32  db_swap test.db2
1cf0: 20 74 65 73 74 2e 64 62 0a 64 6f 5f 63 61 74 63   test.db.do_catc
1d00: 68 73 71 6c 5f 74 65 73 74 20 36 2e 31 32 20 7b  hsql_test 6.12 {
1d10: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
1d20: 31 20 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20  1 } {1 {no such 
1d30: 74 61 62 6c 65 3a 20 74 31 7d 7d 0a 64 6f 5f 63  table: t1}}.do_c
1d40: 61 74 63 68 73 71 6c 5f 74 65 73 74 20 36 2e 31  atchsql_test 6.1
1d50: 33 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f  3 { SELECT * FRO
1d60: 4d 20 74 32 20 7d 20 7b 30 20 7b 61 20 62 7d 7d  M t2 } {0 {a b}}
1d70: 0a 0a 64 62 5f 73 77 61 70 20 74 65 73 74 2e 64  ..db_swap test.d
1d80: 62 32 20 74 65 73 74 2e 64 62 0a 64 6f 5f 63 61  b2 test.db.do_ca
1d90: 74 63 68 73 71 6c 5f 74 65 73 74 20 36 2e 31 34  tchsql_test 6.14
1da0: 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d   { SELECT * FROM
1db0: 20 74 31 20 7d 20 7b 30 20 7b 31 20 32 20 33 20   t1 } {0 {1 2 3 
1dc0: 34 20 35 20 36 7d 7d 0a 64 6f 5f 63 61 74 63 68  4 5 6}}.do_catch
1dd0: 73 71 6c 5f 74 65 73 74 20 36 2e 31 35 20 7b 20  sql_test 6.15 { 
1de0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 32  SELECT * FROM t2
1df0: 20 7d 20 7b 31 20 7b 6e 6f 20 73 75 63 68 20 74   } {1 {no such t
1e00: 61 62 6c 65 3a 20 74 32 7d 7d 0a 0a 66 69 6e 69  able: t2}}..fini
1e10: 73 68 5f 74 65 73 74 0a                          sh_test.