diff options
| author | hobbs <hobbs> | 2001-08-22 01:29:18 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-08-22 01:29:18 (GMT) |
| commit | a99e6a83fc6f6ccc2b41eca89f9e00dd92983e49 (patch) | |
| tree | 0745c3d11a37886f6fb492ceaa18da6397baf335 | |
| parent | 96aefe3de4078dc153eb16db7513e585d99d6b7e (diff) | |
| download | tcl-a99e6a83fc6f6ccc2b41eca89f9e00dd92983e49.zip tcl-a99e6a83fc6f6ccc2b41eca89f9e00dd92983e49.tar.gz tcl-a99e6a83fc6f6ccc2b41eca89f9e00dd92983e49.tar.bz2 | |
* tests/tcltest.test (tcltest-12.2): fixed test that would break
when env vars weren't Tcl list friendly [Patch #454046] (stanton)
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rwxr-xr-x | tests/tcltest.test | 6 |
2 files changed, 8 insertions, 3 deletions
@@ -1,3 +1,8 @@ +2001-08-21 Jeff Hobbs <jeffh@ActiveState.com> + + * tests/tcltest.test (tcltest-12.2): fixed test that would break + when env vars weren't Tcl list friendly [Patch #454046] (stanton) + 2001-08-20 Jeff Hobbs <jeffh@ActiveState.com> * library/http/http.tcl (geturl): added port number to Host: 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} { |