# 2013-05-23 # # The author disclaims copyright to this source code. In place of # a legal notice, here is a blessing: # # May you do good and not evil. # May you find forgiveness for yourself and forgive others. # May you share freely, never taking more than you give. # #*********************************************************************** # set testdir [file dirname $argv0] source $testdir/tester.tcl ifcapable !mmap||!vtab { finish_test return } source $testdir/lock_common.tcl set testprefix mmap3 # A codec shuts down memory-mapped I/O if {[nonzero_reserved_bytes]} {finish_test; return;} do_test mmap3-1.0 { load_static_extension db wholenumber db eval { PRAGMA mmap_size=100000; CREATE TABLE t1(x, y); CREATE VIRTUAL TABLE nums USING wholenumber; INSERT INTO t1 SELECT value, randomblob(value) FROM nums WHERE value BETWEEN 1 and 1000; SELECT sum(x), sum(length(y)) from t1; PRAGMA mmap_size; } } {100000 500500 500500 100000} do_test mmap3-1.2 { db eval { PRAGMA mmap_size=50000; CREATE TABLE t2(a,b); SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1; PRAGMA quick_check; PRAGMA mmap_size; } } {50000 nums t1 t2 ok 50000} do_test mmap3-1.3 { db eval { PRAGMA mmap_size=250000; DROP TABLE t2; SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1; PRAGMA quick_check; PRAGMA mmap_size; } } {250000 nums t1 ok 250000} do_test mmap3-1.4 { db eval {SELECT x FROM t1 WHERE +x BETWEEN 10 AND 15} { db eval {PRAGMA mmap_size=150000} } db eval { PRAGMA quick_check; PRAGMA mmap_size; } } {ok 250000} do_test mmap3-1.5 { db eval {SELECT x FROM t1 WHERE +x BETWEEN 10 AND 15} { db eval {PRAGMA mmap_size=0} } db eval { PRAGMA quick_check; PRAGMA mmap_size; } } {ok 250000} do_test mmap3-1.6 { db eval {SELECT x FROM t1 WHERE +x BETWEEN 10 AND 15} { set x [db one {PRAGMA mmap_size}] } set x [concat $x [db eval { PRAGMA quick_check; PRAGMA mmap_size; }]] } {250000 ok 250000} do_test mmap3-1.7 { db eval { PRAGMA mmap_size(0); CREATE TABLE t3(a,b,c); SELECT name FROM sqlite_master WHERE type='table' ORDER BY 1; PRAGMA quick_check; PRAGMA mmap_size; } } {0 nums t1 t3 ok 0} do_test mmap3-1.8 { db eval {SELECT x FROM t1 WHERE +x BETWEEN 10 AND 15} { db eval {PRAGMA mmap_size=75000} } db eval { PRAGMA quick_check; PRAGMA mmap_size; } } {ok 75000} finish_test