Work around buggy TCL implementations in the exclusive2 test file. Ticket #2287 (CVS 3827)

FossilOrigin-Name: 5424fcc5f82e864e0a85a71e0ae39209200386c6

manifest

@@ -1,5 +1,5 @@
-C Make\ssure\sautovacuum\sis\sturned\soff\sfor\smalloc5.test.\s(CVS\s3826)
-D 2007-04-07T17:44:28
+C Work\saround\sbuggy\sTCL\simplementations\sin\sthe\sexclusive2\stest\sfile.\s\sTicket\s#2287\s(CVS\s3827)
+D 2007-04-08T16:52:22
 F Makefile.in 8cab54f7c9f5af8f22fd97ddf1ecfd1e1860de62
 F Makefile.linux-gcc 2d8574d1ba75f129aba2019f0b959db380a90935
 F README 9c4e2d6706bdcc3efdd773ce752a8cdab4f90028
@@ -204,7 +204,7 @@ F test/enc.test 7a03417a1051fe8bc6c7641cf4c8c3f7e0066d52
 F test/enc2.test 45710bacfa9df29720bc84c067dfdf8c8ddfb797
 F test/enc3.test 890508efff6677345e93bf2a8adb0489b30df030
 F test/exclusive.test 5bc520ba366ae3d242420af025ab64d465b04706
-F test/exclusive2.test 8d580e5bb8d49fde59fe1142543b7da081f28d06
+F test/exclusive2.test dcb10d527722eb066ef7d060a0d47d7e59070d2e
 F test/exclusive3.test 0e49c35b7e7cb8e7280b4ce3f0359d30b207d2ff
 F test/expr.test ab21e2fc3613595131efd7d8bbca4b95ed5cc608
 F test/filefmt.test 053b622009fbbb74dd37921ffad374d852c13cd8
@@ -455,7 +455,7 @@ F www/tclsqlite.tcl bb0d1357328a42b1993d78573e587c6dcbc964b9
 F www/vdbe.tcl 87a31ace769f20d3627a64fa1fade7fed47b90d0
 F www/version3.tcl 890248cf7b70e60c383b0e84d77d5132b3ead42b
 F www/whentouse.tcl 97e2b5cd296f7d8057e11f44427dea8a4c2db513
-P 0af764a02695281b0a7d70ef4e7f8229fd3d6a30
-R 574b2e45ac21ec220cba673a080bdfc9
+P 105a7efb090a5619e82a7e2931d4d3e080e6465a
+R 08904a3aa0378c7ab8cc818bba8998f1
 U drh
-Z 7a901112de51faeb7fd2ff67c07f3df5
+Z 677eb1d566591904a5e664d515483f3c

manifest.uuid

@@ -1 +1 @@
-105a7efb090a5619e82a7e2931d4d3e080e6465a
+5424fcc5f82e864e0a85a71e0ae39209200386c6

test/exclusive2.test

@@ -10,7 +10,7 @@
 #***********************************************************************
 # This file implements regression tests for SQLite library.
 #
-# $Id: exclusive2.test,v 1.2 2007/04/03 16:13:52 danielk1977 Exp $
+# $Id: exclusive2.test,v 1.3 2007/04/08 16:52:22 drh Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -21,7 +21,7 @@ ifcapable {!pager_pragmas} {
 }
 
 proc pagerChangeCounter {filename {new ""}} {
-  set fd [open $filename a+]
+  set fd [open $filename RDWR]
   fconfigure $fd -translation binary -encoding binary
   if {$new ne ""} {
     seek $fd 24
@@ -155,7 +155,7 @@ do_test exclusive2-2.3 {
 } $::sig
 
 do_test exclusive2-2.4 {
-  set fd [open test.db a]
+  set fd [open test.db RDWR]
   seek $fd 1024
   puts -nonewline $fd [string repeat [binary format c 0] 10000]
   flush $fd
@@ -241,4 +241,3 @@ do_test exclusive2-3.6 {
 } {5}
 
 finish_test
-