summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorhershey <hershey>1999-03-24 18:07:46 (GMT)
committerhershey <hershey>1999-03-24 18:07:46 (GMT)
commit23b428ee02ffc11a8ca297f866710dc0c1a92618 (patch)
tree4bb9a3e62ac37610b48987d95aeda3b7c1dff0c2 /tests
parent4824ecc203b2fcce68a5f3f4694483adcc9d6b4f (diff)
downloadtk-23b428ee02ffc11a8ca297f866710dc0c1a92618.zip
tk-23b428ee02ffc11a8ca297f866710dc0c1a92618.tar.gz
tk-23b428ee02ffc11a8ca297f866710dc0c1a92618.tar.bz2
all file now exits only when Tk is not in interactive mode.
Diffstat (limited to 'tests')
-rw-r--r--tests/all8
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/all b/tests/all
index ebfbc13..2fb9209 100644
--- a/tests/all
+++ b/tests/all
@@ -2,7 +2,7 @@
# tests. Execute it by invoking "source all" when running tclTest
# in this directory.
#
-# RCS: @(#) $Id: all,v 1.4 1998/12/07 23:29:00 hershey Exp $
+# RCS: @(#) $Id: all,v 1.5 1999/03/24 18:07:46 hershey Exp $
set TESTS_DIR [file join [pwd] [file dirname [info script]]]
source [file join $TESTS_DIR defs]
@@ -73,5 +73,7 @@ if {[info exists TMP_DIR]} {
cd $currentDir
}
-catch {destroy .}
-exit
+# exit if Tk is running in non-interactive mode.
+if {[info exists tk_version] && !$tcl_interactive} {
+ exit
+}