From: Andy Grundman <andy@hybridized.org>
Date: Wed, 15 Oct 2008 19:23:04 +0000 (+0000)
Subject: Workaround change in LWP that broke a cookie test (RT #40037)
X-Git-Tag: 5.7099_04~10
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=c2c4666f087f803f27f8bd837da41574c631b326

Workaround change in LWP that broke a cookie test (RT #40037)
---

diff --git a/Changes b/Changes
index bad5081..a8106a6 100644
--- a/Changes
+++ b/Changes
@@ -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)
diff --git a/t/lib/TestApp/Controller/Engine/Response/Cookies.pm b/t/lib/TestApp/Controller/Engine/Response/Cookies.pm
index 4a9b2b8..8531fe7 100644
--- a/t/lib/TestApp/Controller/Engine/Response/Cookies.pm
+++ b/t/lib/TestApp/Controller/Engine/Response/Cookies.pm
@@ -5,15 +5,15 @@ use base 'Catalyst::Base';
 
 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/');
 }
 
diff --git a/t/live_engine_response_cookies.t b/t/live_engine_response_cookies.t
index abd0476..cffca3a 100644
--- a/t/live_engine_response_cookies.t
+++ b/t/live_engine_response_cookies.t
@@ -11,8 +11,8 @@ use Catalyst::Test 'TestApp';
 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 /|]
 };
 
 {