diff options
author | dgp <dgp@noemail.net> | 2002-05-10 18:47:08 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-05-10 18:47:08 (GMT) |
commit | 01509b9e46d23c6566ed863ea4b70d16d2d64d45 (patch) | |
tree | eabc231534b8a92015e3086cfd9214f9ececc217 /tests/tcltest.test | |
parent | d6d111af8291610cbca4f7c4f68412c4b8f902fc (diff) | |
download | tcl-01509b9e46d23c6566ed863ea4b70d16d2d64d45.zip tcl-01509b9e46d23c6566ed863ea4b70d16d2d64d45.tar.gz tcl-01509b9e46d23c6566ed863ea4b70d16d2d64d45.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].
FossilOrigin-Name: 8f8b6743f270af27dfec0cb972adddce9682dd6a
Diffstat (limited to 'tests/tcltest.test')
-rwxr-xr-x | tests/tcltest.test | 8 |
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 { |