gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/vacuum5.test (about) 1 # 2016-08-19 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 # This file implements a test for VACUUM on attached databases. 13 # 14 15 set testdir [file dirname $argv0] 16 source $testdir/tester.tcl 17 set testprefix vacuum5 18 19 # If the VACUUM statement is disabled in the current build, skip all 20 # the tests in this file. 21 # 22 ifcapable !vacuum { 23 finish_test 24 return 25 } 26 27 forcedelete test2.db test3.db 28 do_execsql_test vacuum5-1.1 { 29 PRAGMA auto_vacuum = 0; 30 CREATE TABLE main.t1(a,b); 31 WITH RECURSIVE c(x) AS (VALUES(1) UNION ALL SELECT x+1 FROM c WHERE x<1000) 32 INSERT INTO t1(a,b) SELECT x, randomblob(1000) FROM c; 33 CREATE TEMP TABLE ttemp(x,y); 34 INSERT INTO ttemp SELECT * FROM t1; 35 ATTACH 'test2.db' AS x2; 36 ATTACH 'test3.db' AS x3; 37 CREATE TABLE x2.t2(c,d); 38 INSERT INTO t2 SELECT * FROM t1; 39 CREATE TABLE x3.t3(e,f); 40 INSERT INTO t3 SELECT * FROM t1; 41 DELETE FROM t1 WHERE (rowid%3)!=0; 42 DELETE FROM t2 WHERE (rowid%4)!=0; 43 DELETE FROM t3 WHERE (rowid%5)!=0; 44 PRAGMA main.integrity_check; 45 PRAGMA x2.integrity_check; 46 PRAGMA x3.integrity_check; 47 } {ok ok ok} 48 set size1 [file size test.db] 49 set size2 [file size test2.db] 50 set size3 [file size test3.db] 51 52 do_execsql_test vacuum5-1.2.1 { 53 VACUUM main; 54 } {} 55 do_test vacuum5-1.2.2 { 56 expr {[file size test.db]<$size1} 57 } {1} 58 do_test vacuum5-1.2.3 { 59 file size test2.db 60 } $size2 61 do_test vacuum5-1.2.4 { 62 file size test3.db 63 } $size3 64 set size1 [file size test.db] 65 do_execsql_test vacuum-1.2.5 { 66 DELETE FROM t1; 67 PRAGMA main.integrity_check; 68 } {ok} 69 70 do_execsql_test vacuum5-1.3.1 { 71 VACUUM x2; 72 } {} 73 do_test vacuum5-1.3.2 { 74 file size test.db 75 } $size1 76 do_test vacuum5-1.3.3 { 77 expr {[file size test2.db]<$size2} 78 } 1 79 do_test vacuum5-1.3.4 { 80 file size test3.db 81 } $size3 82 set size2 [file size test2.db] 83 do_execsql_test vacuum-1.3.5 { 84 DELETE FROM t2; 85 PRAGMA x2.integrity_check; 86 } {ok} 87 88 do_execsql_test vacuum5-1.4.1 { 89 VACUUM x3; 90 } {} 91 do_test vacuum5-1.3.2 { 92 file size test.db 93 } $size1 94 do_test vacuum5-1.3.3 { 95 file size test2.db 96 } $size2 97 do_test vacuum5-1.3.4 { 98 expr {[file size test3.db]<$size3} 99 } 1 100 101 # VACUUM is a no-op on the TEMP table 102 # 103 set sizeTemp [db one {PRAGMA temp.page_count}] 104 do_execsql_test vacuum5-1.4.1 { 105 VACUUM temp; 106 } {} 107 do_execsql_test vacuum5-1.4.2 { 108 PRAGMA temp.page_count; 109 } $sizeTemp 110 111 do_catchsql_test vacuum5-2.0 { 112 VACUUM olaf; 113 } {1 {unknown database olaf}} 114 115 #------------------------------------------------------------------------- 116 # Test that a temp file is opened as part of VACUUM. 117 # 118 if {$::TEMP_STORE<3 && [permutation]!="inmemory_journal"} { 119 db close 120 testvfs tvfs 121 tvfs filter xOpen 122 tvfs script open_cb 123 forcedelete test.db 124 125 set ::openfiles [list] 126 proc open_cb {method args} { 127 lappend ::openfiles [file tail [lindex $args 0]] 128 } 129 sqlite3 db test.db -vfs tvfs 130 131 do_execsql_test 3.0 { 132 PRAGMA temp_store = file; 133 PRAGMA page_size = 1024; 134 PRAGMA cache_size = 50; 135 CREATE TABLE t1(i INTEGER PRIMARY KEY, j UNIQUE); 136 WITH s(i) AS ( 137 VALUES(1) UNION ALL SELECT i+1 FROM s WHERE i<1000 138 ) 139 INSERT INTO t1 SELECT NULL, randomblob(100) FROM s; 140 } 141 142 do_execsql_test 3.1 { VACUUM } 143 144 db close 145 tvfs delete 146 if {[atomic_batch_write test.db]==0} { 147 do_test 3.2 { 148 lrange $::openfiles 0 4 149 } {test.db test.db-journal test.db-journal {} test.db-journal} 150 } 151 } 152 153 154 155 finish_test