diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2009-01-13 01:46:05 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2009-01-13 01:46:05 (GMT) |
| commit | 4a96ce86821a373b23644857f6b01261d1fd6c1c (patch) | |
| tree | 2bb2e17fa91b47afa565195e5553ba50edf99aa9 /tests/textImage.test | |
| parent | 19458a73a3f2e0d6dc63f4127d47ca3f48af0e5d (diff) | |
| download | tk-4a96ce86821a373b23644857f6b01261d1fd6c1c.zip tk-4a96ce86821a373b23644857f6b01261d1fd6c1c.tar.gz tk-4a96ce86821a373b23644857f6b01261d1fd6c1c.tar.bz2 | |
Tk tests that create images need to be independent of the interpreter environment.
Diffstat (limited to 'tests/textImage.test')
| -rw-r--r-- | tests/textImage.test | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/tests/textImage.test b/tests/textImage.test index e0fc05b..8cb717b 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -7,12 +7,13 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: textImage.test,v 1.12 2008/08/28 08:52:06 aniap Exp $ +# RCS: @(#) $Id: textImage.test,v 1.13 2009/01/13 01:46:06 patthoyts Exp $ package require tcltest 2.2 namespace import ::tcltest::* eval tcltest::configure $argv tcltest::loadTestedCommands +imageInit # One time setup. Create a font to insure the tests are font metric invariant. destroy .t @@ -461,12 +462,13 @@ test textImage-5.1 {peer widget images} -setup { # cleanup destroy .t -foreach image [image names] {image delete $image} font delete test_font +imageFinish # cleanup cleanupTests return - - +# Local variables: +# mode: tcl +# End: |