summaryrefslogtreecommitdiffstats
path: root/tests/winButton.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/winButton.test')
-rw-r--r--tests/winButton.test13
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