Fix auth test

diff --git a/lib/Test/WWW/Mechanize/Catalyst.pm b/lib/Test/WWW/Mechanize/Catalyst.pm
index f6964ce..1230a45 100644 (file)
--- a/lib/Test/WWW/Mechanize/Catalyst.pm
+++ b/lib/Test/WWW/Mechanize/Catalyst.pm
@@ -29,13 +29,8 @@ sub _make_request {
         }
     }
 
-    $request->authorization_basic(
-        LWP::UserAgent->get_basic_credentials(
-            undef, "Basic", $request->uri
-        )
-        )
-        if LWP::UserAgent->get_basic_credentials( undef, "Basic",
-        $request->uri );
+    my @creds = $self->get_basic_credentials( "Basic", $request->uri );
+    $request->authorization_basic( @creds ) if @creds;
 
     my $response = Test::WWW::Mechanize::Catalyst::Aux::request($request);
     $response->header( 'Content-Base', $request->uri );

diff --git a/t/auth-test.t b/t/auth-test.t
index 4d9068f..7e9bc7b 100644 (file)
--- a/t/auth-test.t
+++ b/t/auth-test.t
@@ -8,7 +8,7 @@ use Test::WWW::Mechanize::Catalyst 'Catty';
 
 my $root = "http://localhost";
 
-my $m = Test::WWW::Mechanize::Catalyst->new( autocheck => 0 );
+my $m = Test::WWW::Mechanize::Catalyst->new;
 $m->credentials( 'user', 'pass' );
 
 $m->get_ok("$root/check_auth_basic/");

diff --git a/t/lib/Catty.pm b/t/lib/Catty.pm
index 9d3e043..3479701 100644 (file)
--- a/t/lib/Catty.pm
+++ b/t/lib/Catty.pm
@@ -15,7 +15,7 @@ Catty->config(
     root => cwd . '/t/root',
 );
 Catty->setup();
-Catty->log->levels(undef);
+Catty->log->levels("fatal");
 
 sub default : Private {
     my ( $self, $context ) = @_;