diff options
| author | jenn <jenn> | 1999-08-18 00:11:13 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 1999-08-18 00:11:13 (GMT) |
| commit | 198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2 (patch) | |
| tree | aeed45e3fa7bc1de4383239d6b1594c189719d47 /tests | |
| parent | 77ffee15b384d2e22a30f6033bf7e6fee43379f9 (diff) | |
| download | tk-198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2.zip tk-198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2.tar.gz tk-198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2.tar.bz2 | |
Call cleanupTests after defs has been loaded
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. |