test/fallocate.test

   1 # 2010 July 28
   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
  16 file_control_chunksize_test db main [expr 1024*1024]
  17
  18 do_test fallocate-1.1 {
  19   execsql {
  20     PRAGMA page_size = 1024;
  21     PRAGMA auto_vacuum = 1;
  22     CREATE TABLE t1(a, b);
  23   }
  24   file size test.db
  25 } [expr 1*1024*1024]
  26
  27 do_test fallocate-1.2 {
  28   execsql { INSERT INTO t1 VALUES(1, zeroblob(1024*900)) }
  29   file size test.db
  30 } [expr 1*1024*1024]
  31
  32 do_test fallocate-1.3 {
  33   execsql { INSERT INTO t1 VALUES(2, zeroblob(1024*900)) }
  34   file size test.db
  35 } [expr 2*1024*1024]
  36
  37 do_test fallocate-1.4 {
  38   execsql { DELETE FROM t1 WHERE a = 1 }
  39   file size test.db
  40 } [expr 1*1024*1024]
  41
  42 do_test fallocate-1.5 {
  43   execsql { DELETE FROM t1 WHERE a = 2 }
  44   file size test.db
  45 } [expr 1*1024*1024]
  46
  47 do_test fallocate-1.6 {
  48   execsql { PRAGMA freelist_count }
  49 } {0}
  50
  51 # Start a write-transaction and read the "database file size" field from
  52 # the journal file. This field should be set to the number of pages in
  53 # the database file based on the size of the file on disk, not the actual
  54 # logical size of the database within the file.
  55 #
  56 # We need to check this to verify that if in the unlikely event a rollback
  57 # causes a database file to grow, the database grows to its previous size
  58 # on disk, not to the minimum size required to hold the database image.
  59 #
  60 do_test fallocate-1.7 {
  61   execsql { BEGIN; INSERT INTO t1 VALUES(1, 2); }
  62   if {[permutation] != "inmemory_journal"
  63    && [permutation] != "atomic-batch-write"
  64    && [atomic_batch_write test.db]==0
  65   } {
  66     hexio_get_int [hexio_read test.db-journal 16 4]
  67   } else {
  68     set {} 1024
  69   }
  70 } {1024}
  71 do_test fallocate-1.8 { execsql { COMMIT } } {}
  72
  73
  74 #-------------------------------------------------------------------------
  75 # The following tests - fallocate-2.* - test that things work in WAL
  76 # mode as well.
  77 #
  78 set skipwaltests [expr {
  79   [permutation]=="journaltest" || [permutation]=="inmemory_journal"
  80 }]
  81 ifcapable !wal { set skipwaltests 1 }
  82
  83 if {!$skipwaltests} {
  84   db close
  85   forcedelete test.db
  86   sqlite3 db test.db
  87   file_control_chunksize_test db main [expr 32*1024]
  88
  89   do_test fallocate-2.1 {
  90     execsql {
  91       PRAGMA page_size = 1024;
  92       PRAGMA journal_mode = WAL;
  93       CREATE TABLE t1(a, b);
  94     }
  95     file size test.db
  96   } [expr 32*1024]
  97
  98   do_test fallocate-2.2 {
  99     execsql { INSERT INTO t1 VALUES(1, zeroblob(35*1024)) }
 100     execsql { PRAGMA wal_checkpoint }
 101     file size test.db
 102   } [expr 64*1024]
 103
 104   do_test fallocate-2.3 {
 105     execsql { DELETE FROM t1 }
 106     execsql { VACUUM }
 107     file size test.db
 108   } [expr 64*1024]
 109
 110   do_test fallocate-2.4 {
 111     execsql { PRAGMA wal_checkpoint }
 112     file size test.db
 113   } [expr 32*1024]
 114
 115   do_test fallocate-2.5 {
 116     execsql {
 117       INSERT INTO t1 VALUES(2, randomblob(35*1024));
 118       PRAGMA wal_checkpoint;
 119       INSERT INTO t1 VALUES(3, randomblob(128));
 120       DELETE FROM t1 WHERE a = 2;
 121       VACUUM;
 122     }
 123     file size test.db
 124   } [expr 64*1024]
 125
 126   do_test fallocate-2.6 {
 127     sqlite3 db2 test.db
 128     execsql { BEGIN ; SELECT count(a) FROM t1 } db2
 129     execsql {
 130       INSERT INTO t1 VALUES(4, randomblob(128));
 131       PRAGMA wal_checkpoint;
 132     }
 133     file size test.db
 134   } [expr 64*1024]
 135
 136   do_test fallocate-2.7 {
 137     execsql { SELECT count(b) FROM t1 } db2
 138   } {1}
 139
 140   do_test fallocate-2.8 {
 141     execsql { COMMIT } db2
 142     execsql { PRAGMA wal_checkpoint }
 143     file size test.db
 144   } [expr 32*1024]
 145 }
 146
 147
 148 finish_test