/ Hex Artifact Content
Login

Artifact a504f2e7009f512ef66c719f0ea1c55a556bdaf1e1312c80a04d46fc1a3e9632:


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 0a 20 20 23 20 55 70 64 61 74 65 20 2d 20 69  ..  # Update - i
15f0: 74 20 69 73 20 6e 6f 20 6c 6f 6e 67 65 72 20 61  t is no longer a
1600: 6e 20 65 72 72 6f 72 20 74 6f 20 68 61 76 65 20  n error to have 
1610: 61 20 72 65 61 64 2d 74 72 61 6e 73 61 63 74 69  a read-transacti
1620: 6f 6e 20 6f 70 65 6e 2c 20 0a 20 20 23 20 70 72  on open, .  # pr
1630: 6f 76 69 64 65 64 20 74 68 65 72 65 20 61 72 65  ovided there are
1640: 20 6e 6f 20 61 63 74 69 76 65 20 53 45 4c 45 43   no active SELEC
1650: 54 20 73 74 61 74 65 6d 65 6e 74 73 2e 0a 20 20  T statements..  
1660: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 33 2e 32 2e  do_test $tn.3.2.
1670: 32 61 20 7b 0a 20 20 20 20 64 62 20 65 76 61 6c  2a {.    db eval
1680: 20 22 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20   "SELECT * FROM 
1690: 74 32 22 20 7b 0a 20 20 20 20 20 20 73 65 74 20  t2" {.      set 
16a0: 72 65 73 20 5b 6c 69 73 74 20 5b 63 61 74 63 68  res [list [catch
16b0: 20 7b 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 20   {snapshot_open 
16c0: 64 62 20 6d 61 69 6e 20 24 73 6e 61 70 73 68 6f  db main $snapsho
16d0: 74 20 7d 20 6d 73 67 5d 20 24 6d 73 67 5d 0a 20  t } msg] $msg]. 
16e0: 20 20 20 20 20 62 72 65 61 6b 0a 20 20 20 20 7d       break.    }
16f0: 0a 20 20 20 20 73 65 74 20 72 65 73 0a 20 20 7d  .    set res.  }
1700: 20 7b 31 20 53 51 4c 49 54 45 5f 45 52 52 4f 52   {1 SQLITE_ERROR
1710: 7d 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e  }.  do_test $tn.
1720: 33 2e 32 2e 32 62 20 7b 0a 20 20 20 20 73 6e 61  3.2.2b {.    sna
1730: 70 73 68 6f 74 5f 6f 70 65 6e 20 64 62 20 6d 61  pshot_open db ma
1740: 69 6e 20 24 73 6e 61 70 73 68 6f 74 0a 20 20 7d  in $snapshot.  }
1750: 20 7b 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24   {}..  do_test $
1760: 74 6e 2e 33 2e 32 2e 33 20 7b 0a 20 20 20 20 65  tn.3.2.3 {.    e
1770: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 43  xecsql {.      C
1780: 4f 4d 4d 49 54 3b 0a 20 20 20 20 20 20 42 45 47  OMMIT;.      BEG
1790: 49 4e 3b 0a 20 20 20 20 20 20 20 20 49 4e 53 45  IN;.        INSE
17a0: 52 54 20 49 4e 54 4f 20 74 32 20 56 41 4c 55 45  RT INTO t2 VALUE
17b0: 53 28 27 67 27 2c 20 27 68 27 29 3b 0a 20 20 20  S('g', 'h');.   
17c0: 20 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74   }.    list [cat
17d0: 63 68 20 7b 73 6e 61 70 73 68 6f 74 5f 6f 70 65  ch {snapshot_ope
17e0: 6e 20 64 62 20 6d 61 69 6e 20 24 73 6e 61 70 73  n db main $snaps
17f0: 68 6f 74 20 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  hot } msg] $msg.
1800: 20 20 7d 20 7b 31 20 53 51 4c 49 54 45 5f 45 52    } {1 SQLITE_ER
1810: 52 4f 52 7d 0a 20 20 64 6f 5f 65 78 65 63 73 71  ROR}.  do_execsq
1820: 6c 5f 74 65 73 74 20 24 74 6e 2e 33 2e 32 2e 34  l_test $tn.3.2.4
1830: 20 43 4f 4d 4d 49 54 0a 0a 20 20 64 6f 5f 74 65   COMMIT..  do_te
1840: 73 74 20 24 74 6e 2e 33 2e 33 2e 31 61 20 7b 0a  st $tn.3.3.1a {.
1850: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20 50 52      execsql { PR
1860: 41 47 4d 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64  AGMA journal_mod
1870: 65 20 3d 20 44 45 4c 45 54 45 20 7d 0a 20 20 20  e = DELETE }.   
1880: 20 65 78 65 63 73 71 6c 20 7b 20 42 45 47 49 4e   execsql { BEGIN
1890: 20 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74   }.    list [cat
18a0: 63 68 20 7b 73 6e 61 70 73 68 6f 74 5f 6f 70 65  ch {snapshot_ope
18b0: 6e 20 64 62 20 6d 61 69 6e 20 24 73 6e 61 70 73  n db main $snaps
18c0: 68 6f 74 20 7d 20 6d 73 67 5d 20 24 6d 73 67 0a  hot } msg] $msg.
18d0: 20 20 7d 20 7b 31 20 53 51 4c 49 54 45 5f 45 52    } {1 SQLITE_ER
18e0: 52 4f 52 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20  ROR}..  do_test 
18f0: 24 74 6e 2e 33 2e 33 2e 31 62 20 7b 0a 20 20 20  $tn.3.3.1b {.   
1900: 20 65 78 65 63 73 71 6c 20 7b 20 43 4f 4d 4d 49   execsql { COMMI
1910: 54 20 3b 20 42 45 47 49 4e 20 3b 20 53 45 4c 45  T ; BEGIN ; SELE
1920: 43 54 20 2a 20 46 52 4f 4d 20 74 32 20 7d 0a 20  CT * FROM t2 }. 
1930: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b     list [catch {
1940: 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 20 64 62  snapshot_open db
1950: 20 6d 61 69 6e 20 24 73 6e 61 70 73 68 6f 74 20   main $snapshot 
1960: 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 20 7d 20  } msg] $msg.  } 
1970: 7b 31 20 53 51 4c 49 54 45 5f 45 52 52 4f 52 7d  {1 SQLITE_ERROR}
1980: 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e  ..  do_test $tn.
1990: 24 74 6e 2e 33 2e 33 2e 32 20 7b 0a 20 20 20 20  $tn.3.3.2 {.    
19a0: 73 6e 61 70 73 68 6f 74 5f 66 72 65 65 20 24 73  snapshot_free $s
19b0: 6e 61 70 73 68 6f 74 0a 20 20 20 20 65 78 65 63  napshot.    exec
19c0: 73 71 6c 20 43 4f 4d 4d 49 54 0a 20 20 7d 20 7b  sql COMMIT.  } {
19d0: 7d 0a 0a 20 20 23 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  }..  #----------
19e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
19f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
1a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a  ---------------.
1a20: 20 20 23 20 43 68 65 63 6b 20 74 68 61 74 20 53    # Check that S
1a30: 51 4c 49 54 45 5f 45 52 52 4f 52 5f 53 4e 41 50  QLITE_ERROR_SNAP
1a40: 53 48 4f 54 20 69 73 20 72 65 74 75 72 6e 65 64  SHOT is returned
1a50: 20 69 66 20 74 68 65 20 73 70 65 63 69 66 69 65   if the specifie
1a60: 64 20 73 6e 61 70 73 68 6f 74 0a 20 20 23 20 6e  d snapshot.  # n
1a70: 6f 20 6c 6f 6e 67 65 72 20 65 78 69 73 74 73 20  o longer exists 
1a80: 62 65 63 61 75 73 65 20 74 68 65 20 77 61 6c 20  because the wal 
1a90: 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 63 68  file has been ch
1aa0: 65 63 6b 70 6f 69 6e 74 65 64 2e 0a 20 20 23 0a  eckpointed..  #.
1ab0: 20 20 23 20 20 20 31 2e 20 52 65 61 64 69 6e 67    #   1. Reading
1ac0: 20 61 20 73 6e 61 70 73 68 6f 74 20 66 72 6f 6d   a snapshot from
1ad0: 20 74 68 65 20 6d 69 64 64 6c 65 20 6f 66 20 61   the middle of a
1ae0: 20 77 61 6c 20 66 69 6c 65 20 69 73 20 6e 6f 74   wal file is not
1af0: 20 70 6f 73 73 69 62 6c 65 0a 20 20 23 20 20 20   possible.  #   
1b00: 20 20 20 61 66 74 65 72 20 74 68 65 20 77 61 6c     after the wal
1b10: 20 66 69 6c 65 20 68 61 73 20 62 65 65 6e 20 63   file has been c
1b20: 68 65 63 6b 70 6f 69 6e 74 65 64 2e 0a 20 20 23  heckpointed..  #
1b30: 0a 20 20 23 20 20 20 32 2e 20 54 68 61 74 20 61  .  #   2. That a
1b40: 20 73 6e 61 70 73 68 6f 74 20 66 72 6f 6d 20 74   snapshot from t
1b50: 68 65 20 65 6e 64 20 6f 66 20 61 20 77 61 6c 20  he end of a wal 
1b60: 66 69 6c 65 20 63 61 6e 20 6e 6f 74 20 62 65 20  file can not be 
1b70: 72 65 61 64 20 6f 6e 63 65 0a 20 20 23 20 20 20  read once.  #   
1b80: 20 20 20 74 68 65 20 77 61 6c 20 66 69 6c 65 20     the wal file 
1b90: 68 61 73 20 62 65 65 6e 20 77 72 61 70 70 65 64  has been wrapped
1ba0: 2e 0a 20 20 23 0a 20 20 64 6f 5f 65 78 65 63 73  ..  #.  do_execs
1bb0: 71 6c 5f 74 65 73 74 20 24 74 6e 2e 34 2e 31 2e  ql_test $tn.4.1.
1bc0: 30 20 7b 0a 20 20 20 20 50 52 41 47 4d 41 20 6a  0 {.    PRAGMA j
1bd0: 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61  ournal_mode = wa
1be0: 6c 3b 0a 20 20 20 20 43 52 45 41 54 45 20 54 41  l;.    CREATE TA
1bf0: 42 4c 45 20 74 33 28 69 2c 20 6a 29 3b 0a 20 20  BLE t3(i, j);.  
1c00: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 33    INSERT INTO t3
1c10: 20 56 41 4c 55 45 53 28 27 6f 27 2c 20 27 74 27   VALUES('o', 't'
1c20: 29 3b 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e  );.    INSERT IN
1c30: 54 4f 20 74 33 20 56 41 4c 55 45 53 28 27 74 27  TO t3 VALUES('t'
1c40: 2c 20 27 66 27 29 3b 0a 20 20 20 20 42 45 47 49  , 'f');.    BEGI
1c50: 4e 3b 0a 20 20 20 20 20 20 53 45 4c 45 43 54 20  N;.      SELECT 
1c60: 2a 20 46 52 4f 4d 20 74 33 3b 0a 20 20 7d 20 7b  * FROM t3;.  } {
1c70: 77 61 6c 20 6f 20 74 20 74 20 66 7d 0a 0a 20 20  wal o t t f}..  
1c80: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 34 2e 31 2e  do_test $tn.4.1.
1c90: 31 20 7b 0a 20 20 20 20 73 65 74 20 73 6e 61 70  1 {.    set snap
1ca0: 73 68 6f 74 20 5b 73 6e 61 70 73 68 6f 74 5f 67  shot [snapshot_g
1cb0: 65 74 20 64 62 20 6d 61 69 6e 5d 0a 20 20 20 20  et db main].    
1cc0: 65 78 65 63 73 71 6c 20 43 4f 4d 4d 49 54 0a 20  execsql COMMIT. 
1cd0: 20 7d 20 7b 7d 0a 20 20 64 6f 5f 74 65 73 74 20   } {}.  do_test 
1ce0: 24 74 6e 2e 34 2e 31 2e 32 20 7b 0a 20 20 20 20  $tn.4.1.2 {.    
1cf0: 65 78 65 63 73 71 6c 20 7b 20 0a 20 20 20 20 20  execsql { .     
1d00: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 33 20   INSERT INTO t3 
1d10: 56 41 4c 55 45 53 28 27 66 27 2c 20 27 73 27 29  VALUES('f', 's')
1d20: 3b 20 0a 20 20 20 20 20 20 42 45 47 49 4e 3b 0a  ; .      BEGIN;.
1d30: 20 20 20 20 7d 0a 20 20 20 20 73 6e 61 70 73 68      }.    snapsh
1d40: 6f 74 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20  ot_open db main 
1d50: 24 73 6e 61 70 73 68 6f 74 0a 20 20 20 20 65 78  $snapshot.    ex
1d60: 65 63 73 71 6c 20 7b 20 53 45 4c 45 43 54 20 2a  ecsql { SELECT *
1d70: 20 46 52 4f 4d 20 74 33 20 7d 0a 20 20 7d 20 7b   FROM t3 }.  } {
1d80: 6f 20 74 20 74 20 66 7d 0a 0a 20 20 64 6f 5f 74  o t t f}..  do_t
1d90: 65 73 74 20 24 74 6e 2e 34 2e 31 2e 33 20 7b 0a  est $tn.4.1.3 {.
1da0: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20 0a 20      execsql { . 
1db0: 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20       COMMIT;.   
1dc0: 20 20 20 50 52 41 47 4d 41 20 77 61 6c 5f 63 68     PRAGMA wal_ch
1dd0: 65 63 6b 70 6f 69 6e 74 3b 0a 20 20 20 20 20 20  eckpoint;.      
1de0: 42 45 47 49 4e 3b 0a 20 20 20 20 7d 0a 20 20 20  BEGIN;.    }.   
1df0: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 73 6e   list [catch {sn
1e00: 61 70 73 68 6f 74 5f 6f 70 65 6e 20 64 62 20 6d  apshot_open db m
1e10: 61 69 6e 20 24 73 6e 61 70 73 68 6f 74 7d 20 6d  ain $snapshot} m
1e20: 73 67 5d 20 24 6d 73 67 0a 20 20 7d 20 7b 31 20  sg] $msg.  } {1 
1e30: 53 51 4c 49 54 45 5f 45 52 52 4f 52 5f 53 4e 41  SQLITE_ERROR_SNA
1e40: 50 53 48 4f 54 7d 0a 20 20 64 6f 5f 74 65 73 74  PSHOT}.  do_test
1e50: 20 24 74 6e 2e 34 2e 31 2e 34 20 7b 0a 20 20 20   $tn.4.1.4 {.   
1e60: 20 73 6e 61 70 73 68 6f 74 5f 66 72 65 65 20 24   snapshot_free $
1e70: 73 6e 61 70 73 68 6f 74 0a 20 20 20 20 65 78 65  snapshot.    exe
1e80: 63 73 71 6c 20 43 4f 4d 4d 49 54 0a 20 20 7d 20  csql COMMIT.  } 
1e90: 7b 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74  {}..  do_test $t
1ea0: 6e 2e 34 2e 32 2e 31 20 7b 0a 20 20 20 20 65 78  n.4.2.1 {.    ex
1eb0: 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 49 4e  ecsql {.      IN
1ec0: 53 45 52 54 20 49 4e 54 4f 20 74 33 20 56 41 4c  SERT INTO t3 VAL
1ed0: 55 45 53 28 27 73 27 2c 20 27 65 27 29 3b 0a 20  UES('s', 'e');. 
1ee0: 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f       INSERT INTO
1ef0: 20 74 33 20 56 41 4c 55 45 53 28 27 6e 27 2c 20   t3 VALUES('n', 
1f00: 27 74 27 29 3b 0a 20 20 20 20 20 20 42 45 47 49  't');.      BEGI
1f10: 4e 3b 0a 20 20 20 20 20 20 20 20 53 45 4c 45 43  N;.        SELEC
1f20: 54 20 2a 20 46 52 4f 4d 20 74 33 3b 0a 20 20 20  T * FROM t3;.   
1f30: 20 7d 0a 20 20 7d 20 7b 6f 20 74 20 74 20 66 20   }.  } {o t t f 
1f40: 66 20 73 20 73 20 65 20 6e 20 74 7d 0a 20 20 64  f s s e n t}.  d
1f50: 6f 5f 74 65 73 74 20 24 74 6e 2e 34 2e 32 2e 32  o_test $tn.4.2.2
1f60: 20 7b 0a 20 20 20 20 73 65 74 20 73 6e 61 70 73   {.    set snaps
1f70: 68 6f 74 20 5b 73 6e 61 70 73 68 6f 74 5f 67 65  hot [snapshot_ge
1f80: 74 20 64 62 20 6d 61 69 6e 5d 0a 20 20 20 20 65  t db main].    e
1f90: 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 43  xecsql {.      C
1fa0: 4f 4d 4d 49 54 3b 0a 20 20 20 20 20 20 50 52 41  OMMIT;.      PRA
1fb0: 47 4d 41 20 77 61 6c 5f 63 68 65 63 6b 70 6f 69  GMA wal_checkpoi
1fc0: 6e 74 3b 0a 20 20 20 20 20 20 42 45 47 49 4e 3b  nt;.      BEGIN;
1fd0: 0a 20 20 20 20 7d 0a 20 20 20 20 73 6e 61 70 73  .    }.    snaps
1fe0: 68 6f 74 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e  hot_open db main
1ff0: 20 24 73 6e 61 70 73 68 6f 74 0a 20 20 20 20 65   $snapshot.    e
2000: 78 65 63 73 71 6c 20 7b 20 53 45 4c 45 43 54 20  xecsql { SELECT 
2010: 2a 20 46 52 4f 4d 20 74 33 20 7d 0a 20 20 7d 20  * FROM t3 }.  } 
2020: 7b 6f 20 74 20 74 20 66 20 66 20 73 20 73 20 65  {o t t f f s s e
2030: 20 6e 20 74 7d 0a 20 20 64 6f 5f 74 65 73 74 20   n t}.  do_test 
2040: 24 74 6e 2e 34 2e 32 2e 33 20 7b 0a 20 20 20 20  $tn.4.2.3 {.    
2050: 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20  execsql {.      
2060: 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 20 20 49 4e  COMMIT;.      IN
2070: 53 45 52 54 20 49 4e 54 4f 20 74 33 20 56 41 4c  SERT INTO t3 VAL
2080: 55 45 53 28 27 65 27 2c 20 27 74 27 29 3b 0a 20  UES('e', 't');. 
2090: 20 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20       BEGIN;.    
20a0: 7d 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63  }.    list [catc
20b0: 68 20 7b 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e  h {snapshot_open
20c0: 20 64 62 20 6d 61 69 6e 20 24 73 6e 61 70 73 68   db main $snapsh
20d0: 6f 74 7d 20 6d 73 67 5d 20 24 6d 73 67 0a 20 20  ot} msg] $msg.  
20e0: 7d 20 7b 31 20 53 51 4c 49 54 45 5f 45 52 52 4f  } {1 SQLITE_ERRO
20f0: 52 5f 53 4e 41 50 53 48 4f 54 7d 0a 20 20 64 6f  R_SNAPSHOT}.  do
2100: 5f 74 65 73 74 20 24 74 6e 2e 34 2e 32 2e 34 20  _test $tn.4.2.4 
2110: 7b 0a 20 20 20 20 73 6e 61 70 73 68 6f 74 5f 66  {.    snapshot_f
2120: 72 65 65 20 24 73 6e 61 70 73 68 6f 74 0a 20 20  ree $snapshot.  
2130: 7d 20 7b 7d 0a 0a 20 20 23 2d 2d 2d 2d 2d 2d 2d  } {}..  #-------
2140: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2150: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2160: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2170: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2180: 2d 2d 0a 20 20 23 20 43 68 65 63 6b 20 74 68 61  --.  # Check tha
2190: 74 20 53 51 4c 49 54 45 5f 42 55 53 59 20 69 73  t SQLITE_BUSY is
21a0: 20 72 65 74 75 72 6e 65 64 20 69 66 20 61 20 63   returned if a c
21b0: 68 65 63 6b 70 6f 69 6e 74 20 69 73 20 72 75 6e  heckpoint is run
21c0: 6e 69 6e 67 20 77 68 65 6e 0a 20 20 23 20 73 71  ning when.  # sq
21d0: 6c 69 74 65 33 5f 73 6e 61 70 73 68 6f 74 5f 6f  lite3_snapshot_o
21e0: 70 65 6e 28 29 20 69 73 20 63 61 6c 6c 65 64 2e  pen() is called.
21f0: 0a 20 20 23 0a 20 20 72 65 73 65 74 5f 64 62 0a  .  #.  reset_db.
2200: 20 20 64 62 20 63 6c 6f 73 65 0a 20 20 74 65 73    db close.  tes
2210: 74 76 66 73 20 74 76 66 73 0a 20 20 73 71 6c 69  tvfs tvfs.  sqli
2220: 74 65 33 20 64 62 20 74 65 73 74 2e 64 62 20 2d  te3 db test.db -
2230: 76 66 73 20 74 76 66 73 0a 0a 20 20 64 6f 5f 65  vfs tvfs..  do_e
2240: 78 65 63 73 71 6c 5f 74 65 73 74 20 24 74 6e 2e  xecsql_test $tn.
2250: 35 2e 31 20 7b 0a 20 20 20 20 50 52 41 47 4d 41  5.1 {.    PRAGMA
2260: 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d 20   journal_mode = 
2270: 77 61 6c 3b 0a 20 20 20 20 43 52 45 41 54 45 20  wal;.    CREATE 
2280: 54 41 42 4c 45 20 78 31 28 78 2c 20 78 78 2c 20  TABLE x1(x, xx, 
2290: 78 78 78 29 3b 0a 20 20 20 20 49 4e 53 45 52 54  xxx);.    INSERT
22a0: 20 49 4e 54 4f 20 78 31 20 56 41 4c 55 45 53 28   INTO x1 VALUES(
22b0: 27 7a 27 2c 20 27 7a 7a 27 2c 20 27 7a 7a 7a 27  'z', 'zz', 'zzz'
22c0: 29 3b 0a 20 20 20 20 42 45 47 49 4e 3b 0a 20 20  );.    BEGIN;.  
22d0: 20 20 20 20 53 45 4c 45 43 54 20 2a 20 46 52 4f      SELECT * FRO
22e0: 4d 20 78 31 3b 0a 20 20 7d 20 7b 77 61 6c 20 7a  M x1;.  } {wal z
22f0: 20 7a 7a 20 7a 7a 7a 7d 0a 0a 20 20 64 6f 5f 74   zz zzz}..  do_t
2300: 65 73 74 20 24 74 6e 2e 35 2e 32 20 7b 0a 20 20  est $tn.5.2 {.  
2310: 20 20 73 65 74 20 3a 3a 73 6e 61 70 73 68 6f 74    set ::snapshot
2320: 20 5b 73 6e 61 70 73 68 6f 74 5f 67 65 74 20 64   [snapshot_get d
2330: 62 20 6d 61 69 6e 5d 0a 20 20 20 20 73 71 6c 69  b main].    sqli
2340: 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62 20  te3 db2 test.db 
2350: 2d 76 66 73 20 74 76 66 73 0a 20 20 20 20 65 78  -vfs tvfs.    ex
2360: 65 63 73 71 6c 20 7b 0a 20 20 20 20 20 20 49 4e  ecsql {.      IN
2370: 53 45 52 54 20 49 4e 54 4f 20 78 31 20 56 41 4c  SERT INTO x1 VAL
2380: 55 45 53 28 27 61 27 2c 20 27 61 61 27 2c 20 27  UES('a', 'aa', '
2390: 61 61 61 27 29 3b 0a 20 20 20 20 20 20 43 4f 4d  aaa');.      COM
23a0: 4d 49 54 3b 0a 20 20 20 20 7d 0a 20 20 7d 20 7b  MIT;.    }.  } {
23b0: 7d 0a 0a 20 20 73 65 74 20 74 35 33 20 30 0a 20  }..  set t53 0. 
23c0: 20 70 72 6f 63 20 77 72 69 74 65 5f 63 61 6c 6c   proc write_call
23d0: 62 61 63 6b 20 7b 61 72 67 73 7d 20 7b 0a 20 20  back {args} {.  
23e0: 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 35 2e    do_test $tn.5.
23f0: 33 2e 5b 69 6e 63 72 20 3a 3a 74 35 33 5d 20 7b  3.[incr ::t53] {
2400: 0a 20 20 20 20 20 20 65 78 65 63 73 71 6c 20 42  .      execsql B
2410: 45 47 49 4e 0a 20 20 20 20 20 20 6c 69 73 74 20  EGIN.      list 
2420: 5b 63 61 74 63 68 20 7b 20 73 6e 61 70 73 68 6f  [catch { snapsho
2430: 74 5f 6f 70 65 6e 20 64 62 20 6d 61 69 6e 20 24  t_open db main $
2440: 3a 3a 73 6e 61 70 73 68 6f 74 20 7d 20 6d 73 67  ::snapshot } msg
2450: 5d 20 24 6d 73 67 0a 20 20 20 20 7d 20 7b 31 20  ] $msg.    } {1 
2460: 53 51 4c 49 54 45 5f 42 55 53 59 7d 0a 20 20 20  SQLITE_BUSY}.   
2470: 20 63 61 74 63 68 73 71 6c 20 43 4f 4d 4d 49 54   catchsql COMMIT
2480: 0a 20 20 7d 0a 0a 20 20 74 76 66 73 20 66 69 6c  .  }..  tvfs fil
2490: 74 65 72 20 78 57 72 69 74 65 0a 20 20 74 76 66  ter xWrite.  tvf
24a0: 73 20 73 63 72 69 70 74 20 77 72 69 74 65 5f 63  s script write_c
24b0: 61 6c 6c 62 61 63 6b 0a 20 20 64 62 32 20 65 76  allback.  db2 ev
24c0: 61 6c 20 7b 20 50 52 41 47 4d 41 20 77 61 6c 5f  al { PRAGMA wal_
24d0: 63 68 65 63 6b 70 6f 69 6e 74 20 7d 0a 20 20 64  checkpoint }.  d
24e0: 62 20 63 6c 6f 73 65 0a 20 20 64 62 32 20 63 6c  b close.  db2 cl
24f0: 6f 73 65 0a 20 20 74 76 66 73 20 64 65 6c 65 74  ose.  tvfs delet
2500: 65 0a 20 20 73 6e 61 70 73 68 6f 74 5f 66 72 65  e.  snapshot_fre
2510: 65 20 24 73 6e 61 70 73 68 6f 74 0a 0a 20 20 23  e $snapshot..  #
2520: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2560: 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 23 20 54 65  ---------.  # Te
2570: 73 74 20 74 68 61 74 20 73 71 6c 69 74 65 33 5f  st that sqlite3_
2580: 73 6e 61 70 73 68 6f 74 5f 67 65 74 28 29 20 6d  snapshot_get() m
2590: 61 79 20 62 65 20 63 61 6c 6c 65 64 20 69 6d 6d  ay be called imm
25a0: 65 64 69 61 74 65 6c 79 20 61 66 74 65 72 0a 20  ediately after. 
25b0: 20 23 20 22 42 45 47 49 4e 3b 20 50 52 41 47 4d   # "BEGIN; PRAGM
25c0: 41 20 75 73 65 72 5f 76 65 72 73 69 6f 6e 3b 22  A user_version;"
25d0: 2e 20 41 6e 64 20 74 68 61 74 20 73 71 6c 69 74  . And that sqlit
25e0: 65 33 5f 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e  e3_snapshot_open
25f0: 28 29 20 6d 61 79 0a 20 20 23 20 62 65 20 63 61  () may.  # be ca
2600: 6c 6c 65 64 20 61 66 74 65 72 20 6f 70 65 6e 69  lled after openi
2610: 6e 67 20 74 68 65 20 64 62 20 68 61 6e 64 6c 65  ng the db handle
2620: 20 61 6e 64 20 72 75 6e 6e 69 6e 67 20 74 68 65   and running the
2630: 20 73 63 72 69 70 74 0a 20 20 23 20 22 50 52 41   script.  # "PRA
2640: 47 4d 41 20 75 73 65 72 5f 76 65 72 73 69 6f 6e  GMA user_version
2650: 3b 20 42 45 47 49 4e 22 2e 0a 20 20 72 65 73 65  ; BEGIN"..  rese
2660: 74 5f 64 62 0a 20 20 64 6f 5f 65 78 65 63 73 71  t_db.  do_execsq
2670: 6c 5f 74 65 73 74 20 24 74 6e 2e 36 2e 31 20 7b  l_test $tn.6.1 {
2680: 0a 20 20 20 20 50 52 41 47 4d 41 20 6a 6f 75 72  .    PRAGMA jour
2690: 6e 61 6c 5f 6d 6f 64 65 20 3d 20 77 61 6c 3b 0a  nal_mode = wal;.
26a0: 20 20 20 20 43 52 45 41 54 45 20 54 41 42 4c 45      CREATE TABLE
26b0: 20 78 31 28 78 2c 20 78 78 2c 20 78 78 78 29 3b   x1(x, xx, xxx);
26c0: 0a 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54 4f  .    INSERT INTO
26d0: 20 78 31 20 56 41 4c 55 45 53 28 27 7a 27 2c 20   x1 VALUES('z', 
26e0: 27 7a 7a 27 2c 20 27 7a 7a 7a 27 29 3b 0a 20 20  'zz', 'zzz');.  
26f0: 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20 20 50    BEGIN;.      P
2700: 52 41 47 4d 41 20 75 73 65 72 5f 76 65 72 73 69  RAGMA user_versi
2710: 6f 6e 3b 0a 20 20 7d 20 7b 77 61 6c 20 30 7d 0a  on;.  } {wal 0}.
2720: 20 20 64 6f 5f 74 65 73 74 20 24 74 6e 2e 36 2e    do_test $tn.6.
2730: 32 20 7b 0a 20 20 20 20 73 65 74 20 3a 3a 73 6e  2 {.    set ::sn
2740: 61 70 73 68 6f 74 20 5b 73 6e 61 70 73 68 6f 74  apshot [snapshot
2750: 5f 67 65 74 20 64 62 20 6d 61 69 6e 5d 0a 20 20  _get db main].  
2760: 20 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20    execsql {.    
2770: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 78 31    INSERT INTO x1
2780: 20 56 41 4c 55 45 53 28 27 61 27 2c 20 27 61 61   VALUES('a', 'aa
2790: 27 2c 20 27 61 61 61 27 29 3b 0a 20 20 20 20 20  ', 'aaa');.     
27a0: 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 7d 0a 20   COMMIT;.    }. 
27b0: 20 7d 20 7b 7d 0a 20 20 64 6f 5f 74 65 73 74 20   } {}.  do_test 
27c0: 24 74 6e 2e 36 2e 33 20 7b 0a 20 20 20 20 73 71  $tn.6.3 {.    sq
27d0: 6c 69 74 65 33 20 64 62 32 20 74 65 73 74 2e 64  lite3 db2 test.d
27e0: 62 20 0a 20 20 20 20 64 62 32 20 65 76 61 6c 20  b .    db2 eval 
27f0: 22 50 52 41 47 4d 41 20 75 73 65 72 5f 76 65 72  "PRAGMA user_ver
2800: 73 69 6f 6e 20 3b 20 42 45 47 49 4e 22 0a 20 20  sion ; BEGIN".  
2810: 20 20 73 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 20    snapshot_open 
2820: 64 62 32 20 6d 61 69 6e 20 24 3a 3a 73 6e 61 70  db2 main $::snap
2830: 73 68 6f 74 0a 20 20 20 20 64 62 32 20 65 76 61  shot.    db2 eva
2840: 6c 20 7b 20 53 45 4c 45 43 54 20 2a 20 46 52 4f  l { SELECT * FRO
2850: 4d 20 78 31 20 7d 0a 20 20 7d 20 7b 7a 20 7a 7a  M x1 }.  } {z zz
2860: 20 7a 7a 7a 7d 0a 20 20 64 6f 5f 74 65 73 74 20   zzz}.  do_test 
2870: 24 74 6e 2e 36 2e 34 20 7b 0a 20 20 20 20 64 62  $tn.6.4 {.    db
2880: 32 20 63 6c 6f 73 65 0a 20 20 20 20 73 71 6c 69  2 close.    sqli
2890: 74 65 33 20 64 62 32 20 74 65 73 74 2e 64 62 20  te3 db2 test.db 
28a0: 0a 20 20 20 20 64 62 32 20 65 76 61 6c 20 22 50  .    db2 eval "P
28b0: 52 41 47 4d 41 20 61 70 70 6c 69 63 61 74 69 6f  RAGMA applicatio
28c0: 6e 5f 69 64 22 0a 20 20 20 20 64 62 32 20 65 76  n_id".    db2 ev
28d0: 61 6c 20 22 42 45 47 49 4e 22 0a 20 20 20 20 73  al "BEGIN".    s
28e0: 6e 61 70 73 68 6f 74 5f 6f 70 65 6e 20 64 62 32  napshot_open db2
28f0: 20 6d 61 69 6e 20 24 3a 3a 73 6e 61 70 73 68 6f   main $::snapsho
2900: 74 0a 20 20 20 20 64 62 32 20 65 76 61 6c 20 7b  t.    db2 eval {
2910: 20 53 45 4c 45 43 54 20 2a 20 46 52 4f 4d 20 78   SELECT * FROM x
2920: 31 20 7d 0a 20 20 7d 20 7b 7a 20 7a 7a 20 7a 7a  1 }.  } {z zz zz
2930: 7a 7d 0a 0a 20 20 64 6f 5f 74 65 73 74 20 24 74  z}..  do_test $t
2940: 6e 2e 36 2e 35 20 7b 0a 20 20 20 20 64 62 32 20  n.6.5 {.    db2 
2950: 63 6c 6f 73 65 0a 20 20 20 20 73 71 6c 69 74 65  close.    sqlite
2960: 33 20 64 62 32 20 74 65 73 74 2e 64 62 20 0a 20  3 db2 test.db . 
2970: 20 20 20 64 62 32 20 65 76 61 6c 20 22 42 45 47     db2 eval "BEG
2980: 49 4e 22 0a 20 20 20 20 6c 69 73 74 20 5b 63 61  IN".    list [ca
2990: 74 63 68 20 7b 73 6e 61 70 73 68 6f 74 5f 6f 70  tch {snapshot_op
29a0: 65 6e 20 64 62 32 20 6d 61 69 6e 20 24 3a 3a 73  en db2 main $::s
29b0: 6e 61 70 73 68 6f 74 7d 20 6d 73 67 5d 20 24 6d  napshot} msg] $m
29c0: 73 67 0a 20 20 7d 20 7b 31 20 53 51 4c 49 54 45  sg.  } {1 SQLITE
29d0: 5f 45 52 52 4f 52 7d 0a 0a 20 20 73 6e 61 70 73  _ERROR}..  snaps
29e0: 68 6f 74 5f 66 72 65 65 20 24 73 6e 61 70 73 68  hot_free $snapsh
29f0: 6f 74 0a 0a 20 20 23 2d 2d 2d 2d 2d 2d 2d 2d 2d  ot..  #---------
2a00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d  ----------------
2a40: 0a 20 20 23 20 54 68 65 20 66 6f 6c 6c 6f 77 69  .  # The followi
2a50: 6e 67 20 74 65 73 74 73 20 69 6e 76 65 73 74 69  ng tests investi
2a60: 67 61 74 65 20 74 68 65 20 73 71 6c 69 74 65 33  gate the sqlite3
2a70: 5f 73 6e 61 70 73 68 6f 74 5f 63 6d 70 28 29 20  _snapshot_cmp() 
2a80: 41 50 49 2e 0a 20 20 23 0a 0a 20 20 23 20 43 6f  API..  #..  # Co
2a90: 6d 70 61 72 65 20 73 6e 61 70 73 68 6f 74 73 20  mpare snapshots 
2aa0: 24 70 31 20 61 6e 64 20 24 70 32 2c 20 63 68 65  $p1 and $p2, che
2ab0: 63 6b 69 6e 67 20 74 68 61 74 20 74 68 65 20 72  cking that the r
2ac0: 65 73 75 6c 74 20 69 73 20 24 72 2e 0a 20 20 23  esult is $r..  #
2ad0: 0a 20 20 70 72 6f 63 20 64 6f 5f 73 6e 61 70 73  .  proc do_snaps
2ae0: 68 6f 74 5f 63 6d 70 5f 74 65 73 74 20 7b 74 6e  hot_cmp_test {tn
2af0: 20 70 31 20 70 32 20 72 7d 20 7b 0a 20 20 20 20   p1 p2 r} {.    
2b00: 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f  uplevel [list do
2b10: 5f 74 65 73 74 20 24 74 6e 2e 31 20 5b 6c 69 73  _test $tn.1 [lis
2b20: 74 20 73 6e 61 70 73 68 6f 74 5f 63 6d 70 20 24  t snapshot_cmp $
2b30: 70 31 20 24 70 32 5d 20 24 72 5d 0a 20 20 20 20  p1 $p2] $r].    
2b40: 75 70 6c 65 76 65 6c 20 5b 6c 69 73 74 20 64 6f  uplevel [list do
2b50: 5f 74 65 73 74 20 24 74 6e 2e 32 20 5b 6c 69 73  _test $tn.2 [lis
2b60: 74 20 73 6e 61 70 73 68 6f 74 5f 63 6d 70 20 24  t snapshot_cmp $
2b70: 70 32 20 24 70 31 5d 20 5b 65 78 70 72 20 24 72  p2 $p1] [expr $r
2b80: 2a 2d 31 5d 5d 0a 20 20 20 20 75 70 6c 65 76 65  *-1]].    upleve
2b90: 6c 20 5b 6c 69 73 74 20 64 6f 5f 74 65 73 74 20  l [list do_test 
2ba0: 24 74 6e 2e 33 20 5b 6c 69 73 74 20 73 6e 61 70  $tn.3 [list snap
2bb0: 73 68 6f 74 5f 63 6d 70 20 24 70 31 20 24 70 31  shot_cmp $p1 $p1
2bc0: 5d 20 30 5d 0a 20 20 20 20 75 70 6c 65 76 65 6c  ] 0].    uplevel
2bd0: 20 5b 6c 69 73 74 20 64 6f 5f 74 65 73 74 20 24   [list do_test $
2be0: 74 6e 2e 34 20 5b 6c 69 73 74 20 73 6e 61 70 73  tn.4 [list snaps
2bf0: 68 6f 74 5f 63 6d 70 20 24 70 32 20 24 70 32 5d  hot_cmp $p2 $p2]
2c00: 20 30 5d 0a 20 20 7d 0a 0a 20 20 63 61 74 63 68   0].  }..  catch
2c10: 20 7b 20 64 62 32 20 63 6c 6f 73 65 20 7d 0a 20   { db2 close }. 
2c20: 20 72 65 73 65 74 5f 64 62 0a 0a 20 20 64 6f 5f   reset_db..  do_
2c30: 65 78 65 63 73 71 6c 5f 74 65 73 74 20 24 74 6e  execsql_test $tn
2c40: 2e 37 2e 31 20 7b 0a 20 20 20 20 50 52 41 47 4d  .7.1 {.    PRAGM
2c50: 41 20 6a 6f 75 72 6e 61 6c 5f 6d 6f 64 65 20 3d  A journal_mode =
2c60: 20 77 61 6c 3b 0a 20 20 20 20 43 52 45 41 54 45   wal;.    CREATE
2c70: 20 54 41 42 4c 45 20 74 31 28 78 29 3b 0a 20 20   TABLE t1(x);.  
2c80: 7d 20 77 61 6c 0a 0a 20 20 64 6f 5f 74 65 73 74  } wal..  do_test
2c90: 20 24 74 6e 2e 37 2e 31 2e 32 20 7b 0a 20 20 20   $tn.7.1.2 {.   
2ca0: 20 65 78 65 63 73 71 6c 20 7b 20 42 45 47 49 4e   execsql { BEGIN
2cb0: 20 3b 20 50 52 41 47 4d 41 20 61 70 70 6c 69 63   ; PRAGMA applic
2cc0: 61 74 69 6f 6e 5f 69 64 20 7d 0a 20 20 20 20 73  ation_id }.    s
2cd0: 65 74 20 70 31 20 5b 73 6e 61 70 73 68 6f 74 5f  et p1 [snapshot_
2ce0: 67 65 74 20 64 62 20 6d 61 69 6e 5d 0a 20 20 20  get db main].   
2cf0: 20 65 78 65 63 73 71 6c 20 7b 0a 20 20 20 20 20   execsql {.     
2d00: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
2d10: 56 41 4c 55 45 53 28 31 30 29 3b 0a 20 20 20 20  VALUES(10);.    
2d20: 20 20 43 4f 4d 4d 49 54 3b 0a 20 20 20 20 7d 0a    COMMIT;.    }.
2d30: 20 20 20 20 65 78 65 63 73 71 6c 20 7b 20 42 45      execsql { BE
2d40: 47 49 4e 20 3b 20 50 52 41 47 4d 41 20 61 70 70  GIN ; PRAGMA app
2d50: 6c 69 63 61 74 69 6f 6e 5f 69 64 20 7d 0a 20 20  lication_id }.  
2d60: 20 20 73 65 74 20 70 32 20 5b 73 6e 61 70 73 68    set p2 [snapsh
2d70: 6f 74 5f 67 65 74 20 64 62 20 6d 61 69 6e 5d 0a  ot_get db main].
2d80: 20 20 20 20 65 78 65 63 73 71 6c 20 43 4f 4d 4d      execsql COMM
2d90: 49 54 0a 20 20 7d 20 7b 7d 0a 0a 20 20 64 6f 5f  IT.  } {}..  do_
2da0: 73 6e 61 70 73 68 6f 74 5f 63 6d 70 5f 74 65 73  snapshot_cmp_tes
2db0: 74 20 24 74 6e 2e 37 2e 31 2e 33 20 24 70 31 20  t $tn.7.1.3 $p1 
2dc0: 24 70 32 20 2d 31 0a 20 20 73 6e 61 70 73 68 6f  $p2 -1.  snapsho
2dd0: 74 5f 66 72 65 65 20 24 70 31 0a 20 20 73 6e 61  t_free $p1.  sna
2de0: 70 73 68 6f 74 5f 66 72 65 65 20 24 70 32 0a 0a  pshot_free $p2..
2df0: 20 20 64 6f 5f 65 78 65 63 73 71 6c 5f 74 65 73    do_execsql_tes
2e00: 74 20 24 74 6e 2e 37 2e 32 2e 31 20 7b 0a 20 20  t $tn.7.2.1 {.  
2e10: 20 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31    INSERT INTO t1
2e20: 20 56 41 4c 55 45 53 28 31 31 29 3b 0a 20 20 20   VALUES(11);.   
2e30: 20 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20   INSERT INTO t1 
2e40: 56 41 4c 55 45 53 28 31 32 29 3b 0a 20 20 20 20  VALUES(12);.    
2e50: 49 4e 53 45 52 54 20 49 4e 54 4f 20 74 31 20 56  INSERT INTO t1 V
2e60: 41 4c 55 45 53 28 31 33 29 3b 0a 20 20 20 20 42  ALUES(13);.    B
2e70: 45 47 49 4e 3b 20 0a 20 20 20 20 20 20 50 52 41  EGIN; .      PRA
2e80: 47 4d 41 20 61 70 70 6c 69 63 61 74 69 6f 6e 5f  GMA application_
2e90: 69 64 3b 0a 20 20 7d 20 7b 30 7d 0a 20 20 64 6f  id;.  } {0}.  do
2ea0: 5f 74 65 73 74 20 24 74 6e 2e 37 2e 32 2e 32 20  _test $tn.7.2.2 
2eb0: 7b 0a 20 20 20 20 73 65 74 20 70 31 20 5b 73 6e  {.    set p1 [sn
2ec0: 61 70 73 68 6f 74 5f 67 65 74 20 64 62 20 6d 61  apshot_get db ma
2ed0: 69 6e 5d 0a 20 20 20 20 65 78 65 63 73 71 6c 20  in].    execsql 
2ee0: 7b 0a 20 20 20 20 20 20 43 4f 4d 4d 49 54 3b 0a  {.      COMMIT;.
2ef0: 20 20 20 20 20 20 49 4e 53 45 52 54 20 49 4e 54        INSERT INT
2f00: 4f 20 74 31 20 56 41 4c 55 45 53 28 31 34 29 3b  O t1 VALUES(14);
2f10: 0a 20 20 20 20 20 20 50 52 41 47 4d 41 20 77 61  .      PRAGMA wa
2f20: 6c 5f 63 68 65 63 6b 70 6f 69 6e 74 3b 0a 20 20  l_checkpoint;.  
2f30: 20 20 20 20 42 45 47 49 4e 3b 0a 20 20 20 20 20      BEGIN;.     
2f40: 20 20 20 50 52 41 47 4d 41 20 61 70 70 6c 69 63     PRAGMA applic
2f50: 61 74 69 6f 6e 5f 69 64 3b 0a 20 20 20 20 7d 0a  ation_id;.    }.
2f60: 20 20 20 20 73 65 74 20 70 32 20 5b 73 6e 61 70      set p2 [snap
2f70: 73 68 6f 74 5f 67 65 74 20 64 62 20 6d 61 69 6e  shot_get db main
2f80: 5d 0a 20 20 20 20 65 78 65 63 73 71 6c 20 43 4f  ].    execsql CO
2f90: 4d 4d 49 54 0a 20 20 7d 20 7b 7d 0a 0a 20 20 64  MMIT.  } {}..  d
2fa0: 6f 5f 73 6e 61 70 73 68 6f 74 5f 63 6d 70 5f 74  o_snapshot_cmp_t
2fb0: 65 73 74 20 24 74 6e 2e 37 2e 32 2e 33 20 24 70  est $tn.7.2.3 $p
2fc0: 31 20 24 70 32 20 2d 31 0a 20 20 73 6e 61 70 73  1 $p2 -1.  snaps
2fd0: 68 6f 74 5f 66 72 65 65 20 24 70 32 0a 0a 20 20  hot_free $p2..  
2fe0: 64 6f 5f 74 65 73 74 20 24 74 6e 2e 37 2e 33 2e  do_test $tn.7.3.
2ff0: 31 20 7b 0a 20 20 20 20 65 78 65 63 73 71 6c 20  1 {.    execsql 
3000: 7b 0a 20 20 20 20 20 20 49 4e 53 45 52 54 20 49  {.      INSERT I
3010: 4e 54 4f 20 74 31 20 56 41 4c 55 45 53 28 31 34  NTO t1 VALUES(14
3020: 29 3b 0a 20 20 20 20 20 20 42 45 47 49 4e 3b 0a  );.      BEGIN;.
3030: 20 20 20 20 20 20 20 20 50 52 41 47 4d 41 20 61          PRAGMA a
3040: 70 70 6c 69 63 61 74 69 6f 6e 5f 69 64 3b 0a 20  pplication_id;. 
3050: 20 20 20 7d 0a 20 20 20 20 73 65 74 20 70 32 20     }.    set p2 
3060: 5b 73 6e 61 70 73 68 6f 74 5f 67 65 74 20 64 62  [snapshot_get db
3070: 20 6d 61 69 6e 5d 0a 20 20 20 20 65 78 65 63 73   main].    execs
3080: 71 6c 20 43 4f 4d 4d 49 54 0a 20 20 7d 20 7b 7d  ql COMMIT.  } {}
3090: 0a 0a 20 20 64 6f 5f 73 6e 61 70 73 68 6f 74 5f  ..  do_snapshot_
30a0: 63 6d 70 5f 74 65 73 74 20 24 74 6e 2e 37 2e 33  cmp_test $tn.7.3
30b0: 2e 32 20 24 70 31 20 24 70 32 20 2d 31 0a 20 20  .2 $p1 $p2 -1.  
30c0: 73 6e 61 70 73 68 6f 74 5f 66 72 65 65 20 24 70  snapshot_free $p
30d0: 31 0a 20 20 73 6e 61 70 73 68 6f 74 5f 66 72 65  1.  snapshot_fre
30e0: 65 20 24 70 32 0a 7d 0a 0a 66 69 6e 69 73 68 5f  e $p2.}..finish_
30f0: 74 65 73 74 0a                                   test.