aboutsummaryrefslogtreecommitdiff
path: root/tests/rectangle.test
diff options
context:
space:
mode:
Diffstat (limited to 'tests/rectangle.test')
-rw-r--r--tests/rectangle.test48
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