diff options
Diffstat (limited to 'tests/bitmap.test')
| -rw-r--r-- | tests/bitmap.test | 22 |
1 files changed, 2 insertions, 20 deletions
diff --git a/tests/bitmap.test b/tests/bitmap.test index e79866a..6e2255c 100644 --- a/tests/bitmap.test +++ b/tests/bitmap.test @@ -7,14 +7,9 @@ # All rights reserved. package require tcltest 2.1 -namespace import -force tcltest::configure -namespace import -force tcltest::testsDirectory -configure -testdir [file join [pwd] [file dirname [info script]]] -configure -loadfile [file join [testsDirectory] constraints.tcl] +eval tcltest::configure $argv tcltest::loadTestedCommands -testConstraint testbitmap [llength [info commands testbitmap]] - test bitmap-1.1 {Tk_AllocBitmapFromObj - converting internal reps} testbitmap { set x gray25 lindex $x 0 @@ -92,18 +87,5 @@ test bitmap-4.1 {FreeBitmapObjProc} testbitmap { destroy .t # cleanup -::tcltest::cleanupTests +cleanupTests return - - - - - - - - - - - - - |