From 8a6b34cf70ed250038f1e71af3d7b9327460d9db Mon Sep 17 00:00:00 2001
From: jingham <jingham>
Date: Mon, 22 Mar 1999 06:42:59 +0000
Subject: Don't exit on the Macintosh, since this destroys the window that
 contained the test results.

---
 tests/all | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/tests/all b/tests/all
index ebfbc13..5dfe8f6 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.4.2.1 1999/03/22 06:42:59 jingham Exp $
 
 set TESTS_DIR [file join [pwd] [file dirname [info script]]]
 source [file join $TESTS_DIR defs]
@@ -73,5 +73,10 @@ if {[info exists TMP_DIR]} {
     cd $currentDir
 }
 
-catch {destroy .}
-exit
+# Don't exit at the end of all the tests on the Mac, since
+# this destroys the window that contains the test results...
+
+if {[string compare $tcl_platform(platform) macintosh]} {
+    catch {destroy .}
+    exit
+}
-- 
cgit v0.12