diff options
| author | hobbs <hobbs> | 1999-11-20 17:57:43 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 1999-11-20 17:57:43 (GMT) |
| commit | 967fc057471fffb32340afe6b7f33e787b31e978 (patch) | |
| tree | d56b2615de36970a8ddaa7f5fdd3496e2bda2098 /tests/http.test | |
| parent | fa32157731af2786e286a722749b1a52795a5e89 (diff) | |
| download | tcl-967fc057471fffb32340afe6b7f33e787b31e978.zip tcl-967fc057471fffb32340afe6b7f33e787b31e978.tar.gz tcl-967fc057471fffb32340afe6b7f33e787b31e978.tar.bz2 | |
updated to 2.2 version for http
Diffstat (limited to 'tests/http.test')
| -rw-r--r-- | tests/http.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/http.test b/tests/http.test index d793727..b4ae601 100644 --- a/tests/http.test +++ b/tests/http.test @@ -12,19 +12,19 @@ # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # # -# RCS: @(#) $Id: http.test,v 1.12 1999/07/20 00:11:53 hershey Exp $ +# RCS: @(#) $Id: http.test,v 1.13 1999/11/20 17:57:43 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest namespace import ::tcltest::* } -if {[catch {package require http 2.1}]} { +if {[catch {package require http 2.2}]} { if {[info exist http2]} { - catch {puts "Cannot load http 2.1 package"} + catch {puts "Cannot load http 2.2 package"} return } else { - catch {puts "Running http 2.1 tests in slave interp"} + catch {puts "Running http 2.2 tests in slave interp"} set interp [interp create http2] $interp eval [list set http2 "running"] $interp eval [list source [info script]] @@ -74,7 +74,7 @@ if {[info commands testthread] == "testthread" && [file exists $httpdFile]} { test http-1.1 {http::config} { http::config -} {-accept */* -proxyfilter http::ProxyRequired -proxyhost {} -proxyport {} -useragent {Tcl http client package 2.1}} +} {-accept */* -proxyfilter http::ProxyRequired -proxyhost {} -proxyport {} -useragent {Tcl http client package 2.2}} test http-1.2 {http::config} { http::config -proxyfilter |