[Catalyst-commits] r9169 - in Test-WWW-Mechanize-Catalyst/trunk: lib/Test/WWW/Mechanize t t/lib

[ash at dev.catalyst.perl.org]

Author: ash
Date: 2009-02-02 22:37:40 +0000 (Mon, 02 Feb 2009)
New Revision: 9169

Modified:
   Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm
   Test-WWW-Mechanize-Catalyst/trunk/t/auth-test.t
   Test-WWW-Mechanize-Catalyst/trunk/t/lib/Catty.pm
Log:
Fix auth test

Modified: Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm	2009-02-02 22:33:13 UTC (rev 9168)
+++ Test-WWW-Mechanize-Catalyst/trunk/lib/Test/WWW/Mechanize/Catalyst.pm	2009-02-02 22:37:40 UTC (rev 9169)
@@ -29,13 +29,8 @@
         }
     }
 
-    $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 );

Modified: Test-WWW-Mechanize-Catalyst/trunk/t/auth-test.t
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/t/auth-test.t	2009-02-02 22:33:13 UTC (rev 9168)
+++ Test-WWW-Mechanize-Catalyst/trunk/t/auth-test.t	2009-02-02 22:37:40 UTC (rev 9169)
@@ -8,7 +8,7 @@
 
 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/");

Modified: Test-WWW-Mechanize-Catalyst/trunk/t/lib/Catty.pm
===================================================================
--- Test-WWW-Mechanize-Catalyst/trunk/t/lib/Catty.pm	2009-02-02 22:33:13 UTC (rev 9168)
+++ Test-WWW-Mechanize-Catalyst/trunk/t/lib/Catty.pm	2009-02-02 22:37:40 UTC (rev 9169)
@@ -15,7 +15,7 @@
     root => cwd . '/t/root',
 );
 Catty->setup();
-Catty->log->levels(undef);
+Catty->log->levels("fatal");
 
 sub default : Private {
     my ( $self, $context ) = @_;