diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-01-11 13:57:50 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-01-11 14:02:47 -0600 |
| commit | 935312b7f10857f0ece01697355ec7bf2247e461 (patch) | |
| tree | 8c8848f165d4fa5dd9d3171b3a634cf371fd43c2 /t | |
| parent | 811c7f969dba4962943550c0b74e5ad179860683 (diff) | |
| download | plack-client-935312b7f10857f0ece01697355ec7bf2247e461.tar.gz plack-client-935312b7f10857f0ece01697355ec7bf2247e461.zip | |
just save the entire original uri
Diffstat (limited to 't')
| -rw-r--r-- | t/02-inputs.t | 8 | ||||
| -rw-r--r-- | t/03-delayed-response.t | 8 | ||||
| -rw-r--r-- | t/04-streaming.t | 8 |
3 files changed, 6 insertions, 18 deletions
diff --git a/t/02-inputs.t b/t/02-inputs.t index 3b7260a..094aec6 100644 --- a/t/02-inputs.t +++ b/t/02-inputs.t @@ -135,9 +135,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; - $env->{'plack.client.app_name'} = $base->authority - if $base->scheme eq 'psgi-local'; + $env->{'plack.client.original_uri'} = $base; response_is( $client->request($env), 200, @@ -153,9 +151,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; - $env->{'plack.client.app_name'} = $base->authority - if $base->scheme eq 'psgi-local'; + $env->{'plack.client.original_uri'} = $base; response_is( $client->request(Plack::Request->new($env)), 200, diff --git a/t/03-delayed-response.t b/t/03-delayed-response.t index ed3fbd9..d86116d 100644 --- a/t/03-delayed-response.t +++ b/t/03-delayed-response.t @@ -138,9 +138,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; - $env->{'plack.client.app_name'} = $base->authority - if $base->scheme eq 'psgi-local'; + $env->{'plack.client.original_uri'} = $base; response_is( $client->request($env), 200, @@ -156,9 +154,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; - $env->{'plack.client.app_name'} = $base->authority - if $base->scheme eq 'psgi-local'; + $env->{'plack.client.original_uri'} = $base; response_is( $client->request(Plack::Request->new($env)), 200, diff --git a/t/04-streaming.t b/t/04-streaming.t index 9aaec17..6c475ff 100644 --- a/t/04-streaming.t +++ b/t/04-streaming.t @@ -139,9 +139,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; - $env->{'plack.client.app_name'} = $base->authority - if $base->scheme eq 'psgi-local'; + $env->{'plack.client.original_uri'} = $base; response_is( $client->request($env), 200, @@ -157,9 +155,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; - $env->{'plack.client.app_name'} = $base->authority - if $base->scheme eq 'psgi-local'; + $env->{'plack.client.original_uri'} = $base; response_is( $client->request(Plack::Request->new($env)), 200, |