diff options
| -rw-r--r-- | tests/raise.test | 10 |
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. |