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