Add a vfs backend that detects problems like the one addressed by (6043) and (6047). (CVS 6049)

FossilOrigin-Name: 49172e487610268662c39fc4038032779a41c47f

test/savepoint2.test

@@ -9,7 +9,7 @@
 #
 #***********************************************************************
 #
-# $Id: savepoint2.test,v 1.2 2008/12/18 18:31:39 danielk1977 Exp $
+# $Id: savepoint2.test,v 1.3 2008/12/20 18:33:59 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -18,6 +18,10 @@ source $testdir/tester.tcl
 # avtrans.test.
 #
 
+db close
+register_jt_vfs -default ""
+sqlite3 db test.db -vfs jt
+
 proc signature {} {
   return [db eval {SELECT count(*), md5sum(x) FROM t3}]
 }
@@ -145,5 +149,7 @@ for {set ii 2} {$ii < ($iterations+2)} {incr ii} {
 unset -nocomplain ::sig
 unset -nocomplain SQL
 
+unregister_jt_vfs
+
 finish_test