-now all test files that skip tests by returning early (which ideally

   they shouldn't do) call ::tcltest::cleanupTests before returning.

-the defs.tcl file has one new constraint:  userInteraction, used by
   tests that require user interaction.  The next putback will include
   an updated version of the "visual" test file to use this mechanism.

1 files changed, 6 insertions, 5 deletions

diff --git a/tests/dcall.test b/tests/dcall.test
index b555ea4..d1bfd52 100644
--- a/tests/dcall.test
+++ b/tests/dcall.test
@@ -11,18 +11,19 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: dcall.test,v 1.1.2.5 1999/03/24 02:49:03 hershey Exp $
+# RCS: @(#) $Id: dcall.test,v 1.1.2.6 1999/03/26 19:13:57 hershey Exp $
+
+if {[lsearch [namespace children] ::tcltest] == -1} {
+    source [file join [pwd] [file dirname [info script]] defs.tcl]
+}
 
 if {[info commands testdcall] == {}} {
     puts "This application hasn't been compiled with the \"testdcall\""
     puts "command, so I can't test Tcl_CallWhenDeleted."
+    ::tcltest::cleanupTests
     return
 }
 
-if {[lsearch [namespace children] ::tcltest] == -1} {
-    source [file join [pwd] [file dirname [info script]] defs.tcl]
-}
-
 test dcall-1.1 {deletion callbacks} {
     lsort -increasing [testdcall 1 2 3]
 } {1 2 3}