From 198f4e16a2f7c8479b95ae9132c9df3cd42aa9d2 Mon Sep 17 00:00:00 2001
From: jenn <jenn>
Date: Wed, 18 Aug 1999 00:11:13 +0000
Subject: Call cleanupTests after defs has been loaded

---
 tests/raise.test | 10 +++++-----
 1 file 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.
 
-- 
cgit v0.12