Import SQLite 3.7.6.3.

third_party/sqlite/src/test/savepoint2.test

 # 2008 December 15
 #
 # The author disclaims copyright to this source code.  In place of
 # a legal notice, here is a blessing:
 #
 #    May you do good and not evil.
 #    May you find forgiveness for yourself and forgive others.
 #    May you share freely, never taking more than you give.
 #
 #***********************************************************************
 #
 # $Id: savepoint2.test,v 1.5 2009/06/05 17:09:12 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
+
 # Tests in this file are quite similar to those run by trans.test and
 # avtrans.test.
 #
 
 proc signature {} {
   return [db eval {SELECT count(*), md5sum(x) FROM t3}]
 }
 
 do_test savepoint2-1 {
+  wal_set_journal_mode
   execsql {
     PRAGMA cache_size=10;
     BEGIN;
     CREATE TABLE t3(x TEXT);
     INSERT INTO t3 VALUES(randstr(10,400));
     INSERT INTO t3 VALUES(randstr(10,400));
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     INSERT INTO t3 SELECT randstr(10,400) FROM t3;
     COMMIT;
     SELECT count(*) FROM t3;
   }
 } {1024}
+wal_check_journal_mode savepoint2-1.1
 
 unset -nocomplain ::sig
 unset -nocomplain SQL
 
 set iterations 20
 
 set SQL(1) {
   DELETE FROM t3 WHERE random()%10!=0;
   INSERT INTO t3 SELECT randstr(10,10)||x FROM t3;
   INSERT INTO t3 SELECT randstr(10,10)||x FROM t3;
@@ skipping 78 matching lines @@
   # The transaction being committed here may have been opened normally using
   # "BEGIN", or may have been opened using a transaction savepoint created
   # by the "SAVEPOINT one" statement.
   #
   do_test savepoint2-$ii.6 {
     execsql $SQL(4)
     execsql COMMIT
     sqlite3_get_autocommit db
   } {1}
   integrity_check savepoint2-$ii.6.1
+
+  # Check that the connection is still running in WAL mode.
+  wal_check_journal_mode savepoint2-$ii.7
 }
 
 unset -nocomplain ::sig
 unset -nocomplain SQL
 
 finish_test