Workaround max_redirect 0 bug

diff --git a/lib/Catalyst/Test.pm b/lib/Catalyst/Test.pm
index be452c3..9791b24 100644 (file)
--- a/lib/Catalyst/Test.pm
+++ b/lib/Catalyst/Test.pm
@@ -240,6 +240,10 @@ sub remote_request {
             keep_alive   => 1,
             max_redirect => 0,
             timeout      => 60,
+            
+            # work around newer LWP max_redirect 0 bug
+            # http://rt.cpan.org/Ticket/Display.html?id=40260
+            requests_redirectable => [],
         );
 
         $agent->env_proxy;

diff --git a/t/aggregate/live_engine_response_cookies.t b/t/aggregate/live_engine_response_cookies.t
index 59b2a1d..5f2f226 100644 (file)
--- a/t/aggregate/live_engine_response_cookies.t
+++ b/t/aggregate/live_engine_response_cookies.t
@@ -33,8 +33,6 @@ my $expected = {
     is_deeply( $cookies, $expected, 'Response Cookies' );
 }
 
-# XXX: these fail on remote servers due to LWP max_redirect 0 bug:
-# http://rt.cpan.org/Ticket/Display.html?id=40260
 {
     ok( my $response = request('http://localhost/engine/response/cookies/two'),
         'Request' );

diff --git a/t/aggregate/live_engine_response_redirect.t b/t/aggregate/live_engine_response_redirect.t
index 5369bee..a01b9d0 100644 (file)
--- a/t/aggregate/live_engine_response_redirect.t
+++ b/t/aggregate/live_engine_response_redirect.t
@@ -9,8 +9,6 @@ use lib "$FindBin::Bin/../lib";
 use Test::More tests => 26;
 use Catalyst::Test 'TestApp';
 
-# XXX: these fail on remote servers due to LWP max_redirect 0 bug:
-# http://rt.cpan.org/Ticket/Display.html?id=40260
 {
     ok( my $response = request('http://localhost/engine/response/redirect/one'), 'Request' );
     ok( $response->is_redirect, 'Response Redirection 3xx' );