Set default host in MockHTTP. Only set scheme/host when there's nothi…

…ng set
plack · Dec 16, 2009 · 3f73886 · 3f73886
1 parent 7ca8a9c
commit 3f73886
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Plack/Test/MockHTTP.pm b/lib/Plack/Test/MockHTTP.pm
@@ -16,7 +16,8 @@ sub test_psgi {
 
     my $cb = sub {
         my $req = shift;
-        $req->uri->scheme('http');
+        $req->uri->scheme('http')    unless defined $req->uri->scheme;
+        $req->uri->host('localhost') unless defined $req->uri->host;
         my $env = $req->to_psgi;
         my $res;
         try {