Work around buggy TCL implementations in the exclusive2 test file. Ticket #2287...

FossilOrigin-Name: 5424fcc5f82e864e0a85a71e0ae39209200386c6

diff --git a/manifest b/manifest
index adfe49d6b5d6240c2c46e80ab0ea0dec238451ef..a39831ea91ccc8dbca58491434d3cf27524d62b1 100644 (file)
--- a/manifest
+++ b/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

diff --git a/manifest.uuid b/manifest.uuid
index 86bb14ff452caea579cf367b8f675ba855796b40..2081b630f6e01c012c41218f6c6e1b3394d02e9d 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-105a7efb090a5619e82a7e2931d4d3e080e6465a
\ No newline at end of file
+5424fcc5f82e864e0a85a71e0ae39209200386c6
\ No newline at end of file

diff --git a/test/exclusive2.test b/test/exclusive2.test
index 07ca7e24d576d61f73a69af1661f8fc6f117e0c1..17f42b5f084cf6a343d3e6b606268f8a7c3b3d5c 100644 (file)
--- a/test/exclusive2.test
+++ b/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
-