diff options
Diffstat (limited to 'tests/winButton.test')
| -rw-r--r-- | tests/winButton.test | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/tests/winButton.test b/tests/winButton.test index e2107ba..406133a 100644 --- a/tests/winButton.test +++ b/tests/winButton.test @@ -12,11 +12,12 @@ package require tcltest 2.2 namespace import ::tcltest::* tcltest::configure {*}$argv tcltest::loadTestedCommands + +# Import utility procs for specific functional areas +testutils import button image + imageInit -proc bogusTrace args { - error "trace aborted" -} option clear # ---------------------------------------------------------------------- @@ -191,9 +192,13 @@ test winbutton-1.9 {TkpComputeButtonGeometry procedure} -constraints win -setup deleteWindows } -result {23 33} -# cleanup +# +# CLEANUP +# + imageFinish deleteWindows +testutils forget button image cleanupTests return |
