blob: 35aa1c5bb4278240ada19c18b8e2789d10af1d7a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
# -*- 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
|
