Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Added test/walrofault.test.

            1  +# 2011 May 09
            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 contains tests for using WAL databases in read-only mode.
           13  +#
           14  +
           15  +set testdir [file dirname $argv0]
           16  +source $testdir/tester.tcl
           17  +source $testdir/malloc_common.tcl
           18  +set ::testprefix walro2
           19  +
           20  +# These tests are only going to work on unix.
           21  +#
           22  +if {$::tcl_platform(platform) != "unix"} {
           23  +  finish_test
           24  +  return
           25  +}
           26  +
           27  +# And only if the build is WAL-capable.
           28  +#
           29  +ifcapable !wal {
           30  +  finish_test
           31  +  return
           32  +}
           33  +
           34  +db close
           35  +sqlite3_shutdown
           36  +sqlite3_config_uri 1
           37  +sqlite3 db test.db
           38  +
           39  +do_execsql_test 1.0 {
           40  +  CREATE TABLE t1(b);
           41  +  PRAGMA journal_mode = wal;
           42  +  INSERT INTO t1 VALUES('hello');
           43  +  INSERT INTO t1 VALUES('world');
           44  +  INSERT INTO t1 VALUES('!');
           45  +  INSERT INTO t1 VALUES('world');
           46  +  INSERT INTO t1 VALUES('hello');
           47  +  PRAGMA cache_size = 10;
           48  +  BEGIN;
           49  +    WITH s(i) AS ( SELECT 1 UNION ALL SELECT i+1 FROM s WHERE i<30 ) 
           50  +    INSERT INTO t1(b) SELECT randomblob(800) FROM s;
           51  +} {wal}
           52  +faultsim_save_and_close
           53  +
           54  +do_faultsim_test 1 -faults oom* -prep {
           55  +  catch { db close }
           56  +  faultsim_restore
           57  +  sqlite3 db file:test.db?readonly_shm=1
           58  +} -body {
           59  +  execsql { SELECT * FROM t1 }
           60  +} -test {
           61  +  faultsim_test_result {0 {hello world ! world hello}}
           62  +}
           63  +
           64  +
           65  +
           66  +finish_test