blob: fec7feb76f06478f1a7d8e807670e898e8a89a40 (
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
|
source testing.tcl
section "Regression Testing"
test regr-1.1 "Double dereference arrays" {
array set a {one ONE two TWO three THREE}
array set b {ONE 1 TWO 2 THREE 3}
set chan two
set b($a($chan))
} {2}
section "I/O Testing"
test io-1.1 "Read last line with no newline" {
set lines 0
set f [open testio.in]
while {[gets $f buf] >= 0} {
incr lines
}
close $f
list $lines
} {2}
testreport
|
