From cfd3c37b4483e3f22d8934b994874d809f775dad Mon Sep 17 00:00:00 2001
From: hershey <hershey>
Date: Tue, 8 Dec 1998 04:05:34 +0000
Subject: added "cleanupbg" call before return, needed because tests return
 early if tktest is not the interp.

---
 tests/focus.test     | 3 ++-
 tests/unixEmbed.test | 3 ++-
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/tests/focus.test b/tests/focus.test
index 08843e3..a8c3f3b 100644
--- a/tests/focus.test
+++ b/tests/focus.test
@@ -7,7 +7,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: focus.test,v 1.3 1998/09/14 18:23:46 stanton Exp $
+# RCS: @(#) $Id: focus.test,v 1.4 1998/12/08 04:05:34 hershey Exp $
 
 if {$tcl_platform(platform) != "unix"} {
     return
@@ -201,6 +201,7 @@ test focus-1.25 {Tk_FocusCmd procedure} {
 if {[string compare testwrapper [info commands testwrapper]] != 0} {
     puts "This application hasn't been compiled with the testwrapper command,"
     puts "therefore I am skipping all of these tests."
+    cleanupbg
     return
 }
 
diff --git a/tests/unixEmbed.test b/tests/unixEmbed.test
index 513a5cc..39a3cf5 100644
--- a/tests/unixEmbed.test
+++ b/tests/unixEmbed.test
@@ -7,7 +7,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: unixEmbed.test,v 1.3 1998/09/14 18:23:52 stanton Exp $
+# RCS: @(#) $Id: unixEmbed.test,v 1.4 1998/12/08 04:05:34 hershey Exp $
 
 if {$tcl_platform(platform) != "unix"} {
     return
@@ -100,6 +100,7 @@ test unixEmbed-1.4 {TkpUseWindow procedure, inheriting colormap} {
 if {[string compare testembed [info commands testembed]] != 0} {
     puts "This application hasn't been compiled with the testembed command,"
     puts "therefore I am skipping all of these tests."
+    cleanupbg
     return
 }
 
-- 
cgit v0.12