diff options
author | cvs2svn | 2005-06-10 10:29:11 +0000 |
---|---|---|
committer | cvs2svn | 2005-06-10 10:29:11 +0000 |
commit | 960cdf29197bc3f5922110cf26627aa9709ac79b (patch) | |
tree | 7d6e4a472376b203d21826c2230b4a8c6a9024bd /tests | |
parent | 3fc9c4bc1d6f70db41ad418992bf3d461059d3c0 (diff) | |
download | tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.zip tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.gz tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.bz2 tkzinc-960cdf29197bc3f5922110cf26627aa9709ac79b.tar.xz |
This commit was manufactured by cvs2svn to create branch 'bogue40'.
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 |