summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2008-12-09 22:38:05 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2008-12-09 22:38:05 (GMT)
commitb60afa29d8fe051ce6ede085d2855c228b66740e (patch)
tree4c648d0fc4c0f00d2a06be08b0effe3262cced07
parentc42fcde9e93845b5883b6be8dd4f24a8d5b0b742 (diff)
downloadtcl-b60afa29d8fe051ce6ede085d2855c228b66740e.zip
tcl-b60afa29d8fe051ce6ede085d2855c228b66740e.tar.gz
tcl-b60afa29d8fe051ce6ede085d2855c228b66740e.tar.bz2
Set the file channel to binary for size comparison on windows
-rw-r--r--tests/http.test7
1 files changed, 4 insertions, 3 deletions
diff --git a/tests/http.test b/tests/http.test
index 18cf75a..dfc884c 100644
--- a/tests/http.test
+++ b/tests/http.test
@@ -12,7 +12,7 @@
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#
-# RCS: @(#) $Id: http.test,v 1.48 2008/03/12 09:51:39 hobbs Exp $
+# RCS: @(#) $Id: http.test,v 1.49 2008/12/09 22:38:05 patthoyts Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -335,7 +335,7 @@ test http-4.1 {http::Event} {
set token [http::geturl $url -keepalive 0]
upvar #0 $token data
array set meta $data(meta)
- expr ($data(totalsize) == $meta(Content-Length))
+ expr {($data(totalsize) == $meta(Content-Length))}
} 1
test http-4.2 {http::Event} {
set token [http::geturl $url]
@@ -364,11 +364,12 @@ test http-4.4 {http::Event} {
test http-4.5 {http::Event} {
set testfile [makeFile "" testfile]
set out [open $testfile w]
+ fconfigure $out -translation lf
set token [http::geturl $url -channel $out]
close $out
upvar #0 $token data
removeFile $testfile
- expr $data(currentsize) == $data(totalsize)
+ expr {$data(currentsize) == $data(totalsize)}
} 1
test http-4.6 {http::Event} {
set testfile [makeFile "" testfile]