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
|
source [file dirname [info script]]/testing.tcl
needs constraint jim
needs cmd interp
test interp-1.0 {interp bad args} -body {
interp arg
} -returnCodes error -result {wrong # args: should be "interp"}
test interp-1.1 {interp alias} {
set i [interp]
$i alias subincr incr
$i eval { set x 0 }
$i eval { subincr x }
$i eval { subincr x }
} {2}
test interp-1.2 {interp alias delete} {
$i eval { rename subincr "" }
} {}
test interp-1.3 {interp delete } {
$i alias subincr2 incr
$i delete
} {}
testreport
|
