/ Hex Artifact Content
Login

Artifact 85735bd997a4f6d710140c28fd860519a299649f:


0000: 23 20 32 30 31 35 20 44 65 63 65 6d 62 65 72 20  # 2015 December 
0010: 37 0a 23 0a 23 20 54 68 65 20 61 75 74 68 6f 72  7.#.# 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 20 54 68 69 73 20 66  *******.# This f
0170: 69 6c 65 20 69 6d 70 6c 65 6d 65 6e 74 73 20 72  ile implements r
0180: 65 67 72 65 73 73 69 6f 6e 20 74 65 73 74 73 20  egression tests 
0190: 66 6f 72 20 53 51 4c 69 74 65 20 6c 69 62 72 61  for SQLite libra
01a0: 72 79 2e 20 54 68 65 20 66 6f 63 75 73 0a 23 20  ry. The focus.# 
01b0: 6f 66 20 74 68 69 73 20 66 69 6c 65 20 69 73 20  of this file is 
01c0: 74 68 65 20 73 71 6c 69 74 65 33 5f 73 6e 61 70  the sqlite3_snap
01d0: 73 68 6f 74 5f 78 78 78 28 29 20 41 50 49 73 2e  shot_xxx() APIs.
01e0: 0a 23 0a 0a 73 65 74 20 74 65 73 74 64 69 72 20  .#..set testdir 
01f0: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 24 61  [file dirname $a
0200: 72 67 76 30 5d 0a 73 6f 75 72 63 65 20 24 74 65  rgv0].source $te
0210: 73 74 64 69 72 2f 74 65 73 74 65 72 2e 74 63 6c  stdir/tester.tcl
0220: 0a 69 66 63 61 70 61 62 6c 65 20 21 73 6e 61 70  .ifcapable !snap
0230: 73 68 6f 74 20 7b 66 69 6e 69 73 68 5f 74 65 73  shot {finish_tes
0240: 74 3b 20 72 65 74 75 72 6e 7d 0a 73 65 74 20 74  t; return}.set t
0250: 65 73 74 70 72 65 66 69 78 20 73 6e 61 70 73 68  estprefix snapsh
0260: 6f 74 0a 0a 23 20 54 68 69 73 20 74 65 73 74 20  ot..# This test 
0270: 64 6f 65 73 20 6e 6f 74 20 77 6f 72 6b 20 77 69  does not work wi
0280: 74 68 20 74 68 65 20 69 6e 6d 65 6d 6f 72 79 5f  th the inmemory_
0290: 6a 6f 75 72 6e 61 6c 20 70 65 72 6d 75 74 61 74  journal permutat
02a0: 69 6f 6e 2e 20 54 68 65 20 72 65 61 73 6f 6e 0a  ion. The reason.
02b0: 23 20 69 73 20 74 68 61 74 20 65 61 63 68 20 63  # is that each c
02c0: 6f 6e 6e 65 63 74 69 6f 6e 20 6f 70 65 6e 65 64  onnection opened
02d0: 20 61 73 20 70 61 72 74 20 6f 66 20 74 68 69 73   as part of this
02e0: 20 70 65 72 6d 75 74 61 74 69 6f 6e 20 65 78 65   permutation exe
02f0: 63 75 74 65 73 0a 23 20 22 50 52 41 47 4d 41 20  cutes.# "PRAGMA 
0300: 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 3d 6d 65 6d  journal_mode=mem
0310: 6f 72 79 22 2c 20 77 68 69 63 68 20 66 61 69 6c  ory", which fail
0320: 73 20 69 66 20 74 68 65 20 64 61 74 61 62 61 73  s if the databas
0330: 65 20 69 73 20 69 6e 20 77 61 6c 20 6d 6f 64 65  e is in wal mode
0340: 0a 23 20 61 6e 64 20 74 68 65 72 65 20 61 72 65  .# and there are
0350: 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 65 78 69   one or more exi
0360: 73 74 69 6e 67 20 63 6f 6e 6e 65 63 74 69 6f 6e  sting connection
0370: 73 2e 0a 69 66 20 7b 5b 70 65 72 6d 75 74 61 74  s..if {[permutat
0380: 69 6f 6e 5d 3d 3d 22 69 6e 6d 65 6d 6f 72 79 5f  ion]=="inmemory_
0390: 6a 6f 75 72 6e 61 6c 22 7d 20 7b 0a 20 20 66 69  journal"} {.  fi
03a0: 6e 69 73 68 5f 74 65 73 74 0a 20 20 72 65 74 75  nish_test.  retu
03b0: 72 6e 0a 7d 0a 0a 66 6f 72 65 61 63 68 20 7b 74  rn.}..foreach {t
03c0: 6e 20 74 63 6c 7d 20 7b 0a 20 20 31 20 7b 0a 20  n tcl} {.  1 {. 
03d0: 20 20 20 70 72 6f 63 20 73 6e 61 70 73 68 6f 74     proc snapshot
03e0: 5f 67 65 74 20 7b 44 42 20 44 42 4e 41 4d 45 7d  _get {DB DBNAME}
03f0: 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c   {.      uplevel
0400: 20 5b 6c 69 73 74 20 73 71 6c 69 74 65 33 5f 73   [list sqlite3_s
0410: 6e 61 70 73 68 6f 74 5f 67 65 74 20 24 44 42 20  napshot_get $DB 
0420: 24 44 42 4e 41 4d 45 5d 0a 20 20 20 20 7d 0a 20  $DBNAME].    }. 
0430: 20 20 20 70 72 6f 63 20 73 6e 61 70 73 68 6f 74     proc snapshot
0440: 5f 6f 70 65 6e 20 7b 44 42 20 44 42 4e 41 4d 45  _open {DB DBNAME
0450: 20 53 4e 41 50 53 48 4f 54 7d 20 7b 0a 20 20 20   SNAPSHOT} {.   
0460: 20 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74     uplevel [list
0470: 20 73 71 6c 69 74 65 33 5f 73 6e 61 70 73 68 6f   sqlite3_snapsho
0480: 74 5f 6f 70 65 6e 20 24 44 42 20 24 44 42 4e 41  t_open $DB $DBNA
0490: 4d 45 20 24 53 4e 41 50 53 48 4f 54 5d 0a 20 20  ME $SNAPSHOT].  
04a0: 20 20 7d 0a 20 20 20 20 70 72 6f 63 20 73 6e 61    }.    proc sna
04b0: 70 73 68 6f 74 5f 66 72 65 65 20 7b 53 4e 41 50  pshot_free {SNAP
04c0: 53 48 4f 54 7d 20 7b 0a 20 20 20 20 20 20 75 70  SHOT} {.      up
04d0: 6c 65 76 65 6c 20 5b 6c 69 73 74 20 73 71 6c 69  level [list sqli
04e0: 74 65 33 5f 73 6e 61 70 73 68 6f 74 5f 66 72 65  te3_snapshot_fre
04f0: 65 20 24 53 4e 41 50 53 48 4f 54 5d 0a 20 20 20  e $SNAPSHOT].   
0500: 20 7d 0a 20 20 20 20 70 72 6f 63 20 73 6e 61 70   }.    proc snap
0510: 73 68 6f 74 5f 63 6d 70 20 7b 53 4e 41 50 53 48  shot_cmp {SNAPSH
0520: 4f 54 31 20 53 4e 41 50 53 48 4f 54 32 7d 20 7b  OT1 SNAPSHOT2} {
0530: 0a 20 20 20 20 20 20 75 70 6c 65 76 65 6c 20 5b  .      uplevel [
0540: 6c 69 73 74 20 73 71 6c 69 74 65 33 5f 73 6e 61  list sqlite3_sna
0550: 70 73 68 6f 74 5f 63 6d 70 20 24 53 4e 41 50 53  pshot_cmp $SNAPS
0560: 48 4f 54 31 20 24 53 4e 41 50 53 48 4f 54 32 5d  HOT1 $SNAPSHOT2]
0570: 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a 20 20 32 20  .    }.  }..  2 
0580: 7b 0a 20 20 20 20 70 72 6f 63 20 73 6e 61 70 73  {.    proc snaps
0590: 68 6f 74 5f 67 65 74 20 7b 44 42 20 44 42 4e 41  hot_get {DB DBNA
05a0: 4d 45 7d 20 7b 0a 20 20 20 20 20 20 75 70 6c 65  ME} {.      uple
05b0: 76 65 6c 20 5b 6c 69 73 74 20 73 71 6c 69 74 65  vel [list sqlite
05c0: 33 5f 73 6e 61 70 73 68 6f 74 5f 67 65 74 5f 62  3_snapshot_get_b
05d0: 6c 6f 62 20 24 44 42 20 24 44 42 4e 41 4d 45 5d  lob $DB $DBNAME]
05e0: 0a 20 20 20 20 7d 0a 20 20 20 20 70 72 6f 63 20  .    }.    proc 
05f0: 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 20 7b 44  snapshot_open {D
0600: 42 20 44 42 4e 41 4d 45 20 53 4e 41 50 53 48 4f  B DBNAME SNAPSHO
0610: 54 7d 20 7b 0a 20 20 20 20 20 20 75 70 6c 65 76  T} {.      uplev
0620: 65 6c 20 5b 6c 69 73 74 20 73 71 6c 69 74 65 33  el [list sqlite3
0630: 5f 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 5f 62  _snapshot_open_b
0640: 6c 6f 62 20 24 44 42 20 24 44 42 4e 41 4d 45 20  lob $DB $DBNAME 
0650: 24 53 4e 41 50 53 48 4f 54 5d 0a 20 20 20 20 7d  $SNAPSHOT].    }
0660: 0a 20 20 20 20 70 72 6f 63 20 73 6e 61 70 73 68  .    proc snapsh
0670: 6f 74 5f 66 72 65 65 20 7b 53 4e 41 50 53 48 4f  ot_free {SNAPSHO
0680: 54 7d 20 7b 0a 20 20 20 20 7d 0a 20 20 20 20 70  T} {.    }.    p
0690: 72 6f 63 20 73 6e 61 70 73 68 6f 74 5f 63 6d 70  roc snapshot_cmp
06a0: 20 7b 53 4e 41 50 53 48 4f 54 31 20 53 4e 41 50   {SNAPSHOT1 SNAP
06b0: 53 48 4f 54 32 7d 20 7b 0a 20 20 20 20 20 20 75  SHOT2} {.      u
06c0: 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 73 71 6c  plevel [list sql
06d0: 69 74 65 33 5f 73 6e 61 70 73 68 6f 74 5f 63 6d  ite3_snapshot_cm
06e0: 70 5f 62 6c 6f 62 20 24 53 4e 41 50 53 48 4f 54  p_blob $SNAPSHOT
06f0: 31 20 24 53 4e 41 50 53 48 4f 54 32 5d 0a 20 20  1 $SNAPSHOT2].  
0700: 20 20 7d 0a 20 20 7d 0a 7d 20 7b 0a 0a 20 20 72    }.  }.} {..  r
0710: 65 73 65 74 5f 64 62 0a 20 20 65 76 61 6c 20 24  eset_db.  eval $
0720: 74 63 6c 0a 0a 20 20 23 2d 2d 2d 2d 2d 2d 2d 2d  tcl..  #--------
0730: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0740: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0750: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0760: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0770: 2d 0a 20 20 23 20 43 68 65 63 6b 20 73 6f 6d 65  -.  # Check some
0780: 20 65 72 72 6f 72 20 63 6f 6e 64 69 74 69 6f 6e   error condition
0790: 73 20 69 6e 20 73 6e 61 70 73 68 6f 74 5f 67 65  s in snapshot_ge
07a0: 74 28 29 2e 20 49 74 20 69 73 20 61 6e 20 65 72  t(). It is an er
07b0: 72 6f 72 20 69 66 3a 0a 20 20 23 0a 20 20 23 20  ror if:.  #.  # 
07c0: 20 31 29 20 73 6e 61 70 73 68 6f 74 5f 67 65 74   1) snapshot_get
07d0: 28 29 20 69 73 20 63 61 6c 6c 65 64 20 6f 6e 20  () is called on 
07e0: 61 20 6e 6f 6e 2d 57 41 4c 20 64 61 74 61 62 61  a non-WAL databa
07f0: 73 65 2c 20 6f 72 0a 20 20 23 20 20 32 29 20 74  se, or.  #  2) t
0800: 68 65 72 65 20 69 73 20 61 6e 20 6f 70 65 6e 20  here is an open 
0810: 77 72 69 74 65 20 74 72 61 6e 73 61 63 74 69 6f  write transactio
0820: 6e 20 6f 6e 20 74 68 65 20 64 61 74 61 62 61 73  n on the databas
0830: 65 2e 0a 20 20 23 20 20 33 29 20 74 68 65 20 64  e..  #  3) the d
0840: 61 74 61 62 61 73 65 20 68 61 6e 64 6c 65 20 69  atabase handle i
0850: 73 20 69 6e 20 61 75 74 6f 2d 63 6f 6d 6d 69 74  s in auto-commit
0860: 20 6d 6f 64 65 0a 20 20 23 0a 20 20 64 6f 5f 65   mode.  #.  do_e
0870: 78 65 63 73 71 6c 5f 74 65 73 74 20 24 74 6e 2e  xecsql_test $tn.
0880: 31 2e 30 20 7b 0a 20 20 20 20 43 52 45 41 54 45  1.0 {.    CREATE
0890: 20 54 41 42 4c 45 20 74 31 28 61 2c 20 62 29 3b   TABLE t1(a, b);
08a0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
08b0: 20 74 31 20 56 41 4c 55 45 53 28 31 2c 20 32 29   t1 VALUES(1, 2)
08c0: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
08d0: 4f 20 74 31 20 56 41 4c 55 45 53 28 33 2c 20 34  O t1 VALUES(3, 4
08e0: 29 3b 0a 20 20 7d 0a 0a 20 20 64 6f 5f 74 65 73  );.  }..  do_tes
08f0: 74 20 24 74 6e 2e 31 2e 31 2e 31 20 7b 0a 20 20  t $tn.1.1.1 {.  
0900: 20 20 65 78 65 63 73 71 6c 20 7b 20 42 45 47 49    execsql { BEGI
0910: 4e 3b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d  N; SELECT * FROM
0920: 20 74 31 3b 20 7d 0a 20 20 20 20 6c 69 73 74 20   t1; }.    list 
0930: 5b 63 61 74 63 68 20 7b 20 73 6e 61 70 73 68 6f  [catch { snapsho
0940: 74 5f 67 65 74 20 64 62 20 6d 61 69 6e 20 7d 20  t_get db main } 
0950: 6d 73 67 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 31  msg] $msg.  } {1
0960: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 7d 0a 20   SQLITE_ERROR}. 
0970: 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74   do_execsql_test
0980: 20 24 74 6e 2e 31 2e 31 2e 32 20 43 4f 4d 4d 49   $tn.1.1.2 COMMI
0990: 54 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e  T..  do_test $tn
09a0: 2e 31 2e 32 2e 31 20 7b 0a 20 20 20 20 65 78 65  .1.2.1 {.    exe
09b0: 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 50 52 41  csql {.      PRA
09c0: 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65  GMA journal_mode
09d0: 20 3d 20 57 41 4c 3b 0a 20 20 20 20 20 20 42 45   = WAL;.      BE
09e0: 47 49 4e 3b 0a 20 20 20 20 20 20 20 20 49 4e 53  GIN;.        INS
09f0: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
0a00: 45 53 28 35 2c 20 36 29 3b 0a 20 20 20 20 20 20  ES(5, 6);.      
0a10: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
0a20: 20 56 41 4c 55 45 53 28 37 2c 20 38 29 3b 0a 20   VALUES(7, 8);. 
0a30: 20 20 20 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63     }.    list [c
0a40: 61 74 63 68 20 7b 20 73 6e 61 70 73 68 6f 74 5f  atch { snapshot_
0a50: 67 65 74 20 64 62 20 6d 61 69 6e 20 7d 20 6d 73  get db main } ms
0a60: 67 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 31 20 53  g] $msg.  } {1 S
0a70: 51 4c 49 54 45 5f 45 52 52 4f 52 7d 0a 20 20 64  QLITE_ERROR}.  d
0a80: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 24  o_execsql_test $
0a90: 74 6e 2e 31 2e 32 2e 32 20 43 4f 4d 4d 49 54 0a  tn.1.2.2 COMMIT.
0aa0: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 31  .  do_test $tn.1
0ab0: 2e 33 2e 31 20 7b 0a 20 20 20 20 6c 69 73 74 20  .3.1 {.    list 
0ac0: 5b 63 61 74 63 68 20 7b 20 73 6e 61 70 73 68 6f  [catch { snapsho
0ad0: 74 5f 67 65 74 20 64 62 20 6d 61 69 6e 20 7d 20  t_get db main } 
0ae0: 6d 73 67 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 31  msg] $msg.  } {1
0af0: 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 7d 0a 20   SQLITE_ERROR}. 
0b00: 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 31 2e 33   do_test $tn.1.3
0b10: 2e 32 20 7b 0a 20 20 20 20 64 62 20 74 72 61 6e  .2 {.    db tran
0b20: 73 20 7b 20 73 65 74 20 73 6e 61 70 20 5b 73 6e  s { set snap [sn
0b30: 61 70 73 68 6f 74 5f 67 65 74 20 64 62 20 6d 61  apshot_get db ma
0b40: 69 6e 5d 20 7d 0a 20 20 20 20 73 6e 61 70 73 68  in] }.    snapsh
0b50: 6f 74 5f 66 72 65 65 20 24 73 6e 61 70 0a 20 20  ot_free $snap.  
0b60: 7d 20 7b 7d 0a 0a 20 20 23 2d 2d 2d 2d 2d 2d 2d  } {}..  #-------
0b70: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0b80: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0b90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0ba0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
0bb0: 2d 2d 0a 20 20 23 20 43 68 65 63 6b 20 74 68 61  --.  # Check tha
0bc0: 74 20 61 20 73 69 6d 70 6c 65 20 63 61 73 65 20  t a simple case 
0bd0: 77 6f 72 6b 73 2e 20 52 65 75 73 65 20 74 68 65  works. Reuse the
0be0: 20 64 61 74 61 62 61 73 65 20 63 72 65 61 74 65   database create
0bf0: 64 20 62 79 20 74 68 65 0a 20 20 23 20 62 6c 6f  d by the.  # blo
0c00: 63 6b 20 6f 66 20 74 65 73 74 73 20 61 62 6f 76  ck of tests abov
0c10: 65 2e 0a 20 20 23 0a 20 20 64 6f 5f 65 78 65 63  e..  #.  do_exec
0c20: 73 71 6c 5f 74 65 73 74 20 24 74 6e 2e 32 2e 31  sql_test $tn.2.1
0c30: 2e 30 20 7b 0a 20 20 20 20 42 45 47 49 4e 3b 0a  .0 {.    BEGIN;.
0c40: 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46        SELECT * F
0c50: 52 4f 4d 20 74 31 3b 0a 20 20 7d 20 7b 31 20 32  ROM t1;.  } {1 2
0c60: 20 33 20 34 20 35 20 36 20 37 20 38 7d 0a 0a 20   3 4 5 6 7 8}.. 
0c70: 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 32 2e 31   do_test $tn.2.1
0c80: 2e 31 20 7b 0a 20 20 20 20 73 65 74 20 73 6e 61  .1 {.    set sna
0c90: 70 73 68 6f 74 20 5b 73 6e 61 70 73 68 6f 74 5f  pshot [snapshot_
0ca0: 67 65 74 20 64 62 20 6d 61 69 6e 5d 0a 20 20 20  get db main].   
0cb0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
0cc0: 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 20 20 49   COMMIT;.      I
0cd0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0ce0: 4c 55 45 53 28 39 2c 20 31 30 29 3b 0a 20 20 20  LUES(9, 10);.   
0cf0: 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d     SELECT * FROM
0d00: 20 74 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b   t1;.    }.  } {
0d10: 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20  1 2 3 4 5 6 7 8 
0d20: 39 20 31 30 7d 0a 0a 20 20 64 6f 5f 74 65 73 74  9 10}..  do_test
0d30: 20 24 74 6e 2e 32 2e 31 2e 32 20 7b 0a 20 20 20   $tn.2.1.2 {.   
0d40: 20 65 78 65 63 73 71 6c 20 42 45 47 49 4e 0a 20   execsql BEGIN. 
0d50: 20 20 20 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e     snapshot_open
0d60: 20 64 62 20 6d 61 69 6e 20 24 73 6e 61 70 73 68   db main $snapsh
0d70: 6f 74 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b  ot.    execsql {
0d80: 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20  .      SELECT * 
0d90: 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20 7d 0a 20  FROM t1;.    }. 
0da0: 20 7d 20 7b 31 20 32 20 33 20 34 20 35 20 36 20   } {1 2 3 4 5 6 
0db0: 37 20 38 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20  7 8}..  do_test 
0dc0: 24 74 6e 2e 32 2e 31 2e 33 20 7b 0a 20 20 20 20  $tn.2.1.3 {.    
0dd0: 73 6e 61 70 73 68 6f 74 5f 66 72 65 65 20 24 73  snapshot_free $s
0de0: 6e 61 70 73 68 6f 74 0a 20 20 20 20 65 78 65 63  napshot.    exec
0df0: 73 71 6c 20 43 4f 4d 4d 49 54 0a 20 20 7d 20 7b  sql COMMIT.  } {
0e00: 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e  }..  do_test $tn
0e10: 2e 32 2e 32 2e 30 20 7b 0a 20 20 20 20 73 71 6c  .2.2.0 {.    sql
0e20: 69 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62  ite3 db2 test.db
0e30: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  .    execsql {. 
0e40: 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20       BEGIN;.    
0e50: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
0e60: 4d 20 74 31 3b 0a 20 20 20 20 7d 20 64 62 32 0a  M t1;.    } db2.
0e70: 20 20 7d 20 7b 31 20 32 20 33 20 34 20 35 20 36    } {1 2 3 4 5 6
0e80: 20 37 20 38 20 39 20 31 30 7d 0a 0a 20 20 64 6f   7 8 9 10}..  do
0e90: 5f 74 65 73 74 20 24 74 6e 2e 32 2e 32 2e 31 20  _test $tn.2.2.1 
0ea0: 7b 0a 20 20 20 20 73 65 74 20 73 6e 61 70 73 68  {.    set snapsh
0eb0: 6f 74 20 5b 73 6e 61 70 73 68 6f 74 5f 67 65 74  ot [snapshot_get
0ec0: 20 64 62 32 20 6d 61 69 6e 5d 0a 20 20 20 20 65   db2 main].    e
0ed0: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 49  xecsql {.      I
0ee0: 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41  NSERT INTO t1 VA
0ef0: 4c 55 45 53 28 31 31 2c 20 31 32 29 3b 0a 20 20  LUES(11, 12);.  
0f00: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
0f10: 4d 20 74 31 3b 0a 20 20 20 20 7d 0a 20 20 7d 20  M t1;.    }.  } 
0f20: 7b 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38  {1 2 3 4 5 6 7 8
0f30: 20 39 20 31 30 20 31 31 20 31 32 7d 0a 0a 20 20   9 10 11 12}..  
0f40: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 32 2e 32 2e  do_test $tn.2.2.
0f50: 32 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  2 {.    execsql 
0f60: 42 45 47 49 4e 0a 20 20 20 20 73 6e 61 70 73 68  BEGIN.    snapsh
0f70: 6f 74 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20  ot_open db main 
0f80: 24 73 6e 61 70 73 68 6f 74 0a 20 20 20 20 65 78  $snapshot.    ex
0f90: 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 53 45  ecsql {.      SE
0fa0: 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 31 3b 0a  LECT * FROM t1;.
0fb0: 20 20 20 20 7d 0a 20 20 7d 20 7b 31 20 32 20 33      }.  } {1 2 3
0fc0: 20 34 20 35 20 36 20 37 20 38 20 39 20 31 30 7d   4 5 6 7 8 9 10}
0fd0: 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e  ..  do_test $tn.
0fe0: 32 2e 32 2e 33 20 7b 0a 20 20 20 20 73 6e 61 70  2.2.3 {.    snap
0ff0: 73 68 6f 74 5f 66 72 65 65 20 24 73 6e 61 70 73  shot_free $snaps
1000: 68 6f 74 0a 20 20 20 20 65 78 65 63 73 71 6c 20  hot.    execsql 
1010: 43 4f 4d 4d 49 54 0a 20 20 20 20 65 78 65 63 73  COMMIT.    execs
1020: 71 6c 20 43 4f 4d 4d 49 54 20 64 62 32 0a 20 20  ql COMMIT db2.  
1030: 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 7d 20    db2 close.  } 
1040: 7b 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74  {}..  do_test $t
1050: 6e 2e 32 2e 33 2e 31 20 7b 0a 20 20 20 20 65 78  n.2.3.1 {.    ex
1060: 65 63 73 71 6c 20 7b 20 44 45 4c 45 54 45 20 46  ecsql { DELETE F
1070: 52 4f 4d 20 74 31 20 57 48 45 52 45 20 61 3e 36  ROM t1 WHERE a>6
1080: 20 7d 0a 20 20 20 20 64 62 20 74 72 61 6e 73 20   }.    db trans 
1090: 7b 20 73 65 74 20 73 6e 61 70 73 68 6f 74 20 5b  { set snapshot [
10a0: 73 6e 61 70 73 68 6f 74 5f 67 65 74 20 64 62 20  snapshot_get db 
10b0: 6d 61 69 6e 5d 20 7d 0a 20 20 20 20 65 78 65 63  main] }.    exec
10c0: 73 71 6c 20 7b 0a 20 20 20 20 20 20 49 4e 53 45  sql {.      INSE
10d0: 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45  RT INTO t1 VALUE
10e0: 53 28 27 61 27 2c 20 27 62 27 29 3b 0a 20 20 20  S('a', 'b');.   
10f0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74     INSERT INTO t
1100: 31 20 56 41 4c 55 45 53 28 27 63 27 2c 20 27 64  1 VALUES('c', 'd
1110: 27 29 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54  ');.      SELECT
1120: 20 2a 20 46 52 4f 4d 20 74 31 3b 0a 20 20 20 20   * FROM t1;.    
1130: 7d 0a 20 20 7d 20 7b 31 20 32 20 33 20 34 20 35  }.  } {1 2 3 4 5
1140: 20 36 20 61 20 62 20 63 20 64 7d 0a 20 20 64 6f   6 a b c d}.  do
1150: 5f 74 65 73 74 20 24 74 6e 2e 32 2e 33 2e 32 20  _test $tn.2.3.2 
1160: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 42 45  {.    execsql BE
1170: 47 49 4e 0a 20 20 20 20 73 6e 61 70 73 68 6f 74  GIN.    snapshot
1180: 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20 24 73  _open db main $s
1190: 6e 61 70 73 68 6f 74 0a 20 20 20 20 65 78 65 63  napshot.    exec
11a0: 73 71 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  sql { SELECT * F
11b0: 52 4f 4d 20 74 31 20 7d 0a 20 20 7d 20 7b 31 20  ROM t1 }.  } {1 
11c0: 32 20 33 20 34 20 35 20 36 7d 0a 0a 20 20 64 6f  2 3 4 5 6}..  do
11d0: 5f 74 65 73 74 20 24 74 6e 2e 32 2e 33 2e 33 20  _test $tn.2.3.3 
11e0: 7b 0a 20 20 20 20 63 61 74 63 68 73 71 6c 20 7b  {.    catchsql {
11f0: 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .      INSERT IN
1200: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 27 78 27  TO t1 VALUES('x'
1210: 2c 27 79 27 29 0a 20 20 20 20 7d 0a 20 20 7d 20  ,'y').    }.  } 
1220: 7b 31 20 7b 64 61 74 61 62 61 73 65 20 69 73 20  {1 {database is 
1230: 6c 6f 63 6b 65 64 7d 7d 0a 20 20 64 6f 5f 74 65  locked}}.  do_te
1240: 73 74 20 24 74 6e 2e 32 2e 33 2e 34 20 7b 0a 20  st $tn.2.3.4 {. 
1250: 20 20 20 65 78 65 63 73 71 6c 20 43 4f 4d 4d 49     execsql COMMI
1260: 54 0a 20 20 20 20 73 6e 61 70 73 68 6f 74 5f 66  T.    snapshot_f
1270: 72 65 65 20 24 73 6e 61 70 73 68 6f 74 0a 20 20  ree $snapshot.  
1280: 7d 20 7b 7d 0a 0a 20 20 23 2d 2d 2d 2d 2d 2d 2d  } {}..  #-------
1290: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12c0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
12d0: 2d 2d 0a 20 20 23 20 43 68 65 63 6b 20 73 6f 6d  --.  # Check som
12e0: 65 20 65 72 72 6f 72 73 20 69 6e 20 73 6e 61 70  e errors in snap
12f0: 73 68 6f 74 5f 6f 70 65 6e 28 29 2e 20 49 74 20  shot_open(). It 
1300: 69 73 20 61 6e 20 65 72 72 6f 72 20 69 66 3a 0a  is an error if:.
1310: 20 20 23 0a 20 20 23 20 20 20 31 29 20 74 68 65    #.  #   1) the
1320: 20 64 62 20 69 73 20 69 6e 20 61 75 74 6f 2d 63   db is in auto-c
1330: 6f 6d 6d 69 74 20 6d 6f 64 65 2c 0a 20 20 23 20  ommit mode,.  # 
1340: 20 20 32 29 20 74 68 65 20 64 62 20 68 61 73 20    2) the db has 
1350: 61 6e 20 6f 70 65 6e 20 28 72 65 61 64 20 6f 72  an open (read or
1360: 20 77 72 69 74 65 29 20 74 72 61 6e 73 61 63 74   write) transact
1370: 69 6f 6e 2c 0a 20 20 23 20 20 20 33 29 20 74 68  ion,.  #   3) th
1380: 65 20 64 62 20 69 73 20 6e 6f 74 20 61 20 77 61  e db is not a wa
1390: 6c 20 64 61 74 61 62 61 73 65 2c 0a 20 20 23 0a  l database,.  #.
13a0: 20 20 23 20 52 65 75 73 65 20 74 68 65 20 64 61    # Reuse the da
13b0: 74 61 62 61 73 65 20 63 72 65 61 74 65 64 20 62  tabase created b
13c0: 79 20 65 61 72 6c 69 65 72 20 74 65 73 74 73 2e  y earlier tests.
13d0: 0a 20 20 23 0a 20 20 64 6f 5f 65 78 65 63 73 71  .  #.  do_execsq
13e0: 6c 5f 74 65 73 74 20 24 74 6e 2e 33 2e 30 2e 30  l_test $tn.3.0.0
13f0: 20 7b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41   {.    CREATE TA
1400: 42 4c 45 20 74 32 28 78 2c 20 79 29 3b 0a 20 20  BLE t2(x, y);.  
1410: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32    INSERT INTO t2
1420: 20 56 41 4c 55 45 53 28 27 61 27 2c 20 27 62 27   VALUES('a', 'b'
1430: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
1440: 54 4f 20 74 32 20 56 41 4c 55 45 53 28 27 63 27  TO t2 VALUES('c'
1450: 2c 20 27 64 27 29 3b 0a 20 20 20 20 42 45 47 49  , 'd');.    BEGI
1460: 4e 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20  N;.      SELECT 
1470: 2a 20 46 52 4f 4d 20 74 32 3b 0a 20 20 7d 20 7b  * FROM t2;.  } {
1480: 61 20 62 20 63 20 64 7d 0a 20 20 64 6f 5f 74 65  a b c d}.  do_te
1490: 73 74 20 24 74 6e 2e 33 2e 30 2e 31 20 7b 0a 20  st $tn.3.0.1 {. 
14a0: 20 20 20 73 65 74 20 73 6e 61 70 73 68 6f 74 20     set snapshot 
14b0: 5b 73 6e 61 70 73 68 6f 74 5f 67 65 74 20 64 62  [snapshot_get db
14c0: 20 6d 61 69 6e 5d 0a 20 20 20 20 65 78 65 63 73   main].    execs
14d0: 71 6c 20 7b 20 43 4f 4d 4d 49 54 20 7d 0a 20 20  ql { COMMIT }.  
14e0: 20 20 65 78 65 63 73 71 6c 20 7b 20 49 4e 53 45    execsql { INSE
14f0: 52 54 20 49 4e 54 4f 20 74 32 20 56 41 4c 55 45  RT INTO t2 VALUE
1500: 53 28 27 65 27 2c 20 27 66 27 29 3b 20 7d 0a 20  S('e', 'f'); }. 
1510: 20 7d 20 7b 7d 0a 0a 20 20 64 6f 5f 74 65 73 74   } {}..  do_test
1520: 20 24 74 6e 2e 33 2e 31 20 7b 0a 20 20 20 20 6c   $tn.3.1 {.    l
1530: 69 73 74 20 5b 63 61 74 63 68 20 7b 73 6e 61 70  ist [catch {snap
1540: 73 68 6f 74 5f 6f 70 65 6e 20 64 62 20 6d 61 69  shot_open db mai
1550: 6e 20 24 73 6e 61 70 73 68 6f 74 20 7d 20 6d 73  n $snapshot } ms
1560: 67 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 31 20 53  g] $msg.  } {1 S
1570: 51 4c 49 54 45 5f 45 52 52 4f 52 7d 0a 0a 20 20  QLITE_ERROR}..  
1580: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 33 2e 32 2e  do_test $tn.3.2.
1590: 31 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  1 {.    execsql 
15a0: 7b 0a 20 20 20 20 20 20 42 45 47 49 4e 3b 0a 20  {.      BEGIN;. 
15b0: 20 20 20 20 20 20 20 53 45 4c 45 43 54 20 2a 20         SELECT * 
15c0: 46 52 4f 4d 20 74 32 3b 0a 20 20 20 20 7d 0a 20  FROM t2;.    }. 
15d0: 20 7d 20 7b 61 20 62 20 63 20 64 20 65 20 66 7d   } {a b c d e f}
15e0: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 33  .  do_test $tn.3
15f0: 2e 32 2e 32 20 7b 0a 20 20 20 20 6c 69 73 74 20  .2.2 {.    list 
1600: 5b 63 61 74 63 68 20 7b 73 6e 61 70 73 68 6f 74  [catch {snapshot
1610: 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20 24 73  _open db main $s
1620: 6e 61 70 73 68 6f 74 20 7d 20 6d 73 67 5d 20 24  napshot } msg] $
1630: 6d 73 67 0a 20 20 7d 20 7b 31 20 53 51 4c 49 54  msg.  } {1 SQLIT
1640: 45 5f 45 52 52 4f 52 7d 0a 0a 20 20 64 6f 5f 74  E_ERROR}..  do_t
1650: 65 73 74 20 24 74 6e 2e 33 2e 32 2e 33 20 7b 0a  est $tn.3.2.3 {.
1660: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
1670: 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20      COMMIT;.    
1680: 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 20    BEGIN;.       
1690: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 32 20   INSERT INTO t2 
16a0: 56 41 4c 55 45 53 28 27 67 27 2c 20 27 68 27 29  VALUES('g', 'h')
16b0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6c 69 73 74  ;.    }.    list
16c0: 20 5b 63 61 74 63 68 20 7b 73 6e 61 70 73 68 6f   [catch {snapsho
16d0: 74 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20 24  t_open db main $
16e0: 73 6e 61 70 73 68 6f 74 20 7d 20 6d 73 67 5d 20  snapshot } msg] 
16f0: 24 6d 73 67 0a 20 20 7d 20 7b 31 20 53 51 4c 49  $msg.  } {1 SQLI
1700: 54 45 5f 45 52 52 4f 52 7d 0a 20 20 64 6f 5f 65  TE_ERROR}.  do_e
1710: 78 65 63 73 71 6c 5f 74 65 73 74 20 24 74 6e 2e  xecsql_test $tn.
1720: 33 2e 32 2e 34 20 43 4f 4d 4d 49 54 0a 0a 20 20  3.2.4 COMMIT..  
1730: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 33 2e 33 2e  do_test $tn.3.3.
1740: 31 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  1 {.    execsql 
1750: 7b 20 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c  { PRAGMA journal
1760: 5f 6d 6f 64 65 20 3d 20 44 45 4c 45 54 45 20 7d  _mode = DELETE }
1770: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20 42  .    execsql { B
1780: 45 47 49 4e 20 7d 0a 20 20 20 20 6c 69 73 74 20  EGIN }.    list 
1790: 5b 63 61 74 63 68 20 7b 73 6e 61 70 73 68 6f 74  [catch {snapshot
17a0: 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20 24 73  _open db main $s
17b0: 6e 61 70 73 68 6f 74 20 7d 20 6d 73 67 5d 20 24  napshot } msg] $
17c0: 6d 73 67 0a 20 20 7d 20 7b 31 20 53 51 4c 49 54  msg.  } {1 SQLIT
17d0: 45 5f 45 52 52 4f 52 7d 0a 0a 20 20 64 6f 5f 74  E_ERROR}..  do_t
17e0: 65 73 74 20 24 74 6e 2e 24 74 6e 2e 33 2e 33 2e  est $tn.$tn.3.3.
17f0: 32 20 7b 0a 20 20 20 20 73 6e 61 70 73 68 6f 74  2 {.    snapshot
1800: 5f 66 72 65 65 20 24 73 6e 61 70 73 68 6f 74 0a  _free $snapshot.
1810: 20 20 20 20 65 78 65 63 73 71 6c 20 43 4f 4d 4d      execsql COMM
1820: 49 54 0a 20 20 7d 20 7b 7d 0a 0a 20 20 23 2d 2d  IT.  } {}..  #--
1830: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1840: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1870: 2d 2d 2d 2d 2d 2d 2d 0a 20 20 23 20 43 68 65 63  -------.  # Chec
1880: 6b 20 74 68 61 74 20 53 51 4c 49 54 45 5f 42 55  k that SQLITE_BU
1890: 53 59 5f 53 4e 41 50 53 48 4f 54 20 69 73 20 72  SY_SNAPSHOT is r
18a0: 65 74 75 72 6e 65 64 20 69 66 20 74 68 65 20 73  eturned if the s
18b0: 70 65 63 69 66 69 65 64 20 73 6e 61 70 73 68 6f  pecified snapsho
18c0: 74 0a 20 20 23 20 6e 6f 20 6c 6f 6e 67 65 72 20  t.  # no longer 
18d0: 65 78 69 73 74 73 20 62 65 63 61 75 73 65 20 74  exists because t
18e0: 68 65 20 77 61 6c 20 66 69 6c 65 20 68 61 73 20  he wal file has 
18f0: 62 65 65 6e 20 63 68 65 63 6b 70 6f 69 6e 74 65  been checkpointe
1900: 64 2e 0a 20 20 23 0a 20 20 23 20 20 20 31 2e 20  d..  #.  #   1. 
1910: 52 65 61 64 69 6e 67 20 61 20 73 6e 61 70 73 68  Reading a snapsh
1920: 6f 74 20 66 72 6f 6d 20 74 68 65 20 6d 69 64 64  ot from the midd
1930: 6c 65 20 6f 66 20 61 20 77 61 6c 20 66 69 6c 65  le of a wal file
1940: 20 69 73 20 6e 6f 74 20 70 6f 73 73 69 62 6c 65   is not possible
1950: 0a 20 20 23 20 20 20 20 20 20 61 66 74 65 72 20  .  #      after 
1960: 74 68 65 20 77 61 6c 20 66 69 6c 65 20 68 61 73  the wal file has
1970: 20 62 65 65 6e 20 63 68 65 63 6b 70 6f 69 6e 74   been checkpoint
1980: 65 64 2e 0a 20 20 23 0a 20 20 23 20 20 20 32 2e  ed..  #.  #   2.
1990: 20 54 68 61 74 20 61 20 73 6e 61 70 73 68 6f 74   That a snapshot
19a0: 20 66 72 6f 6d 20 74 68 65 20 65 6e 64 20 6f 66   from the end of
19b0: 20 61 20 77 61 6c 20 66 69 6c 65 20 63 61 6e 20   a wal file can 
19c0: 6e 6f 74 20 62 65 20 72 65 61 64 20 6f 6e 63 65  not be read once
19d0: 0a 20 20 23 20 20 20 20 20 20 74 68 65 20 77 61  .  #      the wa
19e0: 6c 20 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20  l file has been 
19f0: 77 72 61 70 70 65 64 2e 0a 20 20 23 0a 20 20 64  wrapped..  #.  d
1a00: 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74 20 24  o_execsql_test $
1a10: 74 6e 2e 34 2e 31 2e 30 20 7b 0a 20 20 20 20 50  tn.4.1.0 {.    P
1a20: 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f  RAGMA journal_mo
1a30: 64 65 20 3d 20 77 61 6c 3b 0a 20 20 20 20 43 52  de = wal;.    CR
1a40: 45 41 54 45 20 54 41 42 4c 45 20 74 33 28 69 2c  EATE TABLE t3(i,
1a50: 20 6a 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20   j);.    INSERT 
1a60: 49 4e 54 4f 20 74 33 20 56 41 4c 55 45 53 28 27  INTO t3 VALUES('
1a70: 6f 27 2c 20 27 74 27 29 3b 0a 20 20 20 20 49 4e  o', 't');.    IN
1a80: 53 45 52 54 20 49 4e 54 4f 20 74 33 20 56 41 4c  SERT INTO t3 VAL
1a90: 55 45 53 28 27 74 27 2c 20 27 66 27 29 3b 0a 20  UES('t', 'f');. 
1aa0: 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20     BEGIN;.      
1ab0: 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 33  SELECT * FROM t3
1ac0: 3b 0a 20 20 7d 20 7b 77 61 6c 20 6f 20 74 20 74  ;.  } {wal o t t
1ad0: 20 66 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24   f}..  do_test $
1ae0: 74 6e 2e 34 2e 31 2e 31 20 7b 0a 20 20 20 20 73  tn.4.1.1 {.    s
1af0: 65 74 20 73 6e 61 70 73 68 6f 74 20 5b 73 6e 61  et snapshot [sna
1b00: 70 73 68 6f 74 5f 67 65 74 20 64 62 20 6d 61 69  pshot_get db mai
1b10: 6e 5d 0a 20 20 20 20 65 78 65 63 73 71 6c 20 43  n].    execsql C
1b20: 4f 4d 4d 49 54 0a 20 20 7d 20 7b 7d 0a 20 20 64  OMMIT.  } {}.  d
1b30: 6f 5f 74 65 73 74 20 24 74 6e 2e 34 2e 31 2e 32  o_test $tn.4.1.2
1b40: 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b   {.    execsql {
1b50: 20 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49   .      INSERT I
1b60: 4e 54 4f 20 74 33 20 56 41 4c 55 45 53 28 27 66  NTO t3 VALUES('f
1b70: 27 2c 20 27 73 27 29 3b 20 0a 20 20 20 20 20 20  ', 's'); .      
1b80: 42 45 47 49 4e 3b 0a 20 20 20 20 7d 0a 20 20 20  BEGIN;.    }.   
1b90: 20 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 20 64   snapshot_open d
1ba0: 62 20 6d 61 69 6e 20 24 73 6e 61 70 73 68 6f 74  b main $snapshot
1bb0: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20 53  .    execsql { S
1bc0: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 33 20  ELECT * FROM t3 
1bd0: 7d 0a 20 20 7d 20 7b 6f 20 74 20 74 20 66 7d 0a  }.  } {o t t f}.
1be0: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 34  .  do_test $tn.4
1bf0: 2e 31 2e 33 20 7b 0a 20 20 20 20 65 78 65 63 73  .1.3 {.    execs
1c00: 71 6c 20 7b 20 0a 20 20 20 20 20 20 43 4f 4d 4d  ql { .      COMM
1c10: 49 54 3b 0a 20 20 20 20 20 20 50 52 41 47 4d 41  IT;.      PRAGMA
1c20: 20 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 3b   wal_checkpoint;
1c30: 0a 20 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20  .      BEGIN;.  
1c40: 20 20 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63 61    }.    list [ca
1c50: 74 63 68 20 7b 73 6e 61 70 73 68 6f 74 5f 6f 70  tch {snapshot_op
1c60: 65 6e 20 64 62 20 6d 61 69 6e 20 24 73 6e 61 70  en db main $snap
1c70: 73 68 6f 74 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  shot} msg] $msg.
1c80: 20 20 7d 20 7b 31 20 53 51 4c 49 54 45 5f 42 55    } {1 SQLITE_BU
1c90: 53 59 5f 53 4e 41 50 53 48 4f 54 7d 0a 20 20 64  SY_SNAPSHOT}.  d
1ca0: 6f 5f 74 65 73 74 20 24 74 6e 2e 34 2e 31 2e 34  o_test $tn.4.1.4
1cb0: 20 7b 0a 20 20 20 20 73 6e 61 70 73 68 6f 74 5f   {.    snapshot_
1cc0: 66 72 65 65 20 24 73 6e 61 70 73 68 6f 74 0a 20  free $snapshot. 
1cd0: 20 20 20 65 78 65 63 73 71 6c 20 43 4f 4d 4d 49     execsql COMMI
1ce0: 54 0a 20 20 7d 20 7b 7d 0a 0a 20 20 64 6f 5f 74  T.  } {}..  do_t
1cf0: 65 73 74 20 24 74 6e 2e 34 2e 32 2e 31 20 7b 0a  est $tn.4.2.1 {.
1d00: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20      execsql {.  
1d10: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1d20: 74 33 20 56 41 4c 55 45 53 28 27 73 27 2c 20 27  t3 VALUES('s', '
1d30: 65 27 29 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  e');.      INSER
1d40: 54 20 49 4e 54 4f 20 74 33 20 56 41 4c 55 45 53  T INTO t3 VALUES
1d50: 28 27 6e 27 2c 20 27 74 27 29 3b 0a 20 20 20 20  ('n', 't');.    
1d60: 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 20    BEGIN;.       
1d70: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74   SELECT * FROM t
1d80: 33 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b 6f 20  3;.    }.  } {o 
1d90: 74 20 74 20 66 20 66 20 73 20 73 20 65 20 6e 20  t t f f s s e n 
1da0: 74 7d 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e  t}.  do_test $tn
1db0: 2e 34 2e 32 2e 32 20 7b 0a 20 20 20 20 73 65 74  .4.2.2 {.    set
1dc0: 20 73 6e 61 70 73 68 6f 74 20 5b 73 6e 61 70 73   snapshot [snaps
1dd0: 68 6f 74 5f 67 65 74 20 64 62 20 6d 61 69 6e 5d  hot_get db main]
1de0: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20  .    execsql {. 
1df0: 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20       COMMIT;.   
1e00: 20 20 20 50 52 41 47 4d 41 20 77 61 6c 5f 63 68     PRAGMA wal_ch
1e10: 65 63 6b 70 6f 69 6e 74 3b 0a 20 20 20 20 20 20  eckpoint;.      
1e20: 42 45 47 49 4e 3b 0a 20 20 20 20 7d 0a 20 20 20  BEGIN;.    }.   
1e30: 20 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 20 64   snapshot_open d
1e40: 62 20 6d 61 69 6e 20 24 73 6e 61 70 73 68 6f 74  b main $snapshot
1e50: 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20 53  .    execsql { S
1e60: 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 74 33 20  ELECT * FROM t3 
1e70: 7d 0a 20 20 7d 20 7b 6f 20 74 20 74 20 66 20 66  }.  } {o t t f f
1e80: 20 73 20 73 20 65 20 6e 20 74 7d 0a 20 20 64 6f   s s e n t}.  do
1e90: 5f 74 65 73 74 20 24 74 6e 2e 34 2e 32 2e 33 20  _test $tn.4.2.3 
1ea0: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a  {.    execsql {.
1eb0: 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20        COMMIT;.  
1ec0: 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20      INSERT INTO 
1ed0: 74 33 20 56 41 4c 55 45 53 28 27 65 27 2c 20 27  t3 VALUES('e', '
1ee0: 74 27 29 3b 0a 20 20 20 20 20 20 42 45 47 49 4e  t');.      BEGIN
1ef0: 3b 0a 20 20 20 20 7d 0a 20 20 20 20 6c 69 73 74  ;.    }.    list
1f00: 20 5b 63 61 74 63 68 20 7b 73 6e 61 70 73 68 6f   [catch {snapsho
1f10: 74 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20 24  t_open db main $
1f20: 73 6e 61 70 73 68 6f 74 7d 20 6d 73 67 5d 20 24  snapshot} msg] $
1f30: 6d 73 67 0a 20 20 7d 20 7b 31 20 53 51 4c 49 54  msg.  } {1 SQLIT
1f40: 45 5f 42 55 53 59 5f 53 4e 41 50 53 48 4f 54 7d  E_BUSY_SNAPSHOT}
1f50: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 34  .  do_test $tn.4
1f60: 2e 32 2e 34 20 7b 0a 20 20 20 20 73 6e 61 70 73  .2.4 {.    snaps
1f70: 68 6f 74 5f 66 72 65 65 20 24 73 6e 61 70 73 68  hot_free $snapsh
1f80: 6f 74 0a 20 20 7d 20 7b 7d 0a 0a 20 20 23 2d 2d  ot.  } {}..  #--
1f90: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fa0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fb0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fc0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1fd0: 2d 2d 2d 2d 2d 2d 2d 0a 20 20 23 20 43 68 65 63  -------.  # Chec
1fe0: 6b 20 74 68 61 74 20 53 51 4c 49 54 45 5f 42 55  k that SQLITE_BU
1ff0: 53 59 20 69 73 20 72 65 74 75 72 6e 65 64 20 69  SY is returned i
2000: 66 20 61 20 63 68 65 63 6b 70 6f 69 6e 74 20 69  f a checkpoint i
2010: 73 20 72 75 6e 6e 69 6e 67 20 77 68 65 6e 0a 20  s running when. 
2020: 20 23 20 73 71 6c 69 74 65 33 5f 73 6e 61 70 73   # sqlite3_snaps
2030: 68 6f 74 5f 6f 70 65 6e 28 29 20 69 73 20 63 61  hot_open() is ca
2040: 6c 6c 65 64 2e 0a 20 20 23 0a 20 20 72 65 73 65  lled..  #.  rese
2050: 74 5f 64 62 0a 20 20 64 62 20 63 6c 6f 73 65 0a  t_db.  db close.
2060: 20 20 74 65 73 74 76 66 73 20 74 76 66 73 0a 20    testvfs tvfs. 
2070: 20 73 71 6c 69 74 65 33 20 64 62 20 74 65 73 74   sqlite3 db test
2080: 2e 64 62 20 2d 76 66 73 20 74 76 66 73 0a 0a 20  .db -vfs tvfs.. 
2090: 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73 74   do_execsql_test
20a0: 20 24 74 6e 2e 35 2e 31 20 7b 0a 20 20 20 20 50   $tn.5.1 {.    P
20b0: 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f  RAGMA journal_mo
20c0: 64 65 20 3d 20 77 61 6c 3b 0a 20 20 20 20 43 52  de = wal;.    CR
20d0: 45 41 54 45 20 54 41 42 4c 45 20 78 31 28 78 2c  EATE TABLE x1(x,
20e0: 20 78 78 2c 20 78 78 78 29 3b 0a 20 20 20 20 49   xx, xxx);.    I
20f0: 4e 53 45 52 54 20 49 4e 54 4f 20 78 31 20 56 41  NSERT INTO x1 VA
2100: 4c 55 45 53 28 27 7a 27 2c 20 27 7a 7a 27 2c 20  LUES('z', 'zz', 
2110: 27 7a 7a 7a 27 29 3b 0a 20 20 20 20 42 45 47 49  'zzz');.    BEGI
2120: 4e 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20  N;.      SELECT 
2130: 2a 20 46 52 4f 4d 20 78 31 3b 0a 20 20 7d 20 7b  * FROM x1;.  } {
2140: 77 61 6c 20 7a 20 7a 7a 20 7a 7a 7a 7d 0a 0a 20  wal z zz zzz}.. 
2150: 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 35 2e 32   do_test $tn.5.2
2160: 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 73 6e 61   {.    set ::sna
2170: 70 73 68 6f 74 20 5b 73 6e 61 70 73 68 6f 74 5f  pshot [snapshot_
2180: 67 65 74 20 64 62 20 6d 61 69 6e 5d 0a 20 20 20  get db main].   
2190: 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73   sqlite3 db2 tes
21a0: 74 2e 64 62 20 2d 76 66 73 20 74 76 66 73 0a 20  t.db -vfs tvfs. 
21b0: 20 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20     execsql {.   
21c0: 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 78     INSERT INTO x
21d0: 31 20 56 41 4c 55 45 53 28 27 61 27 2c 20 27 61  1 VALUES('a', 'a
21e0: 61 27 2c 20 27 61 61 61 27 29 3b 0a 20 20 20 20  a', 'aaa');.    
21f0: 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 7d 0a    COMMIT;.    }.
2200: 20 20 7d 20 7b 7d 0a 0a 20 20 73 65 74 20 74 35    } {}..  set t5
2210: 33 20 30 0a 20 20 70 72 6f 63 20 77 72 69 74 65  3 0.  proc write
2220: 5f 63 61 6c 6c 62 61 63 6b 20 7b 61 72 67 73 7d  _callback {args}
2230: 20 7b 0a 20 20 20 20 64 6f 5f 74 65 73 74 20 24   {.    do_test $
2240: 74 6e 2e 35 2e 33 2e 5b 69 6e 63 72 20 3a 3a 74  tn.5.3.[incr ::t
2250: 35 33 5d 20 7b 0a 20 20 20 20 20 20 65 78 65 63  53] {.      exec
2260: 73 71 6c 20 42 45 47 49 4e 0a 20 20 20 20 20 20  sql BEGIN.      
2270: 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 20 73 6e  list [catch { sn
2280: 61 70 73 68 6f 74 5f 6f 70 65 6e 20 64 62 20 6d  apshot_open db m
2290: 61 69 6e 20 24 3a 3a 73 6e 61 70 73 68 6f 74 20  ain $::snapshot 
22a0: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 20 20 20  } msg] $msg.    
22b0: 7d 20 7b 31 20 53 51 4c 49 54 45 5f 42 55 53 59  } {1 SQLITE_BUSY
22c0: 7d 0a 20 20 20 20 63 61 74 63 68 73 71 6c 20 43  }.    catchsql C
22d0: 4f 4d 4d 49 54 0a 20 20 7d 0a 0a 20 20 74 76 66  OMMIT.  }..  tvf
22e0: 73 20 66 69 6c 74 65 72 20 78 57 72 69 74 65 0a  s filter xWrite.
22f0: 20 20 74 76 66 73 20 73 63 72 69 70 74 20 77 72    tvfs script wr
2300: 69 74 65 5f 63 61 6c 6c 62 61 63 6b 0a 20 20 64  ite_callback.  d
2310: 62 32 20 65 76 61 6c 20 7b 20 50 52 41 47 4d 41  b2 eval { PRAGMA
2320: 20 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 20   wal_checkpoint 
2330: 7d 0a 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 64  }.  db close.  d
2340: 62 32 20 63 6c 6f 73 65 0a 20 20 74 76 66 73 20  b2 close.  tvfs 
2350: 64 65 6c 65 74 65 0a 20 20 73 6e 61 70 73 68 6f  delete.  snapsho
2360: 74 5f 66 72 65 65 20 24 73 6e 61 70 73 68 6f 74  t_free $snapshot
2370: 0a 0a 20 20 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ..  #-----------
2380: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2390: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
23b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20  --------------. 
23c0: 20 23 20 54 65 73 74 20 74 68 61 74 20 73 71 6c   # Test that sql
23d0: 69 74 65 33 5f 73 6e 61 70 73 68 6f 74 5f 67 65  ite3_snapshot_ge
23e0: 74 28 29 20 6d 61 79 20 62 65 20 63 61 6c 6c 65  t() may be calle
23f0: 64 20 69 6d 6d 65 64 69 61 74 65 6c 79 20 61 66  d immediately af
2400: 74 65 72 0a 20 20 23 20 22 42 45 47 49 4e 3b 20  ter.  # "BEGIN; 
2410: 50 52 41 47 4d 41 20 75 73 65 72 5f 76 65 72 73  PRAGMA user_vers
2420: 69 6f 6e 3b 22 2e 20 41 6e 64 20 74 68 61 74 20  ion;". And that 
2430: 73 71 6c 69 74 65 33 5f 73 6e 61 70 73 68 6f 74  sqlite3_snapshot
2440: 5f 6f 70 65 6e 28 29 20 6d 61 79 0a 20 20 23 20  _open() may.  # 
2450: 62 65 20 63 61 6c 6c 65 64 20 61 66 74 65 72 20  be called after 
2460: 6f 70 65 6e 69 6e 67 20 74 68 65 20 64 62 20 68  opening the db h
2470: 61 6e 64 6c 65 20 61 6e 64 20 72 75 6e 6e 69 6e  andle and runnin
2480: 67 20 74 68 65 20 73 63 72 69 70 74 0a 20 20 23  g the script.  #
2490: 20 22 50 52 41 47 4d 41 20 75 73 65 72 5f 76 65   "PRAGMA user_ve
24a0: 72 73 69 6f 6e 3b 20 42 45 47 49 4e 22 2e 0a 20  rsion; BEGIN".. 
24b0: 20 72 65 73 65 74 5f 64 62 0a 20 20 64 6f 5f 65   reset_db.  do_e
24c0: 78 65 63 73 71 6c 5f 74 65 73 74 20 24 74 6e 2e  xecsql_test $tn.
24d0: 36 2e 31 20 7b 0a 20 20 20 20 50 52 41 47 4d 41  6.1 {.    PRAGMA
24e0: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
24f0: 77 61 6c 3b 0a 20 20 20 20 43 52 45 41 54 45 20  wal;.    CREATE 
2500: 54 41 42 4c 45 20 78 31 28 78 2c 20 78 78 2c 20  TABLE x1(x, xx, 
2510: 78 78 78 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  xxx);.    INSERT
2520: 20 49 4e 54 4f 20 78 31 20 56 41 4c 55 45 53 28   INTO x1 VALUES(
2530: 27 7a 27 2c 20 27 7a 7a 27 2c 20 27 7a 7a 7a 27  'z', 'zz', 'zzz'
2540: 29 3b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20 20  );.    BEGIN;.  
2550: 20 20 20 20 50 52 41 47 4d 41 20 75 73 65 72 5f      PRAGMA user_
2560: 76 65 72 73 69 6f 6e 3b 0a 20 20 7d 20 7b 77 61  version;.  } {wa
2570: 6c 20 30 7d 0a 20 20 64 6f 5f 74 65 73 74 20 24  l 0}.  do_test $
2580: 74 6e 2e 36 2e 32 20 7b 0a 20 20 20 20 73 65 74  tn.6.2 {.    set
2590: 20 3a 3a 73 6e 61 70 73 68 6f 74 20 5b 73 6e 61   ::snapshot [sna
25a0: 70 73 68 6f 74 5f 67 65 74 20 64 62 20 6d 61 69  pshot_get db mai
25b0: 6e 5d 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b  n].    execsql {
25c0: 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e  .      INSERT IN
25d0: 54 4f 20 78 31 20 56 41 4c 55 45 53 28 27 61 27  TO x1 VALUES('a'
25e0: 2c 20 27 61 61 27 2c 20 27 61 61 61 27 29 3b 0a  , 'aa', 'aaa');.
25f0: 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20        COMMIT;.  
2600: 20 20 7d 0a 20 20 7d 20 7b 7d 0a 20 20 64 6f 5f    }.  } {}.  do_
2610: 74 65 73 74 20 24 74 6e 2e 36 2e 33 20 7b 0a 20  test $tn.6.3 {. 
2620: 20 20 20 73 71 6c 69 74 65 33 20 64 62 32 20 74     sqlite3 db2 t
2630: 65 73 74 2e 64 62 20 0a 20 20 20 20 64 62 32 20  est.db .    db2 
2640: 65 76 61 6c 20 22 50 52 41 47 4d 41 20 75 73 65  eval "PRAGMA use
2650: 72 5f 76 65 72 73 69 6f 6e 20 3b 20 42 45 47 49  r_version ; BEGI
2660: 4e 22 0a 20 20 20 20 73 6e 61 70 73 68 6f 74 5f  N".    snapshot_
2670: 6f 70 65 6e 20 64 62 32 20 6d 61 69 6e 20 24 3a  open db2 main $:
2680: 3a 73 6e 61 70 73 68 6f 74 0a 20 20 20 20 64 62  :snapshot.    db
2690: 32 20 65 76 61 6c 20 7b 20 53 45 4c 45 43 54 20  2 eval { SELECT 
26a0: 2a 20 46 52 4f 4d 20 78 31 20 7d 0a 20 20 7d 20  * FROM x1 }.  } 
26b0: 7b 7a 20 7a 7a 20 7a 7a 7a 7d 0a 20 20 64 6f 5f  {z zz zzz}.  do_
26c0: 74 65 73 74 20 24 74 6e 2e 36 2e 34 20 7b 0a 20  test $tn.6.4 {. 
26d0: 20 20 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 20     db2 close.   
26e0: 20 73 71 6c 69 74 65 33 20 64 62 32 20 74 65 73   sqlite3 db2 tes
26f0: 74 2e 64 62 20 0a 20 20 20 20 64 62 32 20 65 76  t.db .    db2 ev
2700: 61 6c 20 22 50 52 41 47 4d 41 20 61 70 70 6c 69  al "PRAGMA appli
2710: 63 61 74 69 6f 6e 5f 69 64 22 0a 20 20 20 20 64  cation_id".    d
2720: 62 32 20 65 76 61 6c 20 22 42 45 47 49 4e 22 0a  b2 eval "BEGIN".
2730: 20 20 20 20 73 6e 61 70 73 68 6f 74 5f 6f 70 65      snapshot_ope
2740: 6e 20 64 62 32 20 6d 61 69 6e 20 24 3a 3a 73 6e  n db2 main $::sn
2750: 61 70 73 68 6f 74 0a 20 20 20 20 64 62 32 20 65  apshot.    db2 e
2760: 76 61 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46  val { SELECT * F
2770: 52 4f 4d 20 78 31 20 7d 0a 20 20 7d 20 7b 7a 20  ROM x1 }.  } {z 
2780: 7a 7a 20 7a 7a 7a 7d 0a 0a 20 20 64 6f 5f 74 65  zz zzz}..  do_te
2790: 73 74 20 24 74 6e 2e 36 2e 35 20 7b 0a 20 20 20  st $tn.6.5 {.   
27a0: 20 64 62 32 20 63 6c 6f 73 65 0a 20 20 20 20 73   db2 close.    s
27b0: 71 6c 69 74 65 33 20 64 62 32 20 74 65 73 74 2e  qlite3 db2 test.
27c0: 64 62 20 0a 20 20 20 20 64 62 32 20 65 76 61 6c  db .    db2 eval
27d0: 20 22 42 45 47 49 4e 22 0a 20 20 20 20 6c 69 73   "BEGIN".    lis
27e0: 74 20 5b 63 61 74 63 68 20 7b 73 6e 61 70 73 68  t [catch {snapsh
27f0: 6f 74 5f 6f 70 65 6e 20 64 62 32 20 6d 61 69 6e  ot_open db2 main
2800: 20 24 3a 3a 73 6e 61 70 73 68 6f 74 7d 20 6d 73   $::snapshot} ms
2810: 67 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 31 20 53  g] $msg.  } {1 S
2820: 51 4c 49 54 45 5f 45 52 52 4f 52 7d 0a 0a 20 20  QLITE_ERROR}..  
2830: 73 6e 61 70 73 68 6f 74 5f 66 72 65 65 20 24 73  snapshot_free $s
2840: 6e 61 70 73 68 6f 74 0a 0a 20 20 23 2d 2d 2d 2d  napshot..  #----
2850: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2860: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2870: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2880: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2890: 2d 2d 2d 2d 2d 0a 20 20 23 20 54 68 65 20 66 6f  -----.  # The fo
28a0: 6c 6c 6f 77 69 6e 67 20 74 65 73 74 73 20 69 6e  llowing tests in
28b0: 76 65 73 74 69 67 61 74 65 20 74 68 65 20 73 71  vestigate the sq
28c0: 6c 69 74 65 33 5f 73 6e 61 70 73 68 6f 74 5f 63  lite3_snapshot_c
28d0: 6d 70 28 29 20 41 50 49 2e 0a 20 20 23 0a 0a 20  mp() API..  #.. 
28e0: 20 23 20 43 6f 6d 70 61 72 65 20 73 6e 61 70 73   # Compare snaps
28f0: 68 6f 74 73 20 24 70 31 20 61 6e 64 20 24 70 32  hots $p1 and $p2
2900: 2c 20 63 68 65 63 6b 69 6e 67 20 74 68 61 74 20  , checking that 
2910: 74 68 65 20 72 65 73 75 6c 74 20 69 73 20 24 72  the result is $r
2920: 2e 0a 20 20 23 0a 20 20 70 72 6f 63 20 64 6f 5f  ..  #.  proc do_
2930: 73 6e 61 70 73 68 6f 74 5f 63 6d 70 5f 74 65 73  snapshot_cmp_tes
2940: 74 20 7b 74 6e 20 70 31 20 70 32 20 72 7d 20 7b  t {tn p1 p2 r} {
2950: 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69  .    uplevel [li
2960: 73 74 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 31  st do_test $tn.1
2970: 20 5b 6c 69 73 74 20 73 6e 61 70 73 68 6f 74 5f   [list snapshot_
2980: 63 6d 70 20 24 70 31 20 24 70 32 5d 20 24 72 5d  cmp $p1 $p2] $r]
2990: 0a 20 20 20 20 75 70 6c 65 76 65 6c 20 5b 6c 69  .    uplevel [li
29a0: 73 74 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 32  st do_test $tn.2
29b0: 20 5b 6c 69 73 74 20 73 6e 61 70 73 68 6f 74 5f   [list snapshot_
29c0: 63 6d 70 20 24 70 32 20 24 70 31 5d 20 5b 65 78  cmp $p2 $p1] [ex
29d0: 70 72 20 24 72 2a 2d 31 5d 5d 0a 20 20 20 20 75  pr $r*-1]].    u
29e0: 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f  plevel [list do_
29f0: 74 65 73 74 20 24 74 6e 2e 33 20 5b 6c 69 73 74  test $tn.3 [list
2a00: 20 73 6e 61 70 73 68 6f 74 5f 63 6d 70 20 24 70   snapshot_cmp $p
2a10: 31 20 24 70 31 5d 20 30 5d 0a 20 20 20 20 75 70  1 $p1] 0].    up
2a20: 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f 5f 74  level [list do_t
2a30: 65 73 74 20 24 74 6e 2e 34 20 5b 6c 69 73 74 20  est $tn.4 [list 
2a40: 73 6e 61 70 73 68 6f 74 5f 63 6d 70 20 24 70 32  snapshot_cmp $p2
2a50: 20 24 70 32 5d 20 30 5d 0a 20 20 7d 0a 0a 20 20   $p2] 0].  }..  
2a60: 63 61 74 63 68 20 7b 20 64 62 32 20 63 6c 6f 73  catch { db2 clos
2a70: 65 20 7d 0a 20 20 72 65 73 65 74 5f 64 62 0a 0a  e }.  reset_db..
2a80: 20 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73    do_execsql_tes
2a90: 74 20 24 74 6e 2e 37 2e 31 20 7b 0a 20 20 20 20  t $tn.7.1 {.    
2aa0: 50 52 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d  PRAGMA journal_m
2ab0: 6f 64 65 20 3d 20 77 61 6c 3b 0a 20 20 20 20 43  ode = wal;.    C
2ac0: 52 45 41 54 45 20 54 41 42 4c 45 20 74 31 28 78  REATE TABLE t1(x
2ad0: 29 3b 0a 20 20 7d 20 77 61 6c 0a 0a 20 20 64 6f  );.  } wal..  do
2ae0: 5f 74 65 73 74 20 24 74 6e 2e 37 2e 31 2e 32 20  _test $tn.7.1.2 
2af0: 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20  {.    execsql { 
2b00: 42 45 47 49 4e 20 3b 20 50 52 41 47 4d 41 20 61  BEGIN ; PRAGMA a
2b10: 70 70 6c 69 63 61 74 69 6f 6e 5f 69 64 20 7d 0a  pplication_id }.
2b20: 20 20 20 20 73 65 74 20 70 31 20 5b 73 6e 61 70      set p1 [snap
2b30: 73 68 6f 74 5f 67 65 74 20 64 62 20 6d 61 69 6e  shot_get db main
2b40: 5d 0a 20 20 20 20 65 78 65 63 73 71 6c 20 7b 0a  ].    execsql {.
2b50: 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54        INSERT INT
2b60: 4f 20 74 31 20 56 41 4c 55 45 53 28 31 30 29 3b  O t1 VALUES(10);
2b70: 0a 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20  .      COMMIT;. 
2b80: 20 20 20 7d 0a 20 20 20 20 65 78 65 63 73 71 6c     }.    execsql
2b90: 20 7b 20 42 45 47 49 4e 20 3b 20 50 52 41 47 4d   { BEGIN ; PRAGM
2ba0: 41 20 61 70 70 6c 69 63 61 74 69 6f 6e 5f 69 64  A application_id
2bb0: 20 7d 0a 20 20 20 20 73 65 74 20 70 32 20 5b 73   }.    set p2 [s
2bc0: 6e 61 70 73 68 6f 74 5f 67 65 74 20 64 62 20 6d  napshot_get db m
2bd0: 61 69 6e 5d 0a 20 20 20 20 65 78 65 63 73 71 6c  ain].    execsql
2be0: 20 43 4f 4d 4d 49 54 0a 20 20 7d 20 7b 7d 0a 0a   COMMIT.  } {}..
2bf0: 20 20 64 6f 5f 73 6e 61 70 73 68 6f 74 5f 63 6d    do_snapshot_cm
2c00: 70 5f 74 65 73 74 20 24 74 6e 2e 37 2e 31 2e 33  p_test $tn.7.1.3
2c10: 20 24 70 31 20 24 70 32 20 2d 31 0a 20 20 73 6e   $p1 $p2 -1.  sn
2c20: 61 70 73 68 6f 74 5f 66 72 65 65 20 24 70 31 0a  apshot_free $p1.
2c30: 20 20 73 6e 61 70 73 68 6f 74 5f 66 72 65 65 20    snapshot_free 
2c40: 24 70 32 0a 0a 20 20 64 6f 5f 65 78 65 63 73 71  $p2..  do_execsq
2c50: 6c 5f 74 65 73 74 20 24 74 6e 2e 37 2e 32 2e 31  l_test $tn.7.2.1
2c60: 20 7b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e   {.    INSERT IN
2c70: 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 31 29  TO t1 VALUES(11)
2c80: 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54  ;.    INSERT INT
2c90: 4f 20 74 31 20 56 41 4c 55 45 53 28 31 32 29 3b  O t1 VALUES(12);
2ca0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
2cb0: 20 74 31 20 56 41 4c 55 45 53 28 31 33 29 3b 0a   t1 VALUES(13);.
2cc0: 20 20 20 20 42 45 47 49 4e 3b 20 0a 20 20 20 20      BEGIN; .    
2cd0: 20 20 50 52 41 47 4d 41 20 61 70 70 6c 69 63 61    PRAGMA applica
2ce0: 74 69 6f 6e 5f 69 64 3b 0a 20 20 7d 20 7b 30 7d  tion_id;.  } {0}
2cf0: 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 37  .  do_test $tn.7
2d00: 2e 32 2e 32 20 7b 0a 20 20 20 20 73 65 74 20 70  .2.2 {.    set p
2d10: 31 20 5b 73 6e 61 70 73 68 6f 74 5f 67 65 74 20  1 [snapshot_get 
2d20: 64 62 20 6d 61 69 6e 5d 0a 20 20 20 20 65 78 65  db main].    exe
2d30: 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 43 4f 4d  csql {.      COM
2d40: 4d 49 54 3b 0a 20 20 20 20 20 20 49 4e 53 45 52  MIT;.      INSER
2d50: 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55 45 53  T INTO t1 VALUES
2d60: 28 31 34 29 3b 0a 20 20 20 20 20 20 50 52 41 47  (14);.      PRAG
2d70: 4d 41 20 77 61 6c 5f 63 68 65 63 6b 70 6f 69 6e  MA wal_checkpoin
2d80: 74 3b 0a 20 20 20 20 20 20 42 45 47 49 4e 3b 0a  t;.      BEGIN;.
2d90: 20 20 20 20 20 20 20 20 50 52 41 47 4d 41 20 61          PRAGMA a
2da0: 70 70 6c 69 63 61 74 69 6f 6e 5f 69 64 3b 0a 20  pplication_id;. 
2db0: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 70 32 20     }.    set p2 
2dc0: 5b 73 6e 61 70 73 68 6f 74 5f 67 65 74 20 64 62  [snapshot_get db
2dd0: 20 6d 61 69 6e 5d 0a 20 20 20 20 65 78 65 63 73   main].    execs
2de0: 71 6c 20 43 4f 4d 4d 49 54 0a 20 20 7d 20 7b 7d  ql COMMIT.  } {}
2df0: 0a 0a 20 20 64 6f 5f 73 6e 61 70 73 68 6f 74 5f  ..  do_snapshot_
2e00: 63 6d 70 5f 74 65 73 74 20 24 74 6e 2e 37 2e 32  cmp_test $tn.7.2
2e10: 2e 33 20 24 70 31 20 24 70 32 20 2d 31 0a 20 20  .3 $p1 $p2 -1.  
2e20: 73 6e 61 70 73 68 6f 74 5f 66 72 65 65 20 24 70  snapshot_free $p
2e30: 32 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e  2..  do_test $tn
2e40: 2e 37 2e 33 2e 31 20 7b 0a 20 20 20 20 65 78 65  .7.3.1 {.    exe
2e50: 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 49 4e 53  csql {.      INS
2e60: 45 52 54 20 49 4e 54 4f 20 74 31 20 56 41 4c 55  ERT INTO t1 VALU
2e70: 45 53 28 31 34 29 3b 0a 20 20 20 20 20 20 42 45  ES(14);.      BE
2e80: 47 49 4e 3b 0a 20 20 20 20 20 20 20 20 50 52 41  GIN;.        PRA
2e90: 47 4d 41 20 61 70 70 6c 69 63 61 74 69 6f 6e 5f  GMA application_
2ea0: 69 64 3b 0a 20 20 20 20 7d 0a 20 20 20 20 73 65  id;.    }.    se
2eb0: 74 20 70 32 20 5b 73 6e 61 70 73 68 6f 74 5f 67  t p2 [snapshot_g
2ec0: 65 74 20 64 62 20 6d 61 69 6e 5d 0a 20 20 20 20  et db main].    
2ed0: 65 78 65 63 73 71 6c 20 43 4f 4d 4d 49 54 0a 20  execsql COMMIT. 
2ee0: 20 7d 20 7b 7d 0a 0a 20 20 64 6f 5f 73 6e 61 70   } {}..  do_snap
2ef0: 73 68 6f 74 5f 63 6d 70 5f 74 65 73 74 20 24 74  shot_cmp_test $t
2f00: 6e 2e 37 2e 33 2e 32 20 24 70 31 20 24 70 32 20  n.7.3.2 $p1 $p2 
2f10: 2d 31 0a 20 20 73 6e 61 70 73 68 6f 74 5f 66 72  -1.  snapshot_fr
2f20: 65 65 20 24 70 31 0a 20 20 73 6e 61 70 73 68 6f  ee $p1.  snapsho
2f30: 74 5f 66 72 65 65 20 24 70 32 0a 7d 0a 0a 66 69  t_free $p2.}..fi
2f40: 6e 69 73 68 5f 74 65 73 74 0a                    nish_test.