wasCSharpSQLite
/trunk/test/tkt-9d68c883.test |
@@ -0,0 +1,53 @@ |
# 2010 April 10 |
# |
# 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. |
# |
#*********************************************************************** |
# This file tests that bug 9d68c883132c8e9ffcd5b0c148c990807b5df1b7 |
# is fixed. |
# |
|
set testdir [file dirname $argv0] |
source $testdir/tester.tcl |
|
do_test tkt-9d68c88-1.1 { |
execsql { |
PRAGMA page_size = 1024; |
PRAGMA auto_vacuum = 2; |
CREATE TABLE t3(x); |
CREATE TABLE t4(x); |
CREATE TABLE t5(x); |
INSERT INTO t5 VALUES(randomblob(1500)); |
CREATE TABLE t7(x); |
CREATE TABLE t8(x); |
} |
} {} |
|
|
for {set i 0} {$i < 100} {incr i} { |
db close |
sqlite3_simulate_device -sectorsize 8192 |
sqlite3 db test.db -vfs devsym |
|
do_test tkt-9d68c88-2.$i { |
execsql { |
BEGIN; |
DELETE FROM t5; |
INSERT INTO t8 VALUES('hello world'); |
} |
|
sqlite3_memdebug_fail $i -repeat 0 |
catchsql { DROP TABLE t7; } |
sqlite3_memdebug_fail -1 |
|
catchsql { ROLLBACK } |
execsql { PRAGMA integrity_check } |
} {ok} |
} |
|
finish_test |