Fix a test script problem in exclusive.test. (CVS 6821)

FossilOrigin-Name: a52ef5a4216f26c617bd1471cd19f3da2a6d2c4c

diff --git a/manifest b/manifest
index 487fd1986101d8c27d3394d80d5afbe2e7dae2ff..8e3c39db82e23ab7bbb6a172a2f63b9c245cd3b7 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Fix\sthe\snew\spager.c\schanges\sso\sthat\sthey\scompile\swith\sIOTRACE\sdefined.\nFix\san\sout-of-order\svariable\sdefinition\sin\svdbeaux.c.\s(CVS\s6820)
-D 2009-06-26T12:15:23
+C Fix\sa\stest\sscript\sproblem\sin\sexclusive.test.\s(CVS\s6821)
+D 2009-06-26T12:30:40
 F Makefile.arm-wince-mingw32ce-gcc fcd5e9cd67fe88836360bb4f9ef4cb7f8e2fb5a0
 F Makefile.in 8b8fb7823264331210cddf103831816c286ba446
 F Makefile.linux-gcc d53183f4aa6a9192d249731c90dbdffbd2c68654
@@ -318,7 +318,7 @@ F test/enc.test e54531cd6bf941ee6760be041dff19a104c7acea
 F test/enc2.test 6d91a5286f59add0cfcbb2d0da913b76f2242398
 F test/enc3.test 5c550d59ff31dccdba5d1a02ae11c7047d77c041
 F test/eval.test bc269c365ba877554948441e91ad5373f9f91be3
-F test/exclusive.test b4fcbaa74163ade20e90286b958d7530c1192b49
+F test/exclusive.test 4d8a112d6c5bf52014e9383c25ff193cc4f67185
 F test/exclusive2.test 6bdf254770a843c2933b54bee9ed239934f0a183
 F test/exec.test e949714dc127eaa5ecc7d723efec1ec27118fdd7
 F test/expr.test 80f3cf99f786ffbac19d2b0083673e7fc797030f
@@ -737,7 +737,7 @@ F tool/speedtest2.tcl ee2149167303ba8e95af97873c575c3e0fab58ff
 F tool/speedtest8.c 2902c46588c40b55661e471d7a86e4dd71a18224
 F tool/speedtest8inst1.c 293327bc76823f473684d589a8160bde1f52c14e
 F tool/vdbe-compress.tcl 672f81d693a03f80f5ae60bfefacd8a349e76746
-P 58884b6c50f927c5606d857b2865d788a5147060
-R 9d423933262cfe2d16ec12c135577c04
-U drh
-Z 945b9bf3768118a01553819f7e0bb702
+P ac1450285025e33fad81e2fb14a06eb85e8ed87a
+R 93a1400e20189084799dc0214a9ceb18
+U danielk1977
+Z 7744482958494d5303ddabc5400940aa

diff --git a/manifest.uuid b/manifest.uuid
index 660945a75248db35a44e95693737fbfc61a03b89..6cebb8891a88b1cc1ba09ca66f8ba2ec4d8c3bc0 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-ac1450285025e33fad81e2fb14a06eb85e8ed87a
\ No newline at end of file
+a52ef5a4216f26c617bd1471cd19f3da2a6d2c4c
\ No newline at end of file

diff --git a/test/exclusive.test b/test/exclusive.test
index 43ef78df4a143d0e9e51db922a4335343acbd4d0..2c1b35034855727ba5817a5f6a5eca3e772d3c06 100644 (file)
--- a/test/exclusive.test
+++ b/test/exclusive.test
@@ -12,7 +12,7 @@
 # of these tests is exclusive access mode (i.e. the thing activated by 
 # "PRAGMA locking_mode = EXCLUSIVE").
 #
-# $Id: exclusive.test,v 1.14 2009/04/30 16:41:00 danielk1977 Exp $
+# $Id: exclusive.test,v 1.15 2009/06/26 12:30:40 danielk1977 Exp $
 
 set testdir [file dirname $argv0]
 source $testdir/tester.tcl
@@ -259,8 +259,7 @@ if {$tcl_platform(platform) != "windows"} {
     if {[file exists $fname]} {
       set exists 1
       set hdr [hexio_read $fname 0 28]
-      set content \
-       [expr {$hdr!="00000000000000000000000000000000000000000000000000000000"}]
+      set content [expr {0==[string match $hdr [string repeat 0 56]]}]
     }
     list $exists $content
   }