Import SQLite 3.7.6.3.

third_party/sqlite/src/test/savepoint6.test

 # 2009 January 3
 #
 # 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: savepoint6.test,v 1.4 2009/06/05 17:09:12 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 proc sql {zSql} {
   uplevel db eval [list $zSql]
   #puts stderr "$zSql ;"
 }
 
 set DATABASE_SCHEMA {
     PRAGMA auto_vacuum = incremental;
     CREATE TABLE t1(x, y);
     CREATE UNIQUE INDEX i1 ON t1(x);
     CREATE INDEX i2 ON t1(y);
 }
 
+if {0==[info exists ::G(savepoint6_iterations)]} {
+  set ::G(savepoint6_iterations) 1000
+}
+
 #--------------------------------------------------------------------------
 # In memory database state.
 #
 # ::lSavepoint is a list containing one entry for each active savepoint. The
 # first entry in the list corresponds to the most recently opened savepoint.
 # Each entry consists of two elements:
 #
 #   1. The savepoint name.
 #
 #   2. A serialized Tcl array representing the contents of table t1 at the
@@ skipping 176 matching lines @@
     rollback two
   release one
 
   execsql {SELECT count(*) FROM t1}
 } {44}
 
 foreach zSetup [list {
   set testname normal
   sqlite3 db test.db
 } {
+  if {[wal_is_wal_mode]} continue
   set testname tempdb
   sqlite3 db ""
 } {
-  if {[catch {set ::permutations_test_prefix} z] == 0 && $z eq "journaltest"} {
+  if {[permutation] eq "journaltest"} {
     continue
   }
   set testname nosync
   sqlite3 db test.db
   sql { PRAGMA synchronous = off }
 } {
   set testname smallcache
   sqlite3 db test.db
   sql { PRAGMA cache_size = 10 }
 }] {
 
   unset -nocomplain ::lSavepoint
   unset -nocomplain ::aEntry
 
   catch { db close }
-  file delete -force test.db
+  file delete -force test.db test.db-wal test.db-journal
   eval $zSetup
   sql $DATABASE_SCHEMA
 
+  wal_set_journal_mode
+
   do_test savepoint6-$testname.setup {
     savepoint one
     insert_rows [random_integers 100 1000]
     release one
     checkdb
   } {ok}
   
-  for {set i 0} {$i < 1000} {incr i} {
+  for {set i 0} {$i < $::G(savepoint6_iterations)} {incr i} {
     do_test savepoint6-$testname.$i.1 {
       savepoint_op
       checkdb
     } {ok}
   
     do_test savepoint6-$testname.$i.2 {
       database_op
       database_op
       checkdb
     } {ok}
   }
+
+  wal_check_journal_mode savepoint6-$testname.walok
 }
 
 unset -nocomplain ::lSavepoint
 unset -nocomplain ::aEntry
 
 finish_test