On the Macintosh, call update idletasks at the end of each test. Since the test results are written into a text widget, if you don't do an update, the results will lag behind the tests, which can be confusing.

1 files changed, 5 insertions, 1 deletions

diff --git a/tests/defs b/tests/defs
index cde64fc..8a86451 100644
--- a/tests/defs
+++ b/tests/defs
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: defs,v 1.3 1998/12/04 04:19:12 hershey Exp $
+# RCS: @(#) $Id: defs,v 1.3.2.1 1999/03/22 06:43:05 jingham Exp $
 
 if {![info exists VERBOSE]} {
     set VERBOSE 0
@@ -246,6 +246,10 @@ proc test {name description script answer args} {
 	puts stdout "$answer"
 	puts stdout "---- $name FAILED" 
     }
+    if {[string compare $::tcl_platform(platform) macintosh] == 0} {
+        # Force the text to be drawn even if the tests are not updating.
+        update idletasks
+    }
 }
 
 proc dotests {file args} {