test/tkt3761.test

   1 # 2009 March 30
   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 # Ticket #3761:  Make sure that an incremental vacuum on an in-memory
  13 # database can be rolled back.
  14 #
  15 # $Id: tkt3761.test,v 1.1 2009/03/31 02:54:40 drh Exp $
  16
  17 set testdir [file dirname $argv0]
  18 source $testdir/tester.tcl
  19
  20 do_test tkt3761-1.1 {
  21   db close
  22   sqlite3 db :memory:
  23   db eval {
  24     PRAGMA auto_vacuum=INCREMENTAL;
  25     CREATE TABLE t1(x);
  26     INSERT INTO t1 VALUES(zeroblob(900));
  27     INSERT INTO t1 VALUES(zeroblob(900));
  28     INSERT INTO t1 SELECT x FROM t1;
  29     INSERT INTO t1 SELECT x FROM t1;
  30     INSERT INTO t1 SELECT x FROM t1;
  31     INSERT INTO t1 SELECT x FROM t1;
  32     BEGIN;
  33     DELETE FROM t1 WHERE rowid%2;
  34     PRAGMA incremental_vacuum(4);
  35     ROLLBACK;
  36   }
  37   db eval {PRAGMA integrity_check}
  38 } {ok}
  39
  40 finish_test