3 # The author disclaims copyright to this source code. In place of
4 # a legal notice, here is a blessing:
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.
10 #***********************************************************************
11 # This file implements regression tests for SQLite library.
13 # This file implements tests to make sure that leftover journals from
14 # prior databases do not try to rollback into new databases.
16 # $Id: journal1.test,v 1.2 2005/03/20 22:54:56 drh Exp $
19 set testdir [file dirname $argv0]
20 source $testdir/tester.tcl
22 # These tests will not work on windows because windows uses
23 # manditory file locking which breaks the copy_file command.
25 # Or with atomic_batch_write systems, as journal files are
28 if {$tcl_platform(platform)=="windows"
29 || [atomic_batch_write test.db]
35 # Create a smaple database
37 do_test journal1-1.1 {
40 INSERT INTO t1 VALUES(1,randstr(10,400));
41 INSERT INTO t1 VALUES(2,randstr(10,400));
42 INSERT INTO t1 SELECT a+2, a||b FROM t1;
43 INSERT INTO t1 SELECT a+4, a||b FROM t1;
44 SELECT count(*) FROM t1;
48 # Make changes to the database and save the journal file.
49 # Then delete the database. Replace the journal file
50 # and try to create a new database with the same name. The
51 # old journal should not attempt to rollback into the new
54 do_test journal1-1.2 {
59 forcecopy test.db-journal test.db-journal-bu
65 copy_file test.db-journal-bu test.db-journal
68 SELECT * FROM sqlite_master