summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-08-22 01:29:18 (GMT)
committerhobbs <hobbs>2001-08-22 01:29:18 (GMT)
commitcb124d657e0225923742eabc32f1815299a67d78 (patch)
tree0745c3d11a37886f6fb492ceaa18da6397baf335 /tests
parenta105512aace7f42f2603336844607e39c054502b (diff)
downloadtcl-cb124d657e0225923742eabc32f1815299a67d78.zip
tcl-cb124d657e0225923742eabc32f1815299a67d78.tar.gz
tcl-cb124d657e0225923742eabc32f1815299a67d78.tar.bz2
* tests/tcltest.test (tcltest-12.2): fixed test that would break
when env vars weren't Tcl list friendly [Patch #454046] (stanton)
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tcltest.test6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/tcltest.test b/tests/tcltest.test
index a65dcec..f1c8485 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.14 2001/05/22 00:52:13 hobbs Exp $
+# RCS: @(#) $Id: tcltest.test,v 1.15 2001/08/22 01:29:18 hobbs Exp $
set tcltestVersion [package require tcltest]
namespace import -force ::tcltest::*
@@ -733,8 +733,8 @@ test tcltest-12.1 {-load xxx} {unixOrPc} {
test tcltest-12.2 {-loadfile load.tcl} {unixOrPc} {
catch {exec $::tcltest::tcltest load.tcl -debug 2 -loadfile load.tcl} msg
list \
- [regexp {tcltest} [join $msg [split $msg \n]]] \
- [regexp {loadScript} [join $msg [split $msg \n]]]
+ [regexp {tcltest} [join [list $msg] [split $msg \n]]] \
+ [regexp {loadScript} [join [list $msg] [split $msg \n]]]
} {1 1}
test tcltest-12.3 {tcltest::loadScript} {