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
|
# -- binary file download
#
#
set testfilename1 binary.rvt
set binaryfile AngeloFish.jpg
::tcltest::test binary-1.1 {binary data test} {
set page [ ::http::geturl "${urlbase}$testfilename1?test1=1" ]
set fl [open $binaryfile r]
fconfigure $fl -translation binary
fconfigure $fl -encoding binary
set ret [string equal -length 42747 [::http::data $page] [read $fl]]
close $fl
set ret
} 1
::tcltest::test binary-2.1 {binary data test with 'include'} {
set page [ ::http::geturl "${urlbase}$testfilename1?test2=1" ]
set fl [open $binaryfile r]
fconfigure $fl -translation binary
fconfigure $fl -encoding binary
set ret [string equal -length 42747 [::http::data $page] [read $fl]]
close $fl
set ret
} 1
|
