summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjenn <jenn>1999-07-08 18:22:22 (GMT)
committerjenn <jenn>1999-07-08 18:22:22 (GMT)
commit7cbecb2b078c164ae33454e3a4ccec64940b42fc (patch)
tree7b56732bc3a551a68e2977ae31839bd12bb973c2
parentc3bf7aa8ce446374d19df0b6438f0d2c823531ce (diff)
downloadtk-7cbecb2b078c164ae33454e3a4ccec64940b42fc.zip
tk-7cbecb2b078c164ae33454e3a4ccec64940b42fc.tar.gz
tk-7cbecb2b078c164ae33454e3a4ccec64940b42fc.tar.bz2
Added calls to cleanupTests before return statements.
-rw-r--r--tests/bind.test3
-rw-r--r--tests/raise.test3
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
}