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 13set testdir [file dirname $argv0] 14source $testdir/tester.tcl 15 16file_control_chunksize_test db main [expr 1024*1024] 17 18do_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 27do_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 32do_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 37do_test fallocate-1.4 { 38 execsql { DELETE FROM t1 WHERE a = 1 } 39 file size test.db 40} [expr 1*1024*1024] 41 42do_test fallocate-1.5 { 43 execsql { DELETE FROM t1 WHERE a = 2 } 44 file size test.db 45} [expr 1*1024*1024] 46 47do_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# 60do_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} 71do_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# 78set skipwaltests [expr { 79 [permutation]=="journaltest" || [permutation]=="inmemory_journal" 80}] 81ifcapable !wal { set skipwaltests 1 } 82 83if {!$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 148finish_test 149