From 57636f40564f8f0569e838c1e1bd93d8bbc7130c Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 7 Jan 2011 11:40:36 -0600
Subject: silence a test warning

---
 t/02-inputs.t           | 2 ++
 t/03-delayed-response.t | 2 ++
 t/04-streaming.t        | 2 ++
 3 files changed, 6 insertions(+)

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';
-- 
cgit v1.2.3-54-g00ecf