one more test

1 files changed, 17 insertions, 0 deletions

diff --git a/t/02-inputs.t b/t/02-inputs.t
index f46cb24..1865c61 100644
--- a/t/02-inputs.t
+++ b/t/02-inputs.t
@@ -141,6 +141,23 @@ sub test_responses {
             "GET\n/\n\n"
         );
     }
+
+    {
+        my $base = URI->new($base_uri);
+        my $uri = $base->clone;
+        $uri->scheme('http');
+        $uri->path('/') unless $uri->path; # XXX: work around plack bug
+        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(Plack::Request->new($env)),
+            200,
+            ['Content-Type' => 'text/plain', 'Content-Length' => '7'],
+            "GET\n/\n\n"
+        );
+    }
 }
 
 done_testing;