Return to tkt2686.test CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / sqlite3 / test

Annotation of embedaddon/sqlite3/test/tkt2686.test, revision 1.1

1.1     ! misho       1: # 2007 Oct 3
        !             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 is to test that ticket #2686 has been fixed.
        !            13: #
        !            14: # $Id: tkt2686.test,v 1.3 2008/02/02 02:48:52 drh Exp $
        !            15: #
        !            16: 
        !            17: set testdir [file dirname $argv0]
        !            18: source $testdir/tester.tcl
        !            19: 
        !            20: ifcapable !subquery {
        !            21:   finish_test
        !            22:   return
        !            23: }
        !            24: 
        !            25: db eval {
        !            26:   PRAGMA page_size=1024;
        !            27:   PRAGMA max_page_count=50;
        !            28:   PRAGMA auto_vacuum=0;
        !            29:   CREATE TABLE filler (fill);
        !            30: }
        !            31: for {set i 1} {$i<2000} {incr i} {
        !            32:   do_test tkt2686-$i.1 {
        !            33:     db eval BEGIN
        !            34:     set rc [catch {
        !            35:       while 1 {
        !            36:         db eval {INSERT INTO filler (fill) VALUES (randstr(1000, 10000)) }
        !            37:       }
        !            38:     } msg]
        !            39:     lappend rc $msg
        !            40:   } {1 {database or disk is full}}
        !            41:   do_test tkt2686-$i.2 {
        !            42:     execsql {
        !            43:       DELETE FROM filler 
        !            44:        WHERE rowid <= (SELECT MAX(rowid) FROM filler LIMIT 20)
        !            45:     }
        !            46:   } {}
        !            47:   integrity_check tkt2686-$i.3
        !            48:   catch {db eval COMMIT}
        !            49: }
        !            50: 
        !            51: db close
        !            52: forcedelete test.db test.db-journal
        !            53: sqlite3 db test.db
        !            54: 
        !            55: db eval {
        !            56:   PRAGMA page_size=1024;
        !            57:   PRAGMA max_page_count=50;
        !            58:   PRAGMA auto_vacuum=1;
        !            59:   CREATE TABLE filler (fill);
        !            60: }
        !            61: for {set i 10000} {$i<12000} {incr i} {
        !            62:   do_test tkt2686-$i.1 {
        !            63:     db eval BEGIN
        !            64:     set rc [catch {
        !            65:       while 1 {
        !            66:         db eval {INSERT INTO filler (fill) VALUES (randstr(1000, 10000)) }
        !            67:       }
        !            68:     } msg]
        !            69:     lappend rc $msg
        !            70:   } {1 {database or disk is full}}
        !            71:   do_test tkt2686-$i.2 {
        !            72:     execsql {
        !            73:       DELETE FROM filler 
        !            74:        WHERE rowid <= (SELECT MAX(rowid) FROM filler LIMIT 20)
        !            75:     }
        !            76:   } {}
        !            77:   integrity_check tkt2686-$i.3
        !            78:   catch {db eval COMMIT}
        !            79: }
        !            80: 
        !            81: finish_test