* Corrected some list-quoting issues and

        other matters that cause tests to fail when the patch includes
        special characters.  Report from Vince Darley.  [Bug 554068].

1 files changed, 4 insertions, 4 deletions

diff --git a/tests/tcltest.test b/tests/tcltest.test
index ad4aa85..736ef27 100755
--- a/tests/tcltest.test
+++ b/tests/tcltest.test
@@ -6,7 +6,7 @@
 # Copyright (c) 2000 by Ajuba Solutions
 # All rights reserved.
 #
-# RCS: @(#) $Id: tcltest.test,v 1.20 2002/05/08 05:51:05 dgp Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.21 2002/05/10 18:47:11 dgp Exp $
 
 set tcltestVersion [package require tcltest]
 namespace import -force ::tcltest::*
@@ -574,10 +574,10 @@ test tcltest-8.12 {tcltest a.tcl -testdir notReadableDir} {unixOnly} {
 
 
 test tcltest-8.13 {tcltest a.tcl -testdir normaldirectory} {unixOrPc} {
-    catch {exec $::tcltest::tcltest a.tcl -testdir normaldirectory} msg
+    catch {exec $::tcltest::tcltest a.tcl -testdir $normaldirectory} msg
     # The join is necessary because the message can be split on multiple lines
-    regexp "testdir: $normaldirectory" [join $msg]
-} {1} 
+    string first "testdir: $normaldirectory" [join $msg]
+} {0} 
 
 test tcltest-8.14 {tcltest::testsDirectory} {
     -setup {