summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorjenn <jenn>1999-07-30 19:10:47 (GMT)
committerjenn <jenn>1999-07-30 19:10:47 (GMT)
commita0e51c52b4d0ca7246d307f421519147330b655c (patch)
tree9b18733a994b359fca2b44d01eeae92c19ce7362 /tests
parent6468cf2bca94c513b598b8238ce64d0cc639da40 (diff)
downloadtcl-a0e51c52b4d0ca7246d307f421519147330b655c.zip
tcl-a0e51c52b4d0ca7246d307f421519147330b655c.tar.gz
tcl-a0e51c52b4d0ca7246d307f421519147330b655c.tar.bz2
Updated to match the new return values from tcltest.
Diffstat (limited to 'tests')
-rwxr-xr-xtests/tcltest.test8
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')} {