dan | be7721d | 2016-02-04 17:31:03 +0000 | [diff] [blame] | 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 | # |
| 19 | set testdir [file dirname $argv0] |
| 20 | source $testdir/tester.tcl |
| 21 | ifcapable !mmap { |
| 22 | finish_test |
| 23 | return |
| 24 | } |
| 25 | source $testdir/lock_common.tcl |
| 26 | set 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 | # |
| 32 | proc 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 | # |
| 47 | foreach {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 | |
| 104 | finish_test |