diff options
author | cvs2svn | 2005-01-24 15:46:33 +0000 |
---|---|---|
committer | cvs2svn | 2005-01-24 15:46:33 +0000 |
commit | e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf (patch) | |
tree | 7061a2d781348fa7d5965b7d7dd5d7ef6b27a7b0 /tests/rectangle.test | |
parent | e1ed2c6d78bb616e24166c13126adba1b95ea4ea (diff) | |
download | tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.zip tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.gz tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.bz2 tkzinc-e6a05dbef707dc10e546ef8fef8fc2a8b7d805bf.tar.xz |
This commit was manufactured by cvs2svn to create branch 'POSTSCRIPT'.POSTSCRIPT
Diffstat (limited to 'tests/rectangle.test')
-rw-r--r-- | tests/rectangle.test | 48 |
1 files changed, 0 insertions, 48 deletions
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 |