summaryrefslogtreecommitdiffstats
path: root/tests/raise.test
diff options
context:
space:
mode:
authorjenn <jenn>1999-08-18 00:11:13 (GMT)
committerjenn <jenn>1999-08-18 00:11:13 (GMT)
commit198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2 (patch)
treeaeed45e3fa7bc1de4383239d6b1594c189719d47 /tests/raise.test
parent77ffee15b384d2e22a30f6033bf7e6fee43379f9 (diff)
downloadtk-198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2.zip
tk-198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2.tar.gz
tk-198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2.tar.bz2
Call cleanupTests after defs has been loaded
Diffstat (limited to 'tests/raise.test')
-rw-r--r--tests/raise.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/raise.test b/tests/raise.test
index 3ce23ac..f5d88d7 100644
--- a/tests/raise.test
+++ b/tests/raise.test
@@ -8,7 +8,11 @@
# Copyright (c) 1998-1999 by Scriptics Corporation.
# All rights reserved.
#
-# RCS: @(#) $Id: raise.test,v 1.4 1999/07/08 18:22:22 jenn Exp $
+# RCS: @(#) $Id: raise.test,v 1.5 1999/08/18 00:11:13 jenn Exp $
+
+if {[lsearch [namespace children] ::tcltest] == -1} {
+ source [file join [pwd] [file dirname [info script]] defs.tcl]
+}
if {[info commands testmakeexist] == {}} {
puts "This application hasn't been compiled with the \"testmakeexist\""
@@ -18,10 +22,6 @@ if {[info commands testmakeexist] == {}} {
return
}
-if {[lsearch [namespace children] ::tcltest] == -1} {
- source [file join [pwd] [file dirname [info script]] defs.tcl]
-}
-
# Procedure to create a bunch of overlapping windows, which should
# make it easy to detect differences in order.