Make test function do_ioerr_test more robust. No code changes. (CVS 5121)

FossilOrigin-Name: f532692ec91b40fc002af925d2ab8382e3c3b2ca

manifest

@@ -1,5 +1,5 @@
-C Modify\slogging\scode\sin\stest_osinst.c.\sNo\schanges\sto\sproduction\scode.\s(CVS\s5120)
-D 2008-05-12T07:42:20
+C Make\stest\sfunction\sdo_ioerr_test\smore\srobust.\sNo\scode\schanges.\s(CVS\s5121)
+D 2008-05-12T10:57:02
 F Makefile.arm-wince-mingw32ce-gcc ac5f7b2cef0cd850d6f755ba6ee4ab961b1fadf7
 F Makefile.in 8b9b8263852f0217157f9042b8e3dae7427ec739
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -458,7 +458,7 @@ F test/tableapi.test 791f7e3891d9b70bdb43b311694bf5e9befcbc34
 F test/tclsqlite.test 3dfb48f46de4353376fad835390b493ba066b4dc
 F test/tempdb.test b88ac8a19823cf771d742bf61eef93ef337c06b1
 F test/temptable.test 19b851b9e3e64d91e9867619b2a3f5fffee6e125
-F test/tester.tcl 39997d1f45f7df7b4708b31e319beda937d2746f
+F test/tester.tcl 0b13284e4348c7605037a8a5ac5e44578012e05c
 F test/thread001.test 8fbd9559da0bbdc273e00318c7fd66c162020af7
 F test/thread002.test 2c4ad2c386f60f6fe268cd91c769ee35b3c1fd0b
 F test/thread1.test 776c9e459b75ba905193b351926ac4019b049f35
@@ -634,7 +634,7 @@ F www/tclsqlite.tcl 8be95ee6dba05eabcd27a9d91331c803f2ce2130
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl fc46eae081251c3c181bd79c5faef8195d7991a5
-P d00a015dbcc5a7fc4aa7cb41f9740a712af510ae
-R 4a6ee907ca9c22b7d594b8e9b8315e1b
+P 85c54a16c7aecea3e0e5040ee8aca06d8b6a2b2b
+R 6f23cb727bb32cbaf248365f9b5d1602
 U danielk1977
-Z 743f5f254fe0a69c211a56ed51e765c8
+Z 44914fe2fc7d2c76b6a9dcde9fe338f2

manifest.uuid

@@ -1 +1 @@
-85c54a16c7aecea3e0e5040ee8aca06d8b6a2b2b
+f532692ec91b40fc002af925d2ab8382e3c3b2ca

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.122 2008/05/12 07:42:20 danielk1977 Exp $
+# $Id: tester.tcl,v 1.123 2008/05/12 10:57:02 danielk1977 Exp $
 
 #
 # What for user input before continuing.  This gives an opportunity
@@ -703,6 +703,9 @@ proc do_ioerr_test {testname args} {
       expr { ($s && !$r && !$q) || (!$s && $r && $q) }
     } {1}
 
+    set ::sqlite_io_error_hit 0
+    set ::sqlite_io_error_pending 0
+
     # Check that no page references were leaked. There should be 
     # a single reference if there is still an active transaction, 
     # or zero otherwise.