Return to pager2.test CVS log

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

Annotation of embedaddon/sqlite3/test/pager2.test, revision 1.1

1.1     ! misho       1: # 2010 June 15
        !             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: 
        !            13: set testdir [file dirname $argv0]
        !            14: source $testdir/tester.tcl
        !            15: source $testdir/lock_common.tcl
        !            16: source $testdir/malloc_common.tcl
        !            17: 
        !            18: set otn 0
        !            19: testvfs tv -default 1
        !            20: foreach code [list {
        !            21:   set s 512
        !            22: } {
        !            23:   set s 1024
        !            24:   set sql { PRAGMA journal_mode = memory }
        !            25: } {
        !            26:   set s 1024
        !            27:   set sql { 
        !            28:     PRAGMA journal_mode = memory;
        !            29:     PRAGMA locking_mode = exclusive;
        !            30:   }
        !            31: } {
        !            32:   set s 2048
        !            33:   tv devchar safe_append
        !            34: } {
        !            35:   set s 4096
        !            36: } {
        !            37:   set s 4096
        !            38:   set sql { PRAGMA journal_mode = WAL }
        !            39: } {
        !            40:   set s 4096
        !            41:   set sql { PRAGMA auto_vacuum = 1 }
        !            42: } {
        !            43:   set s 8192
        !            44:   set sql { PRAGMA synchronous = off }
        !            45: }] {
        !            46: 
        !            47:   incr otn
        !            48:   set sql ""
        !            49:   tv devchar {}
        !            50:   eval $code
        !            51:   tv sectorsize $s
        !            52:   
        !            53:   do_test pager2-1.$otn.0 {
        !            54:     faultsim_delete_and_reopen
        !            55:     execsql $sql
        !            56:     execsql {
        !            57:       PRAGMA cache_size = 10;
        !            58:       CREATE TABLE t1(i INTEGER PRIMARY KEY, j blob);
        !            59:     }
        !            60:   } {}
        !            61: 
        !            62:   set tn 0
        !            63:   set lowpoint 0
        !            64:   foreach x {
        !            65:     100 x 0 100
        !            66:   x
        !            67:     70 22 96 59 96 50 22 56 21 16 37 64 43 40  0 38 22 38 55  0  6   
        !            68:     43 62 32 93 54 18 13 29 45 66 29 25 61 31 53 82 75 25 96 86 10 69   
        !            69:      2 29  6 60 80 95 42 82 85 50 68 96 90 39 78 69 87 97 48 74 65 43   
        !            70:   x
        !            71:     86 34 26 50 41 85 58 44 89 22  6 51 45 46 58 32 97  6  1 12 32  2   
        !            72:     69 39 48 71 33 31  5 58 90 43 24 54 12  9 18 57  4 38 91 42 27 45   
        !            73:     50 38 56 29 10  0 26 37 83  1 78 15 47 30 75 62 46 29 68  5 30  4   
        !            74:     27 96 33 95 79 75 56 10 29 70 32 75 52 88  5 36 50 57 46 63 88 65   
        !            75:   x
        !            76:     44 95 64 20 24 35 69 61 61  2 35 92 42 46 23 98 78  1 38 72 79 35   
        !            77:     94 37 13 59  5 93 27 58 80 75 58  7 67 13 10 76 84  4  8 70 81 45   
        !            78:      8 41 98  5 60 26 92 29 91 90  2 62 40  4  5 22 80 15 83 76 52 88   
        !            79:     29  5 68 73 72  7 54 17 89 32 81 94 51 28 53 71  8 42 54 59 70 79   
        !            80:   x
        !            81:   } {
        !            82:     incr tn
        !            83:     set now [db one {SELECT count(i) FROM t1}]
        !            84:     if {$x == "x"} {
        !            85:       execsql { COMMIT ; BEGIN }
        !            86:       set lowpoint $now
        !            87:       do_test pager2.1.$otn.$tn { 
        !            88:         sqlite3 db2 test.db
        !            89:         execsql {
        !            90:           SELECT COALESCE(max(i), 0) FROM t1;
        !            91:           PRAGMA integrity_check;
        !            92:         } 
        !            93:       } [list $lowpoint ok]
        !            94:       db2 close
        !            95:     } else {
        !            96:       if {$now > $x } {
        !            97:         if { $x>=$lowpoint } {
        !            98:           execsql "ROLLBACK TO sp_$x"
        !            99:         } else {
        !           100:           execsql "DELETE FROM t1 WHERE i>$x"
        !           101:           set lowpoint $x
        !           102:         }
        !           103:       } elseif {$now < $x} {
        !           104:         for {set k $now} {$k < $x} {incr k} {
        !           105:           execsql "SAVEPOINT sp_$k"
        !           106:           execsql { INSERT INTO t1(j) VALUES(randomblob(1500)) }
        !           107:         }
        !           108:       }
        !           109:       do_execsql_test pager2.1.$otn.$tn { 
        !           110:         SELECT COALESCE(max(i), 0) FROM t1;
        !           111:         PRAGMA integrity_check;
        !           112:       } [list $x ok]
        !           113:     }
        !           114:   }
        !           115: }
        !           116: db close
        !           117: tv delete
        !           118: 
        !           119: 
        !           120: #-------------------------------------------------------------------------
        !           121: #
        !           122: # pager2-2.1: Test a ROLLBACK with journal_mode=off.
        !           123: # pager2-2.2: Test shrinking the database (auto-vacuum) with 
        !           124: #             journal_mode=off
        !           125: #
        !           126: do_test pager2-2.1 {
        !           127:   faultsim_delete_and_reopen
        !           128:   execsql {
        !           129:     CREATE TABLE t1(a, b);
        !           130:     PRAGMA journal_mode = off;
        !           131:     BEGIN;
        !           132:       INSERT INTO t1 VALUES(1, 2);
        !           133:     ROLLBACK;
        !           134:     SELECT * FROM t1;
        !           135:   }
        !           136: } {off}
        !           137: do_test pager2-2.2 {
        !           138:   faultsim_delete_and_reopen
        !           139:   execsql {
        !           140:     PRAGMA auto_vacuum = incremental;
        !           141:     PRAGMA page_size = 1024;
        !           142:     PRAGMA journal_mode = off;
        !           143:     CREATE TABLE t1(a, b);
        !           144:     INSERT INTO t1 VALUES(zeroblob(5000), zeroblob(5000));
        !           145:     DELETE FROM t1;
        !           146:     PRAGMA incremental_vacuum;
        !           147:   }
        !           148:   file size test.db
        !           149: } {3072}
        !           150: 
        !           151: finish_test