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