Import SQLite 3.7.6.3.

third_party/sqlite/src/test/savepoint6.test

Index: third_party/sqlite/src/test/savepoint6.test
diff --git a/third_party/sqlite/src/test/savepoint6.test b/third_party/sqlite/src/test/savepoint6.test
index 33758b8648e72cc1160a77784e21c75e736d0e9e..60fde4c2df3e8d8cad5cdbbced4a73a5a4ccd42b 100644
--- a/third_party/sqlite/src/test/savepoint6.test
+++ b/third_party/sqlite/src/test/savepoint6.test
@@ -26,6 +26,10 @@ set DATABASE_SCHEMA {
     CREATE INDEX i2 ON t1(y);
 }
 
+if {0==[info exists ::G(savepoint6_iterations)]} {
+  set ::G(savepoint6_iterations) 1000
+}
+
 #--------------------------------------------------------------------------
 # In memory database state.
 #
@@ -222,10 +226,11 @@ 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
@@ -241,10 +246,12 @@ foreach zSetup [list {
   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]
@@ -252,7 +259,7 @@ foreach zSetup [list {
     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
@@ -264,6 +271,8 @@ foreach zSetup [list {
       checkdb
     } {ok}
   }
+
+  wal_check_journal_mode savepoint6-$testname.walok
 }
 
 unset -nocomplain ::lSavepoint