diff options
Diffstat (limited to 'tests/textImage.test')
| -rw-r--r-- | tests/textImage.test | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/textImage.test b/tests/textImage.test index f3f9c19..b2befd9 100644 --- a/tests/textImage.test +++ b/tests/textImage.test @@ -11,6 +11,10 @@ package require tcltest 2.2 namespace import ::tcltest::* eval tcltest::configure $argv tcltest::loadTestedCommands + +# Import utility procs for specific functional areas +testutils import image + imageInit # One time setup. Create a font to insure the tests are font metric invariant. @@ -461,12 +465,14 @@ test textImage-5.1 {peer widget images} -setup { image delete small large } -result {} -# cleanup +# +# CLEANUP +# + destroy .t font delete test_font imageFinish - -# cleanup +testutils forget image cleanupTests return |
