diff options
| author | hobbs <hobbs> | 2008-03-12 05:57:43 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2008-03-12 05:57:43 (GMT) |
| commit | 2a8fbfca012f397ebc7a5978ce851691cc48ba7b (patch) | |
| tree | 81017bbcd52d2c770896c9935385d5f3c5757dd2 /tests/http.test | |
| parent | 0a7572c971ff4828a543fd4de8c92affc3d6eaaa (diff) | |
| download | tcl-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.test | 4 |
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 |