1 # 2005 March 15

     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 # This file implements regression tests for SQLite library.

    12 #

    13 # This file implements tests to make sure that leftover journals from

    14 # prior databases do not try to rollback into new databases.

    15 #

    16 # $Id: journal1.test,v 1.2 2005/03/20 22:54:56 drh Exp $

    17 

    18 

    19 set testdir [file dirname $argv0]

    20 source $testdir/tester.tcl

    21 

    22 # These tests will not work on windows because windows uses

    23 # manditory file locking which breaks the file copy command.

    24 #

    25 if {$tcl_platform(platform)=="windows"} {

    26   finish_test

    27   return

    28 }

    29 

    30 # Create a smaple database

    31 #

    32 do_test journal1-1.1 {

    33   execsql {

    34     CREATE TABLE t1(a,b);

    35     INSERT INTO t1 VALUES(1,randstr(10,400));

    36     INSERT INTO t1 VALUES(2,randstr(10,400));

    37     INSERT INTO t1 SELECT a+2, a||b FROM t1;

    38     INSERT INTO t1 SELECT a+4, a||b FROM t1;

    39     SELECT count(*) FROM t1;

    40   }

    41 } 8

    42 

    43 # Make changes to the database and save the journal file.

    44 # Then delete the database.  Replace the the journal file

    45 # and try to create a new database with the same name.  The

    46 # old journal should not attempt to rollback into the new

    47 # database.

    48 #

    49 do_test journal1-1.2 {

    50   execsql {

    51     BEGIN;

    52     DELETE FROM t1;

    53   }

    54   file copy -force test.db-journal test.db-journal-bu

    55   execsql {

    56     ROLLBACK;

    57   }

    58   db close

    59   file delete test.db

    60   file copy test.db-journal-bu test.db-journal

    61   sqlite3 db test.db

    62   catchsql {

    63     SELECT * FROM sqlite_master

    64   }

    65 } {0 {}}

    66 

    67 finish_test