diff options
| author | Jesse Luehrs <doy@tozt.net> | 2011-01-07 11:40:36 -0600 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2011-01-07 11:40:36 -0600 |
| commit | 57636f40564f8f0569e838c1e1bd93d8bbc7130c (patch) | |
| tree | aa819a4d9863b2a10b852e26d0aaa3b48485019c | |
| parent | 01c36ea1f0a0c9f91df7fd060a032b0e23139d41 (diff) | |
| download | plack-client-57636f40564f8f0569e838c1e1bd93d8bbc7130c.tar.gz plack-client-57636f40564f8f0569e838c1e1bd93d8bbc7130c.zip | |
silence a test warning
| -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, 6 insertions, 0 deletions
diff --git a/t/02-inputs.t b/t/02-inputs.t index 1865c61..04d5312 100644 --- a/t/02-inputs.t +++ b/t/02-inputs.t @@ -131,6 +131,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; $env->{'plack.client.app_name'} = $base->authority if $base->scheme eq 'psgi-local'; @@ -148,6 +149,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; $env->{'plack.client.app_name'} = $base->authority if $base->scheme eq 'psgi-local'; diff --git a/t/03-delayed-response.t b/t/03-delayed-response.t index 777b828..9d9b258 100644 --- a/t/03-delayed-response.t +++ b/t/03-delayed-response.t @@ -134,6 +134,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; $env->{'plack.client.app_name'} = $base->authority if $base->scheme eq 'psgi-local'; @@ -151,6 +152,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; $env->{'plack.client.app_name'} = $base->authority if $base->scheme eq 'psgi-local'; diff --git a/t/04-streaming.t b/t/04-streaming.t index f74e6bd..a494681 100644 --- a/t/04-streaming.t +++ b/t/04-streaming.t @@ -135,6 +135,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; $env->{'plack.client.app_name'} = $base->authority if $base->scheme eq 'psgi-local'; @@ -152,6 +153,7 @@ sub test_responses { $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.url_scheme'} = $base->scheme; $env->{'plack.client.app_name'} = $base->authority if $base->scheme eq 'psgi-local'; |