[Catalyst-commits] r8756 - in Catalyst-Runtime/5.80/trunk: lib/Catalyst t/aggregate

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2008-12-05 18:05:03 +0000 (Fri, 05 Dec 2008)
New Revision: 8756

Modified:
   Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_cookies.t
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_redirect.t
Log:
Workaround max_redirect 0 bug

Modified: Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm
===================================================================
--- Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm	2008-12-05 17:44:13 UTC (rev 8755)
+++ Catalyst-Runtime/5.80/trunk/lib/Catalyst/Test.pm	2008-12-05 18:05:03 UTC (rev 8756)
@@ -240,6 +240,10 @@
             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;

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_cookies.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_cookies.t	2008-12-05 17:44:13 UTC (rev 8755)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_cookies.t	2008-12-05 18:05:03 UTC (rev 8756)
@@ -33,8 +33,6 @@
     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' );

Modified: Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_redirect.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_redirect.t	2008-12-05 17:44:13 UTC (rev 8755)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_redirect.t	2008-12-05 18:05:03 UTC (rev 8756)
@@ -9,8 +9,6 @@
 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' );