From 642b11b4f8d5edacd55e6b10e0b287047acc1ae1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 6 Jan 2011 14:38:24 -0600
Subject: major refactoring, things are a lot cleaner now

---
 t/02-inputs.t | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

(limited to 't')

diff --git a/t/02-inputs.t b/t/02-inputs.t
index 4b27630..faa5e5a 100644
--- a/t/02-inputs.t
+++ b/t/02-inputs.t
@@ -125,18 +125,22 @@ sub test_responses {
         "GET\n/\n\n"
     );
 
-    my $uri = URI->new($base_uri);
-    $uri->scheme('http')
-        if $base_uri =~ /psgi-local/;
-    my $env = HTTP::Request->new(GET => $uri)->to_psgi;
-    $env->{'psgi.url_scheme'} = 'psgi-local'
-        if $base_uri =~ /psgi-local/;
-    response_is(
-        $client->request($env),
-        200,
-        ['Content-Type' => 'text/plain', 'Content-Length' => '7'],
-        "GET\n/\n\n"
-    );
+    {
+        my $base = URI->new($base_uri);
+        my $uri = $base->clone;
+        $uri->scheme('http');
+        $uri->path('/') unless $uri->path;
+        my $env = HTTP::Request->new(GET => $uri)->to_psgi;
+        $env->{'plack.client.url_scheme'} = $base->scheme;
+        $env->{'plack.client.app_name'} = $base->authority
+            if $base->scheme eq 'psgi-local';
+        response_is(
+            $client->request($env),
+            200,
+            ['Content-Type' => 'text/plain', 'Content-Length' => '7'],
+            "GET\n/\n\n"
+        );
+    }
 }
 
 done_testing;
-- 
cgit v1.2.3-54-g00ecf