summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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
}