Return to zerodamage.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/zerodamage.test, revision 1.1.1.1

1.1       misho       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 wal5
                     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:   register_wholenumber_module db
                     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: # Run a WAL-mode transaction with POWERSAFE_OVERWRITE on to verify that the
                     93: # WAL file does not get too big.
                     94: #
                     95: do_test zerodamage-3.0 {
                     96:   db eval {
                     97:      PRAGMA journal_mode=WAL;
                     98:   }
                     99:   db close
                    100:   sqlite3 db file:test.db?psow=TRUE -uri 1
                    101:   db eval {
                    102:      UPDATE t1 SET y=randomblob(50) WHERE x=124;
                    103:   }
                    104:   file size test.db-wal
                    105: } {1080}
                    106: 
                    107: # Repeat the previous with POWERSAFE_OVERWRITE off.  Verify that the WAL file
                    108: # is padded.
                    109: #
                    110: do_test zerodamage-3.1 {
                    111:   db close
                    112:   sqlite3 db file:test.db?psow=FALSE -uri 1
                    113:   db eval {
                    114:      UPDATE t1 SET y=randomblob(50) WHERE x=124;
                    115:   }
                    116:   file size test.db-wal
                    117: } {8416}
                    118: 
                    119: finish_test