1# 2016 February 04 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 tests the effect of the mmap() or mremap() system calls 13# returning an error on the library. 14# 15# If either mmap() or mremap() fails, SQLite should log an error 16# message, then continue accessing the database using read() and 17# write() exclusively. 18# 19set testdir [file dirname $argv0] 20source $testdir/tester.tcl 21ifcapable !mmap { 22 finish_test 23 return 24} 25source $testdir/lock_common.tcl 26set testprefix mmap4 27 28# Return a Tcl script that registers a user-defined scalar function 29# named rblob() with database handle $dbname. The function returns a 30# sequence of pseudo-random blobs based on seed value $seed. 31# 32proc register_rblob_code {dbname seed} { 33 return [subst -nocommands { 34 set ::rcnt $seed 35 proc rblob {n} { 36 set ::rcnt [expr (([set ::rcnt] << 3) + [set ::rcnt] + 456) & 0xFFFFFFFF] 37 set str [format %.8x [expr [set ::rcnt] ^ 0xbdf20da3]] 38 string range [string repeat [set str] [expr [set n]/4]] 1 [set n] 39 } 40 $dbname func rblob rblob 41 }] 42} 43 44#------------------------------------------------------------------------- 45# Test various mmap_size settings. 46# 47foreach {tn1 mmap1 mmap2} { 48 1 6144 167773 49 2 18432 140399 50 3 43008 401302 51 4 92160 253899 52 5 190464 2 53 6 387072 752431 54 7 780288 291143 55 8 1566720 594306 56 9 3139584 829137 57 10 6285312 793963 58 11 12576768 1015590 59} { 60 do_multiclient_test tn { 61 sql1 { 62 CREATE TABLE t1(a PRIMARY KEY); 63 CREATE TABLE t2(x); 64 INSERT INTO t2 VALUES(''); 65 } 66 67 code1 [register_rblob_code db 0] 68 code2 [register_rblob_code db2 444] 69 70 sql1 "PRAGMA mmap_size = $mmap1" 71 sql2 "PRAGMA mmap_size = $mmap2" 72 73 do_test $tn1.$tn { 74 for {set i 1} {$i <= 100} {incr i} { 75 if {$i % 2} { 76 set c1 sql1 77 set c2 sql2 78 } else { 79 set c1 sql2 80 set c2 sql1 81 } 82 83 $c1 { 84 INSERT INTO t1 VALUES( rblob(5000) ); 85 UPDATE t2 SET x = (SELECT md5sum(a) FROM t1); 86 } 87 88 set res [$c2 { 89 SELECT count(*) FROM t1; 90 SELECT x == (SELECT md5sum(a) FROM t1) FROM t2; 91 PRAGMA integrity_check; 92 }] 93 if {$res != [list $i 1 ok]} { 94 do_test $tn1.$tn.$i { 95 set ::res 96 } [list $i 1 ok] 97 } 98 } 99 set res 1 100 } {1} 101 } 102} 103 104finish_test 105