| OLD | NEW |
| (Empty) |
| 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 | |
| OLD | NEW |