summaryrefslogtreecommitdiffstats
path: root/tests/raise.test
diff options
context:
space:
mode:
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.