URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [httpold.test] - Blame information for rev 1765

Details | Compare with Previous | View Log


# Commands covered:  http_config, http_get, http_wait, http_reset
#
# This file contains a collection of tests for the http script library.
# Sourcing this file into Tcl runs the tests and
# generates output for errors.  No output means no errors were found.
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
# RCS: @(#) $Id: httpold.test,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $
 
if {[string compare test [info procs test]] == 1} then {source defs}
 
 
if {[catch {package require http 1.0}]} {
    if {[info exist httpold]} {
        catch {puts stderr "Cannot load http 1.0 package"}
        return
    } else {
        catch {puts stderr "Running http 1.0 tests in slave interp"}
        set interp [interp create httpold]
        $interp eval [list set httpold "running"]
        $interp eval [list source [info script]]
        interp delete $interp
        return
    }
}
 
############### The httpd_ procedures implement a stub http server. ########
proc httpd_init {{port 8015}} {
    socket -server httpdAccept $port
}
proc httpd_log {args} {
    global httpLog
    if {[info exists httpLog] && $httpLog} {
        puts stderr "httpd: [join $args { }]"
    }
}
array set httpdErrors {
    204 {No Content}
    400 {Bad Request}
    404 {Not Found}
    503 {Service Unavailable}
    504 {Service Temporarily Unavailable}
    }
 
proc httpdError {sock code args} {
    global httpdErrors
    puts $sock "$code $httpdErrors($code)"
    httpd_log "error: [join $args { }]"
}
proc httpdAccept {newsock ipaddr port} {
    global httpd
    upvar #0 httpd$newsock data
 
    fconfigure $newsock -blocking 0 -translation {auto crlf}
    httpd_log $newsock Connect $ipaddr $port
    set data(ipaddr) $ipaddr
    fileevent $newsock readable [list httpdRead $newsock]
}
 
# read data from a client request
 
proc httpdRead { sock } {
    upvar #0 httpd$sock data
 
    set readCount [gets $sock line]
    if {![info exists data(state)]} {
        if [regexp {(POST|GET|HEAD) ([^?]+)\??([^ ]*) HTTP/1.0} \
                $line x data(proto) data(url) data(query)] {
            set data(state) mime
            httpd_log $sock Query $line
        } else {
            httpdError $sock 400
            httpd_log $sock Error "bad first line:$line"
            httpdSockDone $sock
        }
        return
    }
 
    # string compare $readCount 0 maps -1 to -1, 0 to 0, and > 0 to 1
 
    set state [string compare $readCount 0],$data(state),$data(proto)
    httpd_log $sock $state
    switch -- $state {
        -1,mime,HEAD    -
        -1,mime,GET     -
        -1,mime,POST    {
            # gets would block
            return
        }
        0,mime,HEAD     -
        0,mime,GET      -
        0,query,POST    { httpdRespond $sock }
        0,mime,POST     { set data(state) query }
        1,mime,HEAD     -
        1,mime,POST     -
        1,mime,GET      {
            if [regexp {([^:]+):[       ]*(.*)}  $line dummy key value] {
                set data(mime,[string tolower $key]) $value
            }
        }
        1,query,POST    {
            append data(query) $line
            httpdRespond $sock
        }
        default {
            if [eof $sock] {
                httpd_log $sock Error "unexpected eof on <$data(url)> request"
            } else {
                httpd_log $sock Error "unhandled state <$state> fetching <$data(url)>"
            }
            httpdError $sock 404
            httpdSockDone $sock
        }
    }
}
proc httpdSockDone { sock } {
upvar #0 httpd$sock data
    unset data
    catch {close $sock}
}
 
# Respond to the query.
 
set bindata "This is binary data\x0d\x0amore\x0dmore\x0amore\x00null"
proc httpdRespond { sock } {
    global httpd bindata port
    upvar #0 httpd$sock data
 
    if {[string match *binary* $data(url)]} {
        set html "$bindata[info hostname]:$port$data(url)"
        set type application/octet-stream
    } else {
        set type text/html
 
        set html "HTTP/1.0 TEST
Hello, World!
$data(proto) $data(url)
"
        if {[info exists data(query)] && [string length $data(query)]} {
            append html "Query\n\n"
            foreach {key value} [split $data(query) &=] {
                append html "$key$value\n"
            }
            append html \n
        }
        append html 
    }
 
    if {$data(proto) == "HEAD"} {
        puts $sock "HTTP/1.0 200 OK"
    } else {
        puts $sock "HTTP/1.0 200 Data follows"
    }
    puts $sock "Date: [clock format [clock clicks]]"
    puts $sock "Content-Type: $type"
    puts $sock "Content-Length: [string length $html]"
    puts $sock ""
    if {$data(proto) != "HEAD"} {
        fconfigure $sock -translation binary
        puts -nonewline $sock $html
    }
    httpd_log $sock Done ""
    httpdSockDone $sock
}
##################### end server ###########################
 
set port 8010
if [catch {httpd_init $port} listen] {
    puts stderr "Cannot start http server, http test skipped"
    unset port
    return
}
 
test http-1.1 {http_config} {
    http_config
} {-accept */* -proxyfilter httpProxyRequired -proxyhost {} -proxyport {} -useragent {Tcl http client package 1.0}}
 
test http-1.2 {http_config} {
    http_config -proxyfilter
} httpProxyRequired
 
test http-1.3 {http_config} {
    catch {http_config -junk}
} 1
 
test http-1.4 {http_config} {
    http_config -proxyhost nowhere.come -proxyport 8080 -proxyfilter myFilter -useragent "Tcl Test Suite"
    set x [http_config]
    http_config -proxyhost {} -proxyport {} -proxyfilter httpProxyRequired \
        -useragent "Tcl http client package 1.0"
    set x
} {-accept */* -proxyfilter myFilter -proxyhost nowhere.come -proxyport 8080 -useragent {Tcl Test Suite}}
 
test http-1.5 {http_config} {
    catch {http_config -proxyhost {} -junk 8080}
} 1
 
test http-2.1 {http_reset} {
    catch {http_reset http#1}
} 0
 
test http-3.1 {http_get} {
    catch {http_get -bogus flag}
} 1
test http-3.2 {http_get} {
    catch {http_get http:junk} err
    set err
} {Unsupported URL: http:junk}
 
set url [info hostname]:$port
test http-3.3 {http_get} {
    set token [http_get $url]
    http_data $token
} "HTTP/1.0 TEST
Hello, World!
GET /
"
 
set tail /a/b/c
set url [info hostname]:$port/a/b/c
set binurl [info hostname]:$port/binary
 
test http-3.4 {http_get} {
    set token [http_get $url]
    http_data $token
} "HTTP/1.0 TEST
Hello, World!
GET $tail
"
 
proc selfproxy {host} {
    global port
    return [list [info hostname] $port]
}
test http-3.5 {http_get} {
    http_config -proxyfilter selfproxy
    set token [http_get $url]
    http_config -proxyfilter httpProxyRequired
    http_data $token
} "HTTP/1.0 TEST
Hello, World!
GET http://$url
"
 
test http-3.6 {http_get} {
    http_config -proxyfilter bogus
    set token [http_get $url]
    http_config -proxyfilter httpProxyRequired
    http_data $token
} "HTTP/1.0 TEST
Hello, World!
GET $tail
"
 
test http-3.7 {http_get} {
    set token [http_get $url -headers {Pragma no-cache}]
    http_data $token
} "HTTP/1.0 TEST
Hello, World!
GET $tail
"
 
test http-3.8 {http_get} {
    set token [http_get $url -query Name=Value&Foo=Bar]
    http_data $token
} "HTTP/1.0 TEST
Hello, World!
POST $tail
Query

NameValue
FooBar

"
 
test http-3.9 {http_get} {
    set token [http_get $url -validate 1]
    http_code $token
} "HTTP/1.0 200 OK"
 
 
test http-4.1 {httpEvent} {
    set token [http_get $url]
    upvar #0 $token data
    array set meta $data(meta)
    expr ($data(totalsize) == $meta(Content-Length))
} 1
 
test http-4.2 {httpEvent} {
    set token [http_get $url]
    upvar #0 $token data
    array set meta $data(meta)
    string compare $data(type) [string trim $meta(Content-Type)]
} 0
 
test http-4.3 {httpEvent} {
    set token [http_get $url]
    http_code $token
} {HTTP/1.0 200 Data follows}
 
test http-4.4 {httpEvent} {
    set out [open testfile w]
    set token [http_get $url -channel $out]
    close $out
    set in [open testfile]
    set x [read $in]
    close $in
    file delete testfile
    set x
} "HTTP/1.0 TEST
Hello, World!
GET $tail
"
 
test http-4.5 {httpEvent} {
    set out [open testfile w]
    set token [http_get $url -channel $out]
    close $out
    upvar #0 $token data
    file delete testfile
    expr $data(currentsize) == $data(totalsize)
} 1
 
test http-4.6 {httpEvent} {
    set out [open testfile w]
    set token [http_get $binurl -channel $out]
    close $out
    set in [open testfile]
    fconfigure $in -translation binary
    set x [read $in]
    close $in
    file delete testfile
    set x
} "$bindata$binurl"
 
proc myProgress {token total current} {
    global progress httpLog
    if {[info exists httpLog] && $httpLog} {
        puts "progress $total $current"
    }
    set progress [list $total $current]
}
if 0 {
    # This test hangs on Windows95 because the client never gets EOF
    set httpLog 1
    test http-4.6 {httpEvent} {
        set token [http_get $url -blocksize 50 -progress myProgress]
        set progress
    } {111 111}
}
test http-4.7 {httpEvent} {
    set token [http_get $url -progress myProgress]
    set progress
} {111 111}
test http-4.8 {httpEvent} {
    set token [http_get $url]
    http_status $token
} {ok}
test http-4.9 {httpEvent} {
    set token [http_get $url -progress myProgress]
    http_code $token
} {HTTP/1.0 200 Data follows}
test http-4.10 {httpEvent} {
    set token [http_get $url -progress myProgress]
    http_size $token
} {111}
test http-4.11 {httpEvent} {
    set token [http_get $url -timeout 1 -command {#}]
    http_reset $token
    http_status $token
} {reset}
test http-4.12 {httpEvent} {
    update
    set token [http_get $url -timeout 1 -command {#}]
    update
    http_status $token
} {timeout}
 
test http-5.1 {http_formatQuery} {
    http_formatQuery name1 value1 name2 "value two"
} {name1=value1&name2=value+two}
 
test http-5.2 {http_formatQuery} {
    http_formatQuery name1 ~bwelch name2 \xa1\xa2\xa2
} {name1=%7ebwelch&name2=%a1%a2%a2}
 
test http-5.3 {http_formatQuery} {
    http_formatQuery lines "line1\nline2\nline3"
} {lines=line1%0d%0aline2%0d%0aline3}
 
test http-6.1 {httpProxyRequired} {
    update
    http_config -proxyhost [info hostname] -proxyport $port
    set token [http_get $url]
    http_wait $token
    http_config -proxyhost {} -proxyport {}
    upvar #0 $token data
    set data(body)
} "HTTP/1.0 TEST
Hello, World!
GET http://$url
"
 
unset url
unset port
close $listen

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [tcl/] [tests/] [httpold.test] - Blame information for rev 1765

Hello, World!

$data(proto) $data(url)

Query

Hello, World!

GET /

Hello, World!

GET $tail

Hello, World!

GET http://$url

Hello, World!

GET $tail

Hello, World!

GET $tail

Hello, World!

POST $tail

Query

Hello, World!

GET $tail

Hello, World!

GET http://$url

Line No.	Rev	Author	Line
1	578	markom	`# Commands covered: http_config, http_get, http_wait, http_reset`
2			`#`
3			`# This file contains a collection of tests for the http script library.`
4			`# Sourcing this file into Tcl runs the tests and`
5			`# generates output for errors. No output means no errors were found.`
6			`#`
7			`# Copyright (c) 1991-1993 The Regents of the University of California.`
8			`# Copyright (c) 1994-1996 Sun Microsystems, Inc.`
9			`#`
10			`# See the file "license.terms" for information on usage and redistribution`
11			`# of this file, and for a DISCLAIMER OF ALL WARRANTIES.`
12			`#`
13			`# RCS: @(#) $Id: httpold.test,v 1.1.1.1 2002-01-16 10:25:36 markom Exp $`
14
15			`if {[string compare test [info procs test]] == 1} then {source defs}`
16
17
18			`if {[catch {package require http 1.0}]} {`
19			`if {[info exist httpold]} {`
20			`catch {puts stderr "Cannot load http 1.0 package"}`
21			`return`
22			`} else {`
23			`catch {puts stderr "Running http 1.0 tests in slave interp"}`
24			`set interp [interp create httpold]`
25			`$interp eval [list set httpold "running"]`
26			`$interp eval [list source [info script]]`
27			`interp delete $interp`
28			`return`
29			`}`
30			`}`
31
32			`############### The httpd_ procedures implement a stub http server. ########`
33			`proc httpd_init {{port 8015}} {`
34			`socket -server httpdAccept $port`
35			`}`
36			`proc httpd_log {args} {`
37			`global httpLog`
38			`if {[info exists httpLog] && $httpLog} {`
39			`puts stderr "httpd: [join $args { }]"`
40			`}`
41			`}`
42			`array set httpdErrors {`
43			`204 {No Content}`
44			`400 {Bad Request}`
45			`404 {Not Found}`
46			`503 {Service Unavailable}`
47			`504 {Service Temporarily Unavailable}`
48			`}`
49
50			`proc httpdError {sock code args} {`
51			`global httpdErrors`
52			`puts $sock "$code $httpdErrors($code)"`
53			`httpd_log "error: [join $args { }]"`
54			`}`
55			`proc httpdAccept {newsock ipaddr port} {`
56			`global httpd`
57			`upvar #0 httpd$newsock data`
58
59			`fconfigure $newsock -blocking 0 -translation {auto crlf}`
60			`httpd_log $newsock Connect $ipaddr $port`
61			`set data(ipaddr) $ipaddr`
62			`fileevent $newsock readable [list httpdRead $newsock]`
63			`}`
64
65			`# read data from a client request`
66
67			`proc httpdRead { sock } {`
68			`upvar #0 httpd$sock data`
69
70			`set readCount [gets $sock line]`
71			`if {![info exists data(state)]} {`
72			`if [regexp {(POST\|GET\|HEAD) ([^?]+)\??([^ ]*) HTTP/1.0} \`
73			`$line x data(proto) data(url) data(query)] {`
74			`set data(state) mime`
75			`httpd_log $sock Query $line`
76			`} else {`
77			`httpdError $sock 400`
78			`httpd_log $sock Error "bad first line:$line"`
79			`httpdSockDone $sock`
80			`}`
81			`return`
82			`}`
83
84			`# string compare $readCount 0 maps -1 to -1, 0 to 0, and > 0 to 1`
85
86			`set state [string compare $readCount 0],$data(state),$data(proto)`
87			`httpd_log $sock $state`
88			`switch -- $state {`
89			`-1,mime,HEAD -`
90			`-1,mime,GET -`
91			`-1,mime,POST {`
92			`# gets would block`
93			`return`
94			`}`
95			`0,mime,HEAD -`
96			`0,mime,GET -`
97			`0,query,POST { httpdRespond $sock }`
98			`0,mime,POST { set data(state) query }`
99			`1,mime,HEAD -`
100			`1,mime,POST -`
101			`1,mime,GET {`
102			`if [regexp {([^:]+):[ ](.)} $line dummy key value] {`
103			`set data(mime,[string tolower $key]) $value`
104			`}`
105			`}`
106			`1,query,POST {`
107			`append data(query) $line`
108			`httpdRespond $sock`
109			`}`
110			`default {`
111			`if [eof $sock] {`
112			`httpd_log $sock Error "unexpected eof on <$data(url)> request"`
113			`} else {`
114			`httpd_log $sock Error "unhandled state <$state> fetching <$data(url)>"`
115			`}`
116			`httpdError $sock 404`
117			`httpdSockDone $sock`
118			`}`
119			`}`
120			`}`
121			`proc httpdSockDone { sock } {`
122			`upvar #0 httpd$sock data`
123			`unset data`
124			`catch {close $sock}`
125			`}`
126
127			`# Respond to the query.`
128
129			`set bindata "This is binary data\x0d\x0amore\x0dmore\x0amore\x00null"`
130			`proc httpdRespond { sock } {`
131			`global httpd bindata port`
132			`upvar #0 httpd$sock data`
133
134			`if {[string match binary $data(url)]} {`
135			`set html "$bindata[info hostname]:$port$data(url)"`
136			`set type application/octet-stream`
137			`} else {`
138			`set type text/html`
139
140			`set html "HTTP/1.0 TEST`
141			`Hello, World!`
142			`$data(proto) $data(url)`
143			`"`
144			`if {[info exists data(query)] && [string length $data(query)]} {`
145			`append html "Query \n` `\n"`
146			`foreach {key value} [split $data(query) &=] {`
147			`append html "$key` `$value\n"`
148			`}`
149			`append html \n`
150			`}`
151			`append html`
152			`}`
153
154			`if {$data(proto) == "HEAD"} {`
155			`puts $sock "HTTP/1.0 200 OK"`
156			`} else {`
157			`puts $sock "HTTP/1.0 200 Data follows"`
158			`}`
159			`puts $sock "Date: [clock format [clock clicks]]"`
160			`puts $sock "Content-Type: $type"`
161			`puts $sock "Content-Length: [string length $html]"`
162			`puts $sock ""`
163			`if {$data(proto) != "HEAD"} {`
164			`fconfigure $sock -translation binary`
165			`puts -nonewline $sock $html`
166			`}`
167			`httpd_log $sock Done ""`
168			`httpdSockDone $sock`
169			`}`
170			`##################### end server ###########################`
171
172			`set port 8010`
173			`if [catch {httpd_init $port} listen] {`
174			`puts stderr "Cannot start http server, http test skipped"`
175			`unset port`
176			`return`
177			`}`
178
179			`test http-1.1 {http_config} {`
180			`http_config`
181			`} {-accept / -proxyfilter httpProxyRequired -proxyhost {} -proxyport {} -useragent {Tcl http client package 1.0}}`
182
183			`test http-1.2 {http_config} {`
184			`http_config -proxyfilter`
185			`} httpProxyRequired`
186
187			`test http-1.3 {http_config} {`
188			`catch {http_config -junk}`
189			`} 1`
190
191			`test http-1.4 {http_config} {`
192			`http_config -proxyhost nowhere.come -proxyport 8080 -proxyfilter myFilter -useragent "Tcl Test Suite"`
193			`set x [http_config]`
194			`http_config -proxyhost {} -proxyport {} -proxyfilter httpProxyRequired \`
195			`-useragent "Tcl http client package 1.0"`
196			`set x`
197			`} {-accept / -proxyfilter myFilter -proxyhost nowhere.come -proxyport 8080 -useragent {Tcl Test Suite}}`
198
199			`test http-1.5 {http_config} {`
200			`catch {http_config -proxyhost {} -junk 8080}`
201			`} 1`
202
203			`test http-2.1 {http_reset} {`
204			`catch {http_reset http#1}`
205			`} 0`
206
207			`test http-3.1 {http_get} {`
208			`catch {http_get -bogus flag}`
209			`} 1`
210			`test http-3.2 {http_get} {`
211			`catch {http_get http:junk} err`
212			`set err`
213			`} {Unsupported URL: http:junk}`
214
215			`set url [info hostname]:$port`
216			`test http-3.3 {http_get} {`
217			`set token [http_get $url]`
218			`http_data $token`
219			`} "HTTP/1.0 TEST`
220			`Hello, World!`
221			`GET /`
222			`"`
223
224			`set tail /a/b/c`
225			`set url [info hostname]:$port/a/b/c`
226			`set binurl [info hostname]:$port/binary`
227
228			`test http-3.4 {http_get} {`
229			`set token [http_get $url]`
230			`http_data $token`
231			`} "HTTP/1.0 TEST`
232			`Hello, World!`
233			`GET $tail`
234			`"`
235
236			`proc selfproxy {host} {`
237			`global port`
238			`return [list [info hostname] $port]`
239			`}`
240			`test http-3.5 {http_get} {`
241			`http_config -proxyfilter selfproxy`
242			`set token [http_get $url]`
243			`http_config -proxyfilter httpProxyRequired`
244			`http_data $token`
245			`} "HTTP/1.0 TEST`
246			`Hello, World!`
247			`GET http://$url`
248			`"`
249
250			`test http-3.6 {http_get} {`
251			`http_config -proxyfilter bogus`
252			`set token [http_get $url]`
253			`http_config -proxyfilter httpProxyRequired`
254			`http_data $token`
255			`} "HTTP/1.0 TEST`
256			`Hello, World!`
257			`GET $tail`
258			`"`
259
260			`test http-3.7 {http_get} {`
261			`set token [http_get $url -headers {Pragma no-cache}]`
262			`http_data $token`
263			`} "HTTP/1.0 TEST`
264			`Hello, World!`
265			`GET $tail`
266			`"`
267
268			`test http-3.8 {http_get} {`
269			`set token [http_get $url -query Name=Value&Foo=Bar]`
270			`http_data $token`
271			`} "HTTP/1.0 TEST`
272			`Hello, World!`
273			`POST $tail`
274			`Query`
275
276			`Name` `Value`
277			`Foo` `Bar`
278
279			`"`
280
281			`test http-3.9 {http_get} {`
282			`set token [http_get $url -validate 1]`
283			`http_code $token`
284			`} "HTTP/1.0 200 OK"`
285
286
287			`test http-4.1 {httpEvent} {`
288			`set token [http_get $url]`
289			`upvar #0 $token data`
290			`array set meta $data(meta)`
291			`expr ($data(totalsize) == $meta(Content-Length))`
292			`} 1`
293
294			`test http-4.2 {httpEvent} {`
295			`set token [http_get $url]`
296			`upvar #0 $token data`
297			`array set meta $data(meta)`
298			`string compare $data(type) [string trim $meta(Content-Type)]`
299			`} 0`
300
301			`test http-4.3 {httpEvent} {`
302			`set token [http_get $url]`
303			`http_code $token`
304			`} {HTTP/1.0 200 Data follows}`
305
306			`test http-4.4 {httpEvent} {`
307			`set out [open testfile w]`
308			`set token [http_get $url -channel $out]`
309			`close $out`
310			`set in [open testfile]`
311			`set x [read $in]`
312			`close $in`
313			`file delete testfile`
314			`set x`
315			`} "HTTP/1.0 TEST`
316			`Hello, World!`
317			`GET $tail`
318			`"`
319
320			`test http-4.5 {httpEvent} {`
321			`set out [open testfile w]`
322			`set token [http_get $url -channel $out]`
323			`close $out`
324			`upvar #0 $token data`
325			`file delete testfile`
326			`expr $data(currentsize) == $data(totalsize)`
327			`} 1`
328
329			`test http-4.6 {httpEvent} {`
330			`set out [open testfile w]`
331			`set token [http_get $binurl -channel $out]`
332			`close $out`
333			`set in [open testfile]`
334			`fconfigure $in -translation binary`
335			`set x [read $in]`
336			`close $in`
337			`file delete testfile`
338			`set x`
339			`} "$bindata$binurl"`
340
341			`proc myProgress {token total current} {`
342			`global progress httpLog`
343			`if {[info exists httpLog] && $httpLog} {`
344			`puts "progress $total $current"`
345			`}`
346			`set progress [list $total $current]`
347			`}`
348			`if 0 {`
349			`# This test hangs on Windows95 because the client never gets EOF`
350			`set httpLog 1`
351			`test http-4.6 {httpEvent} {`
352			`set token [http_get $url -blocksize 50 -progress myProgress]`
353			`set progress`
354			`} {111 111}`
355			`}`
356			`test http-4.7 {httpEvent} {`
357			`set token [http_get $url -progress myProgress]`
358			`set progress`
359			`} {111 111}`
360			`test http-4.8 {httpEvent} {`
361			`set token [http_get $url]`
362			`http_status $token`
363			`} {ok}`
364			`test http-4.9 {httpEvent} {`
365			`set token [http_get $url -progress myProgress]`
366			`http_code $token`
367			`} {HTTP/1.0 200 Data follows}`
368			`test http-4.10 {httpEvent} {`
369			`set token [http_get $url -progress myProgress]`
370			`http_size $token`
371			`} {111}`
372			`test http-4.11 {httpEvent} {`
373			`set token [http_get $url -timeout 1 -command {#}]`
374			`http_reset $token`
375			`http_status $token`
376			`} {reset}`
377			`test http-4.12 {httpEvent} {`
378			`update`
379			`set token [http_get $url -timeout 1 -command {#}]`
380			`update`
381			`http_status $token`
382			`} {timeout}`
383
384			`test http-5.1 {http_formatQuery} {`
385			`http_formatQuery name1 value1 name2 "value two"`
386			`} {name1=value1&name2=value+two}`
387
388			`test http-5.2 {http_formatQuery} {`
389			`http_formatQuery name1 ~bwelch name2 \xa1\xa2\xa2`
390			`} {name1=%7ebwelch&name2=%a1%a2%a2}`
391
392			`test http-5.3 {http_formatQuery} {`
393			`http_formatQuery lines "line1\nline2\nline3"`
394			`} {lines=line1%0d%0aline2%0d%0aline3}`
395
396			`test http-6.1 {httpProxyRequired} {`
397			`update`
398			`http_config -proxyhost [info hostname] -proxyport $port`
399			`set token [http_get $url]`
400			`http_wait $token`
401			`http_config -proxyhost {} -proxyport {}`
402			`upvar #0 $token data`
403			`set data(body)`
404			`} "HTTP/1.0 TEST`
405			`Hello, World!`
406			`GET http://$url`
407			`"`
408
409			`unset url`
410			`unset port`
411			`close $listen`