# 2005 March 15

 #

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

 #

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

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

 #

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

 set testdir [file dirname $argv0]

 source $testdir/tester.tcl

 # These tests will not work on windows because windows uses

 # manditory file locking which breaks the file copy command.

 #

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

   finish_test

   return

 }

 # Create a smaple database

 #

 do_test journal1-1.1 {

   execsql {

     CREATE TABLE t1(a,b);

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

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

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

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

     SELECT count(*) FROM t1;

   }

 } 8

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

 # Then delete the database.  Replace the the journal file

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

 # old journal should not attempt to rollback into the new

 # database.

 #

 do_test journal1-1.2 {

   execsql {

     BEGIN;

     DELETE FROM t1;

   }

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

   execsql {

     ROLLBACK;

   }

   db close

   file delete test.db

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

   sqlite3 db test.db

   catchsql {

     SELECT * FROM sqlite_master

   }

 } {0 {}}

 finish_test