Return to pager2.test CVS log

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

sqlite3

    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