Import SQLite 3.7.6.3.

third_party/sqlite/src/test/avtrans.test

 # 2001 September 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.
 #
 #***********************************************************************
 # This file implements regression tests for SQLite library.  This
 # file is a copy of "trans.test" modified to run under autovacuum mode.
 # the point is to stress the autovacuum logic and try to get it to fail.
 #
 # $Id: avtrans.test,v 1.6 2007/09/12 17:01:45 danielk1977 Exp $
 
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 
 
 # Create several tables to work with.
 #
 do_test avtrans-1.0 {
-  execsql {
-    PRAGMA auto_vacuum=ON;
+  execsql { PRAGMA auto_vacuum=ON }
+  wal_set_journal_mode
+  execsql { 
     CREATE TABLE one(a int PRIMARY KEY, b text);
     INSERT INTO one VALUES(1,'one');
     INSERT INTO one VALUES(2,'two');
     INSERT INTO one VALUES(3,'three');
     SELECT b FROM one ORDER BY a;
   }
 } {one two three}
 do_test avtrans-1.1 {
   execsql {
     CREATE TABLE two(a int PRIMARY KEY, b text);
     INSERT INTO two VALUES(1,'I');
     INSERT INTO two VALUES(5,'V');
     INSERT INTO two VALUES(10,'X');
     SELECT b FROM two ORDER BY a;
   }
 } {I V X}
 do_test avtrans-1.9 {
   sqlite3 altdb test.db
   execsql {SELECT b FROM one ORDER BY a} altdb
 } {one two three}
 do_test avtrans-1.10 {
   execsql {SELECT b FROM two ORDER BY a} altdb
 } {I V X}
 integrity_check avtrans-1.11
+wal_check_journal_mode avtrans-1.12
 
 # Basic transactions
 #
 do_test avtrans-2.1 {
   set v [catch {execsql {BEGIN}} msg]
   lappend v $msg
 } {0 {}}
 do_test avtrans-2.2 {
   set v [catch {execsql {END}} msg]
   lappend v $msg
@@ skipping 16 matching lines @@
 } {0 {}}
 do_test avtrans-2.10 {
   execsql {
     BEGIN;
     SELECT a FROM one ORDER BY a;
     SELECT a FROM two ORDER BY a;
     END;
   }
 } {1 2 3 1 5 10}
 integrity_check avtrans-2.11
+wal_check_journal_mode avtrans-2.12
 
 # Check the locking behavior
 #
 sqlite3_soft_heap_limit 0
 do_test avtrans-3.1 {
   execsql {
     BEGIN;
     UPDATE one SET a = 0 WHERE 0;
     SELECT a FROM one ORDER BY a;
   }
@@ skipping 58 matching lines @@
     SELECT a FROM two ORDER BY a;
   } db} msg]
   lappend v $msg
 } {0 {1 4 5 10}}
 do_test avtrans-3.14 {
   set v [catch {execsql {
     SELECT a FROM one ORDER BY a;
   } db} msg]
   lappend v $msg
 } {0 {1 2 3 4}}
-sqlite3_soft_heap_limit $soft_limit
+sqlite3_soft_heap_limit $cmdlinearg(soft-heap-limit)
 integrity_check avtrans-3.15
 
 do_test avtrans-4.1 {
   set v [catch {execsql {
     COMMIT;
   } db} msg]
   lappend v $msg
 } {1 {cannot commit - no transaction is active}}
 do_test avtrans-4.2 {
   set v [catch {execsql {
@@ skipping 671 matching lines @@
 #
 proc signature {} {
   return [db eval {SELECT count(*), md5sum(x) FROM t3}]
 }
 
 # Repeat the following group of tests 20 times for quick testing and
 # 40 times for full testing.  Each iteration of the test makes table
 # t3 a little larger, and thus takes a little longer, so doing 40 tests
 # is more than 2.0 times slower than doing 20 tests.  Considerably more.
 #
-if {[info exists ISQUICK]} {
+if {[info exists G(isquick)]} {
   set limit 20
 } else {
   set limit 40
 }
 
 # Do rollbacks.  Make sure the signature does not change.
 #
 for {set i 2} {$i<=$limit} {incr i} {
   set ::sig [signature]
   set cnt [lindex $::sig 0]
@@ skipping 38 matching lines @@
       ifcapable pager_pragmas {
         do_test avtrans-9.$i.5-$cnt {
            expr {$sqlite_fullsync_count>0}
         } [expr {$i%2==0}]
       } else {
         do_test avtrans-9.$i.5-$cnt {
            expr {$sqlite_fullsync_count==0}
         } {1}
       }
     }
+    wal_check_journal_mode avtrans-9.$i-6.$cnt
   }
   set ::pager_old_format 0
 }
 integrity_check avtrans-10.1
+wal_check_journal_mode avtrans-10.2
    
 finish_test