28 lines
541 B
Plaintext
28 lines
541 B
Plaintext
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
|