summaryrefslogtreecommitdiffstats
path: root/tests/http.test
diff options
context:
space:
mode:
authorhobbs <hobbs>2008-03-12 05:57:43 (GMT)
committerhobbs <hobbs>2008-03-12 05:57:43 (GMT)
commit2a8fbfca012f397ebc7a5978ce851691cc48ba7b (patch)
tree81017bbcd52d2c770896c9935385d5f3c5757dd2 /tests/http.test
parent0a7572c971ff4828a543fd4de8c92affc3d6eaaa (diff)
downloadtcl-2a8fbfca012f397ebc7a5978ce851691cc48ba7b.zip
tcl-2a8fbfca012f397ebc7a5978ce851691cc48ba7b.tar.gz
tcl-2a8fbfca012f397ebc7a5978ce851691cc48ba7b.tar.bz2
* library/http/http.tcl (http::geturl): add -method option to support
* tests/http.test (http-3.1): http PUT and DELETE requests. * doc/http.n: [Bug 1599901, 862554]
Diffstat (limited to 'tests/http.test')
-rw-r--r--tests/http.test4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/http.test b/tests/http.test
index c8f82a2..235252e 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.46 2007/12/13 15:26:06 dgp Exp $
+# RCS: @(#) $Id: http.test,v 1.47 2008/03/12 05:57:44 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest 2
@@ -117,7 +117,7 @@ test http-2.1 {http::reset} {
test http-3.1 {http::geturl} {
list [catch {http::geturl -bogus flag} msg] $msg
-} {1 {Unknown option flag, can be: -binary, -blocksize, -channel, -command, -handler, -headers, -progress, -query, -queryblocksize, -querychannel, -queryprogress, -validate, -timeout, -type}}
+} {1 {Unknown option flag, can be: -binary, -blocksize, -channel, -command, -handler, -headers, -method, -progress, -query, -queryblocksize, -querychannel, -queryprogress, -validate, -timeout, -type}}
test http-3.2 {http::geturl} {
catch {http::geturl http:junk} err
set err