summaryrefslogtreecommitdiffstats
path: root/t/02-inputs.t
diff options
context:
space:
mode:
Diffstat (limited to 't/02-inputs.t')
-rw-r--r--t/02-inputs.t10
1 files changed, 7 insertions, 3 deletions
diff --git a/t/02-inputs.t b/t/02-inputs.t
index 1489175..4b27630 100644
--- a/t/02-inputs.t
+++ b/t/02-inputs.t
@@ -125,14 +125,18 @@ sub test_responses {
"GET\n/\n\n"
);
- { local $TODO = "actually, i have no idea if this even makes sense";
+ 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(HTTP::Request->new(GET => $base_uri)),
+ $client->request($env),
200,
['Content-Type' => 'text/plain', 'Content-Length' => '7'],
"GET\n/\n\n"
);
- }
}
done_testing;