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   } {
  65     hexio_get_int [hexio_read test.db-journal 16 4]
  66   } else {
  67     set {} 1024
  68   }
  69 } {1024}
  70 do_test fallocate-1.8 { execsql { COMMIT } } {}
  71
  72
  73 #-------------------------------------------------------------------------
  74 # The following tests - fallocate-2.* - test that things work in WAL
  75 # mode as well.
  76 #
  77 set skipwaltests [expr {
  78   [permutation]=="journaltest" || [permutation]=="inmemory_journal"
  79 }]
  80 ifcapable !wal { set skipwaltests 1 }
  81
  82 if {!$skipwaltests} {
  83   db close
  84   forcedelete test.db
  85   sqlite3 db test.db
  86   file_control_chunksize_test db main [expr 32*1024]
  87
  88   do_test fallocate-2.1 {
  89     execsql {
  90       PRAGMA page_size = 1024;
  91       PRAGMA journal_mode = WAL;
  92       CREATE TABLE t1(a, b);
  93     }
  94     file size test.db
  95   } [expr 32*1024]
  96
  97   do_test fallocate-2.2 {
  98     execsql { INSERT INTO t1 VALUES(1, zeroblob(35*1024)) }
  99     execsql { PRAGMA wal_checkpoint }
 100     file size test.db
 101   } [expr 64*1024]
 102
 103   do_test fallocate-2.3 {
 104     execsql { DELETE FROM t1 }
 105     execsql { VACUUM }
 106     file size test.db
 107   } [expr 64*1024]
 108
 109   do_test fallocate-2.4 {
 110     execsql { PRAGMA wal_checkpoint }
 111     file size test.db
 112   } [expr 32*1024]
 113
 114   do_test fallocate-2.5 {
 115     execsql {
 116       INSERT INTO t1 VALUES(2, randomblob(35*1024));
 117       PRAGMA wal_checkpoint;
 118       INSERT INTO t1 VALUES(3, randomblob(128));
 119       DELETE FROM t1 WHERE a = 2;
 120       VACUUM;
 121     }
 122     file size test.db
 123   } [expr 64*1024]
 124
 125   do_test fallocate-2.6 {
 126     sqlite3 db2 test.db
 127     execsql { BEGIN ; SELECT count(a) FROM t1 } db2
 128     execsql {
 129       INSERT INTO t1 VALUES(4, randomblob(128));
 130       PRAGMA wal_checkpoint;
 131     }
 132     file size test.db
 133   } [expr 64*1024]
 134
 135   do_test fallocate-2.7 {
 136     execsql { SELECT count(b) FROM t1 } db2
 137   } {1}
 138
 139   do_test fallocate-2.8 {
 140     execsql { COMMIT } db2
 141     execsql { PRAGMA wal_checkpoint }
 142     file size test.db
 143   } [expr 32*1024]
 144 }
 145
 146
 147 finish_test