diff options
| author | patthoyts@users.sourceforge.net <patthoyts> | 2009-01-13 01:46:05 (GMT) |
|---|---|---|
| committer | patthoyts@users.sourceforge.net <patthoyts> | 2009-01-13 01:46:05 (GMT) |
| commit | a8ecae92aca6d35368c04dd874e902cb463a6111 (patch) | |
| tree | 2bb2e17fa91b47afa565195e5553ba50edf99aa9 /tests/unixButton.test | |
| parent | 75f4a4ffbbd046dbd79b0cb405616f8734d6dbe8 (diff) | |
| download | tk-a8ecae92aca6d35368c04dd874e902cb463a6111.zip tk-a8ecae92aca6d35368c04dd874e902cb463a6111.tar.gz tk-a8ecae92aca6d35368c04dd874e902cb463a6111.tar.bz2 | |
Tk tests that create images need to be independent of the interpreter environment.
Diffstat (limited to 'tests/unixButton.test')
| -rw-r--r-- | tests/unixButton.test | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/unixButton.test b/tests/unixButton.test index 14ff0e5..5f50bbf 100644 --- a/tests/unixButton.test +++ b/tests/unixButton.test @@ -8,12 +8,13 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: unixButton.test,v 1.8 2008/08/18 16:09:10 aniap Exp $ +# RCS: @(#) $Id: unixButton.test,v 1.9 2009/01/13 01:46:06 patthoyts Exp $ package require tcltest 2.2 eval tcltest::configure $argv tcltest::loadTestedCommands namespace import -force tcltest::test +imageInit # Create entries in the option database to be sure that geometry options # like border width have predictable values. @@ -41,7 +42,7 @@ test unixbutton-1.1 {TkpComputeButtonGeometry procedure} -constraints { unix testImageType } -setup { deleteWindows - eval image delete [image names] + imageCleanup } -body { image create test image1 image1 changed 0 0 0 0 60 40 @@ -247,6 +248,10 @@ test unixbutton-2.1 {disabled coloring check, bug 669595} -constraints { # cleanup +imageFinish cleanupTests return +# Local variables: +# mode: tcl +# End: |