[sql] Import SQLite 3.17.0.

third_party/sqlite/src/test/wal5.test

 # 2010 April 13
 #
 # 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.  The
 # focus of this file is testing the operation of "blocking-checkpoint"
 # operations.
 #
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
 source $testdir/lock_common.tcl
 source $testdir/wal_common.tcl
 ifcapable !wal {finish_test ; return }
+do_not_use_codec
 
 set testprefix wal5
 
 proc db_page_count  {{file test.db}} { expr [file size $file] / 1024 }
 proc wal_page_count {{file test.db}} { wal_frame_count ${file}-wal 1024 }
 
 
 # A checkpoint may be requested either using the C API or by executing
 # an SQL PRAGMA command. To test both methods, all tests in this file are 
 # run twice - once using each method to request checkpoints.
@@ skipping 102 matching lines @@
     } {6 12 6}
     do_test 1.$tn.6 {
       set ::nBusyHandler 0
       sql1 { INSERT INTO t1 VALUES(5, zeroblob(1200)) }
       list [db_page_count] [wal_page_count] $::nBusyHandler
     } {6 12 0}
 
     do_test 1.$tn.7 {
       reopen_all
       list [db_page_count] [wal_page_count] $::nBusyHandler
-    } {7 0 0}
+    } [expr {[nonzero_reserved_bytes]?"/# # 0/":"7 0 0"}]
 
     do_test 1.$tn.8  { sql2 { BEGIN ; SELECT x FROM t1 } } {1 2 3 4 5}
     do_test 1.$tn.9  {
       sql1 { INSERT INTO t1 VALUES(6, zeroblob(1200)) }
       list [db_page_count] [wal_page_count] $::nBusyHandler
-    } {7 5 0}
+    } [expr {[nonzero_reserved_bytes]?"/# # #/":"7 5 0"}]
     do_test 1.$tn.10 { sql3 { BEGIN ; SELECT x FROM t1 } } {1 2 3 4 5 6}
 
     set ::busy_handler_script { 
       if {$n==5} { sql2 COMMIT } 
       if {$n==6} { set ::db_file_size [db_page_count] }
       if {$n==7} { sql3 COMMIT }
     }
     do_test 1.$tn.11 {
       code1 { do_wal_checkpoint db -mode restart }
       list [db_page_count] [wal_page_count] $::nBusyHandler
-    } {10 5 8}
+    } [expr {[nonzero_reserved_bytes]?"/# # #/":"10 5 8"}]
     do_test 1.$tn.12 { set ::db_file_size } 10
   }
 
   #-------------------------------------------------------------------------
   # This block of tests explores checkpoint operations on more than one 
   # database file.
   #
   proc setup_and_attach_aux {} {
     sql1 { ATTACH 'test.db2' AS aux }
     sql2 { ATTACH 'test.db2' AS aux }
@@ skipping 297 matching lines @@
     do_test 5.$tn.19 { file size test.db-wal } [wal_file_size 4 1024]
 
     do_test 5.$tn.20 { do_wal_checkpoint db -mode truncate } {0 0 0}
     do_test 5.$tn.21 { file size test.db-wal } 0
   }
 
 }
 
 
 finish_test