From 960cdf29197bc3f5922110cf26627aa9709ac79b Mon Sep 17 00:00:00 2001 From: cvs2svn Date: Fri, 10 Jun 2005 10:29:11 +0000 Subject: This commit was manufactured by cvs2svn to create branch 'bogue40'. --- tests/rectangle.test | 48 ------------------------------------------------ 1 file changed, 48 deletions(-) delete mode 100644 tests/rectangle.test (limited to 'tests/rectangle.test') 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 -- cgit v1.1