diff options
Diffstat (limited to 'tests')
-rw-r--r-- | tests/all.tcl | 8 | ||||
-rw-r--r-- | tests/rectangle.test | 48 |
2 files changed, 0 insertions, 56 deletions
diff --git a/tests/all.tcl b/tests/all.tcl deleted file mode 100644 index cb36d08..0000000 --- a/tests/all.tcl +++ /dev/null @@ -1,8 +0,0 @@ - -package require Tcl 8.4 -package require tcltest 2.2 - -tcltest::configure -testdir [file dir [file normalize [info script]]] -eval tcltest::configure $argv - -tcltest::runAllTests diff --git a/tests/rectangle.test b/tests/rectangle.test deleted file mode 100644 index 35aa1c5..0000000 --- a/tests/rectangle.test +++ /dev/null @@ -1,48 +0,0 @@ -# -*- tcl -*- -# This file is part of the Tkzinc test suite. -# It tests the code in Rectangle.c which implements -# the rectangle item. -# - -package require tcltest 2.2 -eval tcltest::configure $argv - -lappend auto_path [file join [file dirname [info script]] ..] -package require Tkzinc - -zinc .z -width 400 -height 300 -borderwidth 2 -relief sunken -pack .z -bind .z <1> { - puts "button down at (%x,%y)" -} -update - -namespace eval ::rectangle::test { - namespace import ::tcltest::* - -# testConstraint X [expr {...}] - - variable SETUP { - #common setup code - } - variable CLEANUP { - #common cleanup code - } - - test example-1 {} -setup $SETUP { - set i 1 - } -cleanup $CLEANUP - -# test example-2 {} -constraints emptyTest -setup $SETUP { -# # Second test; constrained -# } -cleanup $CLEANUP -result {...} - -# test example-3 {} { -# # Third test; no context required -# } {...} - - cleanupTests -} - -namespace delete ::rectangle::test -
\ No newline at end of file |