# 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