diff options
author | jenn <jenn@noemail.net> | 1999-07-30 19:10:47 (GMT) |
---|---|---|
committer | jenn <jenn@noemail.net> | 1999-07-30 19:10:47 (GMT) |
commit | 1a1134324db64cbb2f40124a3bed1733f92f2b2c (patch) | |
tree | 9b18733a994b359fca2b44d01eeae92c19ce7362 /tests/tcltest.test | |
parent | 998253e13d4a92480342f1214ce7f73632c3d9a5 (diff) | |
download | tcl-1a1134324db64cbb2f40124a3bed1733f92f2b2c.zip tcl-1a1134324db64cbb2f40124a3bed1733f92f2b2c.tar.gz tcl-1a1134324db64cbb2f40124a3bed1733f92f2b2c.tar.bz2 |
Updated to match the new return values from tcltest.
FossilOrigin-Name: 4300ae3dc98786a442fc3fef7a69573844174678
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 2c43514..7c37ebe 100755 --- a/tests/tcltest.test +++ b/tests/tcltest.test @@ -10,7 +10,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: tcltest.test,v 1.3 1999/07/28 18:33:23 jenn Exp $ +# RCS: @(#) $Id: tcltest.test,v 1.4 1999/07/30 19:10:47 jenn Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -36,15 +36,15 @@ makeFile { test tcltest-1.1 {tcltest -help} { set result [catch {exec $::tcltest::tcltest test.tcl -help} msg] list $result [regexp Usage $msg] -} {0 1} +} {1 1} test tcltest-1.2 {tcltest -help -something} { set result [catch {exec $::tcltest::tcltest test.tcl -help -something} msg] list $result [regexp Usage $msg] -} {0 1} +} {1 1} test tcltest-1.3 {tcltest -h} { set result [catch {exec $::tcltest::tcltest test.tcl -h} msg] list $result [regexp Usage $msg] -} {0 1} +} {1 1} # -verbose test tcltest-2.0 {tcltest (verbose default - 'b')} { |