Add Tcl (flush) commands to exclusive2.test, which is failing on some systems but not others. (CVS 3806)

FossilOrigin-Name: 9e004c519a30257fe3230ac7af630d296e139c9e

manifest

@@ -1,5 +1,5 @@
-C Fix\sto\sMakefile.in\sso\sthat\s"make\stest"\sworks.\s(CVS\s3805)
-D 2007-04-02T22:19:39
+C Add\sTcl\s(flush)\scommands\sto\sexclusive2.test,\swhich\sis\sfailing\son\ssome\ssystems\sbut\snot\sothers.\s(CVS\s3806)
+D 2007-04-03T16:13:52
 F Makefile.in 29fbf08ce0989973bfed0b5a052a6bdf3e60fd0a
 F Makefile.linux-gcc 2d8574d1ba75f129aba2019f0b959db380a90935
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -202,7 +202,7 @@ F test/enc.test 7a03417a1051fe8bc6c7641cf4c8c3f7e0066d52
 F test/enc2.test 45710bacfa9df29720bc84c067dfdf8c8ddfb797
 F test/enc3.test 890508efff6677345e93bf2a8adb0489b30df030
 F test/exclusive.test 6748eb0539c4652d596971584c50200729e57dbe
-F test/exclusive2.test 187993598a83257f4a1126a40d89144c01965500
+F test/exclusive2.test 8d580e5bb8d49fde59fe1142543b7da081f28d06
 F test/exclusive3.test 0e49c35b7e7cb8e7280b4ce3f0359d30b207d2ff
 F test/expr.test c78843f730ccbe973d0c2ad1c99978f936893131
 F test/fkey1.test 153004438d51e6769fb1ce165f6313972d6263ce
@@ -449,7 +449,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl 97e2b5cd296f7d8057e11f44427dea8a4c2db513
-P 96b678818c9a536b77f10b25256facf4bff1ff65
-R e53a5453033804a4dfd53095662d1c54
-U drh
-Z 6bb81821baa4d71a761f0f0484085afe
+P f592dd2d997064cda57b549901a2bcc14498b650
+R f762405ca1fef0493a6c70c2ae9bcd4b
+U danielk1977
+Z abeb260e7df5195a4d668b421ee0c453

manifest.uuid

@@ -1 +1 @@
-f592dd2d997064cda57b549901a2bcc14498b650
+9e004c519a30257fe3230ac7af630d296e139c9e

test/exclusive2.test

@@ -10,7 +10,7 @@
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
-# $Id: exclusive2.test,v 1.1 2007/03/26 10:27:19 danielk1977 Exp $
+# $Id: exclusive2.test,v 1.2 2007/04/03 16:13:52 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -29,7 +29,8 @@ proc pagerChangeCounter {filename {new ""}} {
     set b [expr {($new&0x00FF0000)>>16}]
     set c [expr {($new&0x0000FF00)>>8}]
     set d [expr {($new&0x000000FF)}]
-    puts $fd [binary format cccc $a $b $c $d]
+    puts -nonewline $fd [binary format cccc $a $b $c $d]
+    flush $fd
   }
 
   seek $fd 24
@@ -157,6 +158,7 @@ do_test exclusive2-2.4 {
   set fd [open test.db a]
   seek $fd 1024
   puts -nonewline $fd [string repeat [binary format c 0] 10000]
+  flush $fd
   t1sig
 } $::sig