Added calls to cleanupTests before return statements.

FossilOrigin-Name: 5cb396da1d0fcdf2ca2d764a87554ad4b08e257a

2 files changed, 4 insertions, 2 deletions

diff --git a/tests/bind.test b/tests/bind.test
index a62b7a1..a94ff51 100644
--- a/tests/bind.test
+++ b/tests/bind.test
@@ -7,7 +7,7 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: bind.test,v 1.5 1999/04/16 01:51:34 stanton Exp $
+# RCS: @(#) $Id: bind.test,v 1.6 1999/07/08 18:22:22 jenn Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     source [file join [pwd] [file dirname [info script]] defs.tcl]
@@ -218,6 +218,7 @@ test bind-5.1 {Tk_CreateBindingTable procedure} {
 if {[string compare testcbind [info commands testcbind]] != 0} {
     puts "This application hasn't been compiled with the testcbind command,"
     puts "therefore I am skipping all of these tests."
+    ::tcltest::cleanupTests
     return
 }
 
diff --git a/tests/raise.test b/tests/raise.test
index 14323c5..3ce23ac 100644
--- a/tests/raise.test
+++ b/tests/raise.test
@@ -8,12 +8,13 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 # All rights reserved.
 #
-# RCS: @(#) $Id: raise.test,v 1.3 1999/04/16 01:51:40 stanton Exp $
+# RCS: @(#) $Id: raise.test,v 1.4 1999/07/08 18:22:22 jenn Exp $
 
 if {[info commands testmakeexist] == {}} {
     puts "This application hasn't been compiled with the \"testmakeexist\""
     puts "command, so I can't run this test.  Are you sure you're using"
     puts "tktest instead of wish?"
+    ::tcltest::cleanupTests
     return
 }