Fix auth bug exposed by t/multi_content_type.t

diff --git a/lib/Test/WWW/Mechanize/Catalyst.pm b/lib/Test/WWW/Mechanize/Catalyst.pm
index 1230a45..da48764 100644 (file)
--- a/lib/Test/WWW/Mechanize/Catalyst.pm
+++ b/lib/Test/WWW/Mechanize/Catalyst.pm
@@ -28,8 +28,13 @@ sub _make_request {
             return $self->SUPER::_make_request($request);
         }
     }
-
-    my @creds = $self->get_basic_credentials( "Basic", $request->uri );
+  
+    my $uri = $request->uri;
+    if ($uri->as_string =~ m{^/}) {
+      $uri->scheme('http');
+      $uri->host('localhost');
+    }
+    my @creds = $self->get_basic_credentials( "Basic", $uri );
     $request->authorization_basic( @creds ) if @creds;
 
     my $response = Test::WWW::Mechanize::Catalyst::Aux::request($request);

diff --git a/t/multi_content_type.t b/t/multi_content_type.t
index 2748ebc..5805b6d 100644 (file)
--- a/t/multi_content_type.t
+++ b/t/multi_content_type.t
@@ -15,7 +15,7 @@ use Test::Exception;
 
 BEGIN {
     diag(
-        "###################################################################\n",
+        "\n###################################################################\n",
         "Starting an external Catalyst HTTP server on port $PORT\n",
         "To change the port, please set the TWMC_TEST_PORT env variable.\n",
         "(The server will be automatically shut-down right after the tests).\n",