summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authorjenn <jenn>1999-07-30 01:35:27 (GMT)
committerjenn <jenn>1999-07-30 01:35:27 (GMT)
commit8ae23baa02cc4fb6cbdea4ed29006244f133bd0c (patch)
tree4d8c17b895054fc9b39466bc8989db9e703ad812 /library
parentdfd80e527ae80304b861420b7bd87131ecbe90df (diff)
downloadtcl-8ae23baa02cc4fb6cbdea4ed29006244f133bd0c.zip
tcl-8ae23baa02cc4fb6cbdea4ed29006244f133bd0c.tar.gz
tcl-8ae23baa02cc4fb6cbdea4ed29006244f133bd0c.tar.bz2
Exit with non-zero status if there were problems with the way the test
suite was started (e.g. wrong # arguments)
Diffstat (limited to 'library')
-rw-r--r--library/tcltest/tcltest.tcl14
-rw-r--r--library/tcltest1.0/tcltest.tcl14
2 files changed, 14 insertions, 14 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
index 8031015..039c560 100644
--- a/library/tcltest/tcltest.tcl
+++ b/library/tcltest/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.8 1999/07/28 18:33:20 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.9 1999/07/30 01:35:27 jenn Exp $
package provide tcltest 1.0
@@ -659,14 +659,14 @@ proc ::tcltest::processCmdLineArgs {} {
if {([lsearch -exact $flagArray {-help}] != -1) || \
([lsearch -exact $flagArray {-h}] != -1)} {
::tcltest::PrintUsageInfo
- exit
+ exit 1
}
if {[catch {array set flag $flagArray}]} {
::tcltest::PrintError "odd number of arguments specified on command line: \
$argv"
::tcltest::PrintUsageInfo
- exit
+ exit 1
}
# -help is not listed since it has already been processed
@@ -728,7 +728,7 @@ proc ::tcltest::processCmdLineArgs {} {
if {![info exists flag(-constraints)]} {
puts "You can only use the -limitconstraints flag with \
-constraints"
- exit
+ exit 1
}
set ::tcltest::limitConstraints $flag(-limitconstraints)
foreach elt [array names ::tcltest::testConstraints] {
@@ -763,15 +763,15 @@ proc ::tcltest::processCmdLineArgs {} {
if {![file isdir $::tcltest::temporaryDirectory]} {
::tcltest::PrintError "$tmpDirError \"$::tcltest::temporaryDirectory\" \
is not a directory"
- exit
+ exit 1
} elseif {![file writable $::tcltest::temporaryDirectory]} {
::tcltest::PrintError "$tmpDirError \"$::tcltest::temporaryDirectory\" \
is not writeable"
- exit
+ exit 1
} elseif {![file readable $::tcltest::temporaryDirectory]} {
::tcltest::PrintError "$tmpDirError \"$::tcltest::temporaryDirectory\" \
is not readable"
- exit
+ exit 1
}
} else {
file mkdir $::tcltest::temporaryDirectory
diff --git a/library/tcltest1.0/tcltest.tcl b/library/tcltest1.0/tcltest.tcl
index 8031015..039c560 100644
--- a/library/tcltest1.0/tcltest.tcl
+++ b/library/tcltest1.0/tcltest.tcl
@@ -12,7 +12,7 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: tcltest.tcl,v 1.8 1999/07/28 18:33:20 jenn Exp $
+# RCS: @(#) $Id: tcltest.tcl,v 1.9 1999/07/30 01:35:27 jenn Exp $
package provide tcltest 1.0
@@ -659,14 +659,14 @@ proc ::tcltest::processCmdLineArgs {} {
if {([lsearch -exact $flagArray {-help}] != -1) || \
([lsearch -exact $flagArray {-h}] != -1)} {
::tcltest::PrintUsageInfo
- exit
+ exit 1
}
if {[catch {array set flag $flagArray}]} {
::tcltest::PrintError "odd number of arguments specified on command line: \
$argv"
::tcltest::PrintUsageInfo
- exit
+ exit 1
}
# -help is not listed since it has already been processed
@@ -728,7 +728,7 @@ proc ::tcltest::processCmdLineArgs {} {
if {![info exists flag(-constraints)]} {
puts "You can only use the -limitconstraints flag with \
-constraints"
- exit
+ exit 1
}
set ::tcltest::limitConstraints $flag(-limitconstraints)
foreach elt [array names ::tcltest::testConstraints] {
@@ -763,15 +763,15 @@ proc ::tcltest::processCmdLineArgs {} {
if {![file isdir $::tcltest::temporaryDirectory]} {
::tcltest::PrintError "$tmpDirError \"$::tcltest::temporaryDirectory\" \
is not a directory"
- exit
+ exit 1
} elseif {![file writable $::tcltest::temporaryDirectory]} {
::tcltest::PrintError "$tmpDirError \"$::tcltest::temporaryDirectory\" \
is not writeable"
- exit
+ exit 1
} elseif {![file readable $::tcltest::temporaryDirectory]} {
::tcltest::PrintError "$tmpDirError \"$::tcltest::temporaryDirectory\" \
is not readable"
- exit
+ exit 1
}
} else {
file mkdir $::tcltest::temporaryDirectory