From 935312b7f10857f0ece01697355ec7bf2247e461 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 11 Jan 2011 13:57:50 -0600
Subject: just save the entire original uri

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

(limited to 't')

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