gitlab.com/CoiaPrant/sqlite3@v1.19.1/testdata/tcl/wal64k.test (about) 1 # 2010 April 13 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 # This file implements regression tests for SQLite library. The 12 # focus of this file is testing the operation of the library in 13 # "PRAGMA journal_mode=WAL" mode. 14 # 15 16 set testdir [file dirname $argv0] 17 source $testdir/tester.tcl 18 set testprefix wal64k 19 20 ifcapable !wal {finish_test ; return } 21 22 if {$tcl_platform(platform) != "unix"} { 23 finish_test 24 return 25 } 26 27 db close 28 test_syscall pagesize 65536 29 sqlite3 db test.db 30 31 do_execsql_test 1.0 { 32 PRAGMA journal_mode = WAL; 33 CREATE TABLE t1(x); 34 CREATE INDEX i1 ON t1(x); 35 } {wal} 36 do_test 1.1 { file size test.db-shm } {65536} 37 38 do_test 1.2 { 39 execsql BEGIN 40 while {[file size test.db-shm]==65536} { 41 execsql { INSERT INTO t1 VALUES( randstr(900,1100) ) } 42 } 43 execsql COMMIT 44 file size test.db-shm 45 } {131072} 46 47 integrity_check 1.3 48 49 db close 50 forcedelete test.db 51 sqlite3 db test.db -vfs unix-excl 52 do_execsql_test 2.1 { 53 PRAGMA page_size=512; 54 PRAGMA journal_mode=WAL; 55 CREATE TABLE t1(a,b); 56 WITH RECURSIVE c(x) AS (VALUES(1) UNION ALL SELECT x+1 FROM c WHERE x<8200) 57 INSERT INTO t1(a,b) SELECT x, zeroblob(300) FROM c; 58 PRAGMA integrity_check; 59 } {wal ok} 60 61 db close 62 test_syscall pagesize -1 63 finish_test