diff options
| author | dgp <dgp@users.sourceforge.net> | 2009-04-10 13:15:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2009-04-10 13:15:57 (GMT) |
| commit | 47e1c81009e30a84cb47e15b40dac9ee254136b6 (patch) | |
| tree | 10738297df6a829398950e579bdec6cf9c35f7a0 /tests/http.test | |
| parent | 1d411553104b36d5a80c7a465812e262145c1942 (diff) | |
| download | tcl-47e1c81009e30a84cb47e15b40dac9ee254136b6.zip tcl-47e1c81009e30a84cb47e15b40dac9ee254136b6.tar.gz tcl-47e1c81009e30a84cb47e15b40dac9ee254136b6.tar.bz2 | |
* tests/httpd: Backport new tests for http 2.7.3.
* tests/http.tcl:
Diffstat (limited to 'tests/http.test')
| -rw-r--r-- | tests/http.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/http.test b/tests/http.test index 94cc95b..b889b04 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.2.1 2008/12/11 01:20:02 patthoyts Exp $ +# RCS: @(#) $Id: http.test,v 1.48.2.2 2009/04/10 13:15:57 dgp 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] @@ -369,7 +369,7 @@ test http-4.5 {http::Event} { 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] |