# 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