| # -- 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 |
| |
| |