From: Ash Berlin <ash_github@firemirror.com>
Date: Mon, 2 Feb 2009 22:37:44 +0000 (+0000)
Subject: Fix auth bug exposed by t/multi_content_type.t
X-Git-Tag: 0.51~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FTest-WWW-Mechanize-Catalyst.git;a=commitdiff_plain;h=2d40faefc0e5f1b79b76275e90a3e630e588e785;hp=46377765ddd1edf4e7e17d1cee709786884740b3

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
--- 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
--- 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",