Index: test/journal2.test ================================================================== --- test/journal2.test +++ test/journal2.test @@ -45,11 +45,10 @@ # if {[info exists ::tvfs_error_on_write]} { if {[lsearch {xDelete xWrite xTruncate} $method]>=0} { return SQLITE_IOERR } - return SQLITE_OK } # The rest of this command only deals with xOpen(), xClose() and xDelete() # operations on journal files. If this invocation does not represent such # an operation, return with no further ado. @@ -68,11 +67,11 @@ # if {[info exists ::open_journals($f)]==0} { set ::open_journals($f) 0 } switch -- $method { xOpen { incr ::open_journals($f) +1 } xClose { incr ::open_journals($f) -1 } - xDelete { if {$::open_journals($f)>0} { puts EEE;return SQLITE_IOERR } } + xDelete { if {$::open_journals($f)>0} { return SQLITE_IOERR } } } return "" } @@ -218,12 +217,17 @@ } {1} do_test journal2-2.3 { set ::oplog [list] execsql { PRAGMA journal_mode = WAL } set ::oplog - } {xClose test.db-journal xDelete test.db-journal} + } [list \ + xClose test.db-journal \ + xOpen test.db-journal xClose test.db-journal \ + xOpen test.db-journal xClose test.db-journal \ + xDelete test.db-journal \ + ] db close } tvfs delete finish_test