diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-01-25 16:27:56 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-01-25 16:27:56 -0600 |
| commit | b5c9eeeb43b88c8a1319853e1a92d92b1c858057 (patch) | |
| tree | d2691a651e2787d156c94b0ad4781a40e9536031 /t | |
| parent | 20174fe7d811ade45febe9995d348c6ae7276fca (diff) | |
| download | plack-client-b5c9eeeb43b88c8a1319853e1a92d92b1c858057.tar.gz plack-client-b5c9eeeb43b88c8a1319853e1a92d92b1c858057.zip | |
new plack version fixes this
Diffstat (limited to 't')
| -rw-r--r-- | t/02-inputs.t | 2 | ||||
| -rw-r--r-- | t/03-delayed-response.t | 2 | ||||
| -rw-r--r-- | t/04-streaming.t | 2 |
3 files changed, 0 insertions, 6 deletions
diff --git a/t/02-inputs.t b/t/02-inputs.t index 5f9b56a..be14d0f 100644 --- a/t/02-inputs.t +++ b/t/02-inputs.t @@ -130,7 +130,6 @@ sub test_responses { my $base = URI->new($base_uri); my $uri = $base->clone; $uri->scheme('http'); - $uri->path('/') unless $uri->path; # XXX: work around plack bug my $env = HTTP::Request->new(GET => $uri)->to_psgi; $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug $env->{'plack.client.original_uri'} = $base; @@ -146,7 +145,6 @@ sub test_responses { my $base = URI->new($base_uri); my $uri = $base->clone; $uri->scheme('http'); - $uri->path('/') unless $uri->path; # XXX: work around plack bug my $env = HTTP::Request->new(GET => $uri)->to_psgi; $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug $env->{'plack.client.original_uri'} = $base; diff --git a/t/03-delayed-response.t b/t/03-delayed-response.t index a034f4a..7d256f0 100644 --- a/t/03-delayed-response.t +++ b/t/03-delayed-response.t @@ -133,7 +133,6 @@ sub test_responses { my $base = URI->new($base_uri); my $uri = $base->clone; $uri->scheme('http'); - $uri->path('/') unless $uri->path; # XXX: work around plack bug my $env = HTTP::Request->new(GET => $uri)->to_psgi; $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug $env->{'plack.client.original_uri'} = $base; @@ -149,7 +148,6 @@ sub test_responses { my $base = URI->new($base_uri); my $uri = $base->clone; $uri->scheme('http'); - $uri->path('/') unless $uri->path; # XXX: work around plack bug my $env = HTTP::Request->new(GET => $uri)->to_psgi; $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug $env->{'plack.client.original_uri'} = $base; diff --git a/t/04-streaming.t b/t/04-streaming.t index 2bee7a9..268cfa0 100644 --- a/t/04-streaming.t +++ b/t/04-streaming.t @@ -134,7 +134,6 @@ sub test_responses { my $base = URI->new($base_uri); my $uri = $base->clone; $uri->scheme('http'); - $uri->path('/') unless $uri->path; # XXX: work around plack bug my $env = HTTP::Request->new(GET => $uri)->to_psgi; $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug $env->{'plack.client.original_uri'} = $base; @@ -150,7 +149,6 @@ sub test_responses { my $base = URI->new($base_uri); my $uri = $base->clone; $uri->scheme('http'); - $uri->path('/') unless $uri->path; # XXX: work around plack bug my $env = HTTP::Request->new(GET => $uri)->to_psgi; $env->{CONTENT_LENGTH} = 0; # XXX: work around plack bug $env->{'plack.client.original_uri'} = $base; |