| Index: third_party/sqlite/src/test/tkt2686.test
|
| diff --git a/third_party/sqlite/src/test/tkt2686.test b/third_party/sqlite/src/test/tkt2686.test
|
| new file mode 100644
|
| index 0000000000000000000000000000000000000000..c03c6868b981c3daaf8cdfb4761983c415a1ef53
|
| --- /dev/null
|
| +++ b/third_party/sqlite/src/test/tkt2686.test
|
| @@ -0,0 +1,81 @@
|
| +# 2007 Oct 3
|
| +#
|
| +# 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 is to test that ticket #2686 has been fixed.
|
| +#
|
| +# $Id: tkt2686.test,v 1.3 2008/02/02 02:48:52 drh Exp $
|
| +#
|
| +
|
| +set testdir [file dirname $argv0]
|
| +source $testdir/tester.tcl
|
| +
|
| +ifcapable !subquery {
|
| + finish_test
|
| + return
|
| +}
|
| +
|
| +db eval {
|
| + PRAGMA page_size=1024;
|
| + PRAGMA max_page_count=50;
|
| + PRAGMA auto_vacuum=0;
|
| + CREATE TABLE filler (fill);
|
| +}
|
| +for {set i 1} {$i<2000} {incr i} {
|
| + do_test tkt2686-$i.1 {
|
| + db eval BEGIN
|
| + set rc [catch {
|
| + while 1 {
|
| + db eval {INSERT INTO filler (fill) VALUES (randstr(1000, 10000)) }
|
| + }
|
| + } msg]
|
| + lappend rc $msg
|
| + } {1 {database or disk is full}}
|
| + do_test tkt2686-$i.2 {
|
| + execsql {
|
| + DELETE FROM filler
|
| + WHERE rowid <= (SELECT MAX(rowid) FROM filler LIMIT 20)
|
| + }
|
| + } {}
|
| + integrity_check tkt2686-$i.3
|
| + catch {db eval COMMIT}
|
| +}
|
| +
|
| +db close
|
| +file delete -force test.db test.db-journal
|
| +sqlite3 db test.db
|
| +
|
| +db eval {
|
| + PRAGMA page_size=1024;
|
| + PRAGMA max_page_count=50;
|
| + PRAGMA auto_vacuum=1;
|
| + CREATE TABLE filler (fill);
|
| +}
|
| +for {set i 10000} {$i<12000} {incr i} {
|
| + do_test tkt2686-$i.1 {
|
| + db eval BEGIN
|
| + set rc [catch {
|
| + while 1 {
|
| + db eval {INSERT INTO filler (fill) VALUES (randstr(1000, 10000)) }
|
| + }
|
| + } msg]
|
| + lappend rc $msg
|
| + } {1 {database or disk is full}}
|
| + do_test tkt2686-$i.2 {
|
| + execsql {
|
| + DELETE FROM filler
|
| + WHERE rowid <= (SELECT MAX(rowid) FROM filler LIMIT 20)
|
| + }
|
| + } {}
|
| + integrity_check tkt2686-$i.3
|
| + catch {db eval COMMIT}
|
| +}
|
| +
|
| +finish_test
|
|
|