[Catalyst-commits] r8533 - in Catalyst-Runtime/5.70/trunk: . t t/lib/TestApp/Controller/Engine/Response

[andyg at dev.catalyst.perl.org]

Author: andyg
Date: 2008-10-15 20:23:04 +0100 (Wed, 15 Oct 2008)
New Revision: 8533

Modified:
   Catalyst-Runtime/5.70/trunk/Changes
   Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Engine/Response/Cookies.pm
   Catalyst-Runtime/5.70/trunk/t/live_engine_response_cookies.t
Log:
Workaround change in LWP that broke a cookie test (RT #40037)

Modified: Catalyst-Runtime/5.70/trunk/Changes
===================================================================
--- Catalyst-Runtime/5.70/trunk/Changes	2008-10-15 19:18:29 UTC (rev 8532)
+++ Catalyst-Runtime/5.70/trunk/Changes	2008-10-15 19:23:04 UTC (rev 8533)
@@ -1,6 +1,7 @@
 # This file documents the revision history for Perl extension Catalyst.
 
 5.7XXXXXX XXXX
+        - Workaround change in LWP that broke a cookie test (RT #40037)
         - Back out go() since that feature's been pushed to 5.80
         - Fix some Win32 test failures
         - Add pt translation of error message (wreis)

Modified: Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Engine/Response/Cookies.pm
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Engine/Response/Cookies.pm	2008-10-15 19:18:29 UTC (rev 8532)
+++ Catalyst-Runtime/5.70/trunk/t/lib/TestApp/Controller/Engine/Response/Cookies.pm	2008-10-15 19:23:04 UTC (rev 8533)
@@ -5,15 +5,15 @@
 
 sub one : Local {
     my ( $self, $c ) = @_;
-    $c->res->cookies->{Catalyst} = { value => 'Cool',     path => '/bah' };
-    $c->res->cookies->{Cool}     = { value => 'Catalyst', path => '/' };
+    $c->res->cookies->{catalyst} = { value => 'cool',     path => '/bah' };
+    $c->res->cookies->{cool}     = { value => 'catalyst', path => '/' };
     $c->forward('TestApp::View::Dump::Request');
 }
 
 sub two : Local {
     my ( $self, $c ) = @_;
-    $c->res->cookies->{Catalyst} = { value => 'Cool',     path => '/bah' };
-    $c->res->cookies->{Cool}     = { value => 'Catalyst', path => '/' };
+    $c->res->cookies->{catalyst} = { value => 'cool',     path => '/bah' };
+    $c->res->cookies->{cool}     = { value => 'catalyst', path => '/' };
     $c->res->redirect('http://www.google.com/');
 }
 

Modified: Catalyst-Runtime/5.70/trunk/t/live_engine_response_cookies.t
===================================================================
--- Catalyst-Runtime/5.70/trunk/t/live_engine_response_cookies.t	2008-10-15 19:18:29 UTC (rev 8532)
+++ Catalyst-Runtime/5.70/trunk/t/live_engine_response_cookies.t	2008-10-15 19:23:04 UTC (rev 8533)
@@ -11,8 +11,8 @@
 use HTTP::Headers::Util 'split_header_words';
 
 my $expected = {
-    Catalyst => [qw|Catalyst Cool path /bah|],
-    Cool     => [qw|Cool Catalyst path /|]
+    catalyst => [qw|catalyst cool path /bah|],
+    cool     => [qw|cool catalyst path /|]
 };
 
 {