diff options
Diffstat (limited to 't/03-delayed-response.t')
-rw-r--r-- | t/03-delayed-response.t | 8 |
1 files changed, 2 insertions, 6 deletions
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, |