blob: 1b06439201b3c121901b2c08baa2566445aba3eb (
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
|
source [file dirname [info script]]/testing.tcl
# This is a proxy for tcl || tclcompat
constraint cmd fconfigure
# The tests in this file are intended to test Tcl-compatible I/O features
test io-1.1 {translation binary} -body {
# write a file via stdout in binary mode
# This will always work on Unix
set script {
fconfigure stdout -translation binary
puts line1
puts line2
}
exec [info nameofexecutable] << $script >binary.out
# Read it back in binary mode
set f [open binary.out rb]
set buf [read $f]
close $f
set buf
} -cleanup {
file delete binary.out
} -result "line1\nline2\n"
testreport
|
