Commit cfc59d855b7a7e4abde6e2e03031375593cad512
- Diff rendering mode:
- inline
- side by side
t/base/request.t
(9 / 1)
| 4 | 4 | use strict; | |
| 5 | 5 | ||
| 6 | 6 | use Test; | |
| 7 | plan tests => 7; | ||
| 7 | plan tests => 11; | ||
| 8 | 8 | ||
| 9 | 9 | use HTTP::Request; | |
| 10 | 10 | ||
| … | … | ||
| 23 | 23 | ||
| 24 | 24 | ok($req->uri("http:"), "http://www.example.com"); | |
| 25 | 25 | ok($req->uri, "http:"); | |
| 26 | |||
| 27 | $req->protocol("HTTP/1.1"); | ||
| 28 | |||
| 29 | my $r2 = HTTP::Request->parse($req->as_string); | ||
| 30 | ok($r2->method, "DELETE"); | ||
| 31 | ok($r2->uri, "http:"); | ||
| 32 | ok($r2->protocol, "HTTP/1.1"); | ||
| 33 | ok($r2->header("Accept-Encoding"), $req->header("Accept-Encoding")); |
