From 7cbecb2b078c164ae33454e3a4ccec64940b42fc Mon Sep 17 00:00:00 2001
From: jenn <jenn>
Date: Thu, 8 Jul 1999 18:22:22 +0000
Subject: Added calls to cleanupTests before return statements.

---
 tests/bind.test  | 3 ++-
 tests/raise.test | 3 ++-
 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
 }
 
-- 
cgit v0.12