third_party/sqlite/src/test/zerodamage.test

   1 # 2011 December 21
   2 #
   3 # The author disclaims copyright to this source code.  In place of
   4 # a legal notice, here is a blessing:
   5 #
   6 #    May you do good and not evil.
   7 #    May you find forgiveness for yourself and forgive others.
   8 #    May you share freely, never taking more than you give.
   9 #
  10 #***********************************************************************
  11 #
  12 # This file implements tests of the SQLITE_IOCAP_POWERSAFE_OVERWRITE property
  13 # and the SQLITE_FCNTL_POWERSAFE_OVERWRITE file-control for manipulating it.
  14 #
  15 # The name of this file comes from the fact that we used to call the
  16 # POWERSAFE_OVERWRITE property ZERO_DAMAGE.
  17 #
  18
  19 set testdir [file dirname $argv0]
  20 source $testdir/tester.tcl
  21 set testprefix zerodamage
  22
  23 ifcapable !vtab {
  24   finish_test
  25   return
  26 }
  27
  28 # POWERSAFE_OVERWRITE defaults to true
  29 #
  30 do_test zerodamage-1.0 {
  31   file_control_powersafe_overwrite db -1
  32 } {0 1}
  33
  34 # Check the ability to turn zero-damage on and off.
  35 #
  36 do_test zerodamage-1.1 {
  37   file_control_powersafe_overwrite db 0
  38   file_control_powersafe_overwrite db -1
  39 } {0 0}
  40 do_test zerodamage-1.2 {
  41   file_control_powersafe_overwrite db 1
  42   file_control_powersafe_overwrite db -1
  43 } {0 1}
  44
  45 # Run a transaction with zero-damage on, a small page size and a much larger
  46 # sectorsize.  Verify that the maximum journal size is small - that the
  47 # rollback journal is not being padded.
  48 #
  49 do_test zerodamage-2.0 {
  50   db close
  51   testvfs tv -default 1
  52   tv sectorsize 8192
  53   sqlite3 db file:test.db?psow=TRUE -uri 1
  54   unset -nocomplain ::max_journal_size
  55   set ::max_journal_size 0
  56   proc xDeleteCallback {method file args} {
  57     set sz [file size $file]
  58     if {$sz>$::max_journal_size} {set ::max_journal_size $sz}
  59   }
  60   tv filter xDelete
  61   tv script xDeleteCallback
  62   load_static_extension db wholenumber
  63   db eval {
  64     PRAGMA page_size=1024;
  65     PRAGMA journal_mode=DELETE;
  66     PRAGMA cache_size=5;
  67     CREATE VIRTUAL TABLE nums USING wholenumber;
  68     CREATE TABLE t1(x, y);
  69     INSERT INTO t1 SELECT value, randomblob(100) FROM nums
  70                     WHERE value BETWEEN 1 AND 400;
  71   }
  72   set ::max_journal_size 0
  73   db eval {
  74     UPDATE t1 SET y=randomblob(50) WHERE x=123;
  75   }
  76   concat [file_control_powersafe_overwrite db -1] [set ::max_journal_size]
  77 } {0 1 2576}
  78
  79 # Repeat the previous step with zero-damage turned off.  This time the
  80 # maximum rollback journal size should be much larger.
  81 #
  82 do_test zerodamage-2.1 {
  83   set ::max_journal_size 0
  84   db close
  85   sqlite3 db file:test.db?psow=FALSE -uri 1
  86   db eval {
  87     UPDATE t1 SET y=randomblob(50) WHERE x=124;
  88   }
  89   concat [file_control_powersafe_overwrite db -1] [set ::max_journal_size]
  90 } {0 0 24704}
  91
  92 ifcapable wal {
  93   # Run a WAL-mode transaction with POWERSAFE_OVERWRITE on to verify that the
  94   # WAL file does not get too big.
  95   #
  96   do_test zerodamage-3.0 {
  97     db eval {
  98        PRAGMA journal_mode=WAL;
  99     }
 100     db close
 101     sqlite3 db file:test.db?psow=TRUE -uri 1
 102     db eval {
 103        UPDATE t1 SET y=randomblob(50) WHERE x=124;
 104     }
 105     file size test.db-wal
 106   } {1080}
 107
 108   # Repeat the previous with POWERSAFE_OVERWRITE off.  Verify that the WAL file
 109   # is padded.
 110   #
 111   do_test zerodamage-3.1 {
 112     db close
 113     sqlite3 db file:test.db?psow=FALSE -uri 1
 114     db eval {
 115        UPDATE t1 SET y=randomblob(50) WHERE x=124;
 116     }
 117     file size test.db-wal
 118   } {16800}
 119 }
 120
 121 finish_test