Fix recently introduced bug in tester.tcl. (CVS 5107)

FossilOrigin-Name: 4b573d4e7dd8c3417cfdebe7d2885de7bdc522db

diff --git a/manifest b/manifest
index 1ecd4eb7cb49d4f74cab566c922782b592ec6c3b..c31df8d018552fea3d726cd8d3afc9b1f5bc5a2e 100644 (file)
--- a/manifest
+++ b/manifest
@@ -1,5 +1,5 @@
-C Add\sextra\sinstrumentation\sto\stest_osinst.c.\sAlso\sthe\s--binarylog\soption\sto\sthe\stest\sscripts.\s(CVS\s5106)
-D 2008-05-08T15:58:06
+C Fix\srecently\sintroduced\sbug\sin\stester.tcl.\s(CVS\s5107)
+D 2008-05-08T16:51:12
 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 11961673d7c9877f3314a8180e270913956f7085
+F test/tester.tcl e4d3e8295a23deb5b5f35a4d79c93c9f2b5b87de
 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 0a4d26dede320d90a39133dce3d76ca3ee1a4ee6
-R a3498bd60c16481a0e5b89e536d0aa82
+P 8a99efc07f93bc11d21aa501349c81f0fd8abf7b
+R b74d8bc72e0ee5f251e922de4c137ed1
 U danielk1977
-Z 4b996eb3346ff3c422ad016b173a4ca3
+Z 9f6028499912df37de9a263330ef2df9

diff --git a/manifest.uuid b/manifest.uuid
index d4265f815d3b366549cec2c98c7035426b0d0ca2..c8a134040ed38cdfe3b2f03ca299ee0b73cedc5c 100644 (file)
--- a/manifest.uuid
+++ b/manifest.uuid
@@ -1 +1 @@
-8a99efc07f93bc11d21aa501349c81f0fd8abf7b
\ No newline at end of file
+4b573d4e7dd8c3417cfdebe7d2885de7bdc522db
\ No newline at end of file

diff --git a/test/tester.tcl b/test/tester.tcl
index 20ec60865a6567672388e9f8ad40b2258d48596b..39255cfd62b4b09f2008c31ac2e6f82f79dcd18d 100644 (file)
--- a/test/tester.tcl
+++ b/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.120 2008/05/08 15:58:06 danielk1977 Exp $
+# $Id: tester.tcl,v 1.121 2008/05/08 16:51:12 danielk1977 Exp $
 
 #
 # What for user input before continuing.  This gives an opportunity
@@ -165,7 +165,7 @@ proc omit_test {name reason} {
 proc do_test {name cmd expected} {
   global argv nErr nTest skip_test maxErr
   sqlite3_memdebug_settitle $name
-  if {$::tester_do_binarylog} {
+  if {[info exists ::tester_do_binarylog]} {
     sqlite3_instvfs marker binarylog "Start of $name"
   }
   if {$skip_test} {
@@ -201,7 +201,7 @@ proc do_test {name cmd expected} {
     puts " Ok"
   }
   flush stdout
-  if {$::tester_do_binarylog} {
+  if {[info exists ::tester_do_binarylog]} {
     sqlite3_instvfs marker binarylog "End of $name"
   }
 }