diff -r 000000000000 -r bde4ae8d615e os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/journal1.test --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TclScript/journal1.test Fri Jun 15 03:10:57 2012 +0200 @@ -0,0 +1,67 @@ +# 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