Add a -cleanup option to Tcl test proc do_ioerr_test. (CVS 2485)

FossilOrigin-Name: b0a898c05a2285c87d7da4d47dd697c58a0d4d58

diff --git a/manifest b/manifest
index 7c4225a0ce57d72ceb807d95f0ff6bb411ce7b0b..6e6f421d6ca2ad5a0128f1a0121d0c04a64bcc98 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C If\sSSE\sis\senabled,\sset\sthe\sP1\sfield\sof\sOP_AggInit\sinstructions\sto\sthe\nnumber\sof\sarguments\sthat\swill\sbe\spassed\sto\sthe\saggregate\sfunction.\s(CVS\s2484)
-D 2005-05-26T14:41:47
+C Add\sa\s-cleanup\soption\sto\sTcl\stest\sproc\sdo_ioerr_test.\s(CVS\s2485)
+D 2005-05-26T15:20:53
 F Makefile.in 8129e7f261d405db783676f9ca31e0841768c652
 F Makefile.linux-gcc 06be33b2a9ad4f005a5f42b22c4a19dab3cbb5c7
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -197,7 +197,7 @@ F test/table.test e87fb2211b97c6a3a367fbc116e8572091b53160
 F test/tableapi.test 6a66d58b37d46dc0f2b3c7d4bd2617d209399bd1
 F test/tclsqlite.test 7593733310c1d89f0b63c84fb155104ad948135c
 F test/temptable.test c71eeffe8af807f76eafdc5a39824639a1e301df
-F test/tester.tcl 69c0dc1accaf0ff26bff62b33e13590a4ecba17d
+F test/tester.tcl 98ecdc5723b3b2be5a8a5c3a7f38fa53031466ee
 F test/thread1.test 776c9e459b75ba905193b351926ac4019b049f35
 F test/threadtest1.c 6029d9c5567db28e6dc908a0c63099c3ba6c383b
 F test/threadtest2.c 97a830d53c24c42290501fdfba4a6e5bdd34748b
@@ -281,7 +281,7 @@ F www/tclsqlite.tcl 425be741b8ae664f55cb1ef2371aab0a75109cf9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl a99cf5f6d8bd4d5537584a2b342f0fb9fa601d8b
 F www/whentouse.tcl 528299b8316726dbcc5548e9aa0648c8b1bd055b
-P 3516ca29da5f28adc1fd4da42ca5551d154b6320
-R fb8133ee7b3f8d44d4b20f875de709cb
+P 7f67b9f0f398583651d226fabf2fafd2635d772a
+R c6bfa60e45e3c36269b49426e1b9d927
 U danielk1977
-Z 9c5b5b34671c0ef15bbd98e4a6d13703
+Z 0110a3d4036ad18c1628df7000ce6af7

diff --git a/manifest.uuid b/manifest.uuid
index dedbc9361a1f504bc0d2aa23d2314570d6538bec..d67dea4da05493e72de128a86f6ad08863b9b10e 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-7f67b9f0f398583651d226fabf2fafd2635d772a
\ No newline at end of file
+b0a898c05a2285c87d7da4d47dd697c58a0d4d58
\ No newline at end of file

diff --git a/test/tester.tcl b/test/tester.tcl
index 1c4cb77617bf14b47de703c49d6d30553c52f9a4..7ced4abd76f64bd1e01a9a12eea7a6546a4a5f5f 100644 (file)
--- a/test/tester.tcl
+++ b/test/tester.tcl
@@ -11,7 +11,7 @@
 # This file implements some common TCL routines used for regression
 # testing the SQLite library
 #
-# $Id: tester.tcl,v 1.48 2005/02/12 08:59:59 danielk1977 Exp $
+# $Id: tester.tcl,v 1.49 2005/05/26 15:20:53 danielk1977 Exp $
 
 # Make sure tclsqlite3 was compiled correctly.  Abort now with an
 # error message if not.
@@ -377,6 +377,9 @@ proc do_ioerr_test {testname args} {
       } $checksum
     }
 
+    if {[info exists ::ioerropts(-cleanup)]} {
+      catch $::ioerropts(-cleanup)
+    }
   }
   set ::sqlite_io_error_pending 0
   unset ::ioerropts