diff options
| author | hershey <hershey> | 1998-12-08 04:05:34 (GMT) |
|---|---|---|
| committer | hershey <hershey> | 1998-12-08 04:05:34 (GMT) |
| commit | cfd3c37b4483e3f22d8934b994874d809f775dad (patch) | |
| tree | 522cd749f90debe075c7c6dbf90d880e7cc68a77 | |
| parent | 575fead6396f86bad234914e97eaae770068b356 (diff) | |
| download | tk-cfd3c37b4483e3f22d8934b994874d809f775dad.zip tk-cfd3c37b4483e3f22d8934b994874d809f775dad.tar.gz tk-cfd3c37b4483e3f22d8934b994874d809f775dad.tar.bz2 | |
added "cleanupbg" call before return, needed because tests return early
if tktest is not the interp.
| -rw-r--r-- | tests/focus.test | 3 | ||||
| -rw-r--r-- | 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 } |