summaryrefslogtreecommitdiffstats
path: root/tests/tcltest.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2002-05-10 18:47:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2002-05-10 18:47:09 (GMT)
commitda9484fbf5716a8c56f0aa4517318cbee778e4fb (patch)
treeeabc231534b8a92015e3086cfd9214f9ececc217 /tests/tcltest.test
parent672777daedebcd7b127dcd8a4950170fb370a2c9 (diff)
downloadtcl-da9484fbf5716a8c56f0aa4517318cbee778e4fb.zip
tcl-da9484fbf5716a8c56f0aa4517318cbee778e4fb.tar.gz
tcl-da9484fbf5716a8c56f0aa4517318cbee778e4fb.tar.bz2
* 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].
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-xtests/tcltest.test8
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 {