From 8ae23baa02cc4fb6cbdea4ed29006244f133bd0c Mon Sep 17 00:00:00 2001
From: jenn <jenn>
Date: Fri, 30 Jul 1999 01:35:27 +0000
Subject: Exit with non-zero status if there were problems with the way the
 test suite was started (e.g. wrong # arguments)

---
 library/tcltest/tcltest.tcl    | 14 +++++++-------
 library/tcltest1.0/tcltest.tcl | 14 +++++++-------
 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
-- 
cgit v0.12