diff options
author | jenn <jenn@noemail.net> | 1999-08-18 00:11:13 (GMT) |
---|---|---|
committer | jenn <jenn@noemail.net> | 1999-08-18 00:11:13 (GMT) |
commit | 6d93df78d9d4867ee741706782480b50e6e4042e (patch) | |
tree | aeed45e3fa7bc1de4383239d6b1594c189719d47 /tests | |
parent | d3e93988c4564cab6614f14dbecac66222b37a6e (diff) | |
download | tk-6d93df78d9d4867ee741706782480b50e6e4042e.zip tk-6d93df78d9d4867ee741706782480b50e6e4042e.tar.gz tk-6d93df78d9d4867ee741706782480b50e6e4042e.tar.bz2 |
Call cleanupTests after defs has been loaded
FossilOrigin-Name: a5163d5e54d8f3cac61a23969b3ab6d916b14938
Diffstat (limited to 'tests')
-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. |