Merged 5.49_01 (r1339) from refactored branch to trunk

[catagits/Catalyst-Runtime.git] / t / live / engine / response / cookies.t

diff --git a/t/engine/response/cookies.t b/t/live/engine/response/cookies.t
similarity index 72%
rename from t/engine/response/cookies.t
rename to t/live/engine/response/cookies.t
index 26de1a1..410e351 100644 (file)
--- a/t/engine/response/cookies.t
+++ b/t/live/engine/response/cookies.t
@@ -11,17 +11,18 @@ use Catalyst::Test 'TestApp';
 
 use HTTP::Headers::Util 'split_header_words';
 
-
-my $expected = { 
-    Catalyst => [ qw( Catalyst Cool path / ) ],
-    Cool     => [ qw( Cool Catalyst path / ) ]
+my $expected = {
+    Catalyst => [qw( Catalyst Cool path / )],
+    Cool     => [qw( Cool Catalyst path / )]
 };
 
 {
-    ok( my $response = request('http://localhost/engine/response/cookies/one'), 'Request' );
+    ok( my $response = request('http://localhost/engine/response/cookies/one'),
+        'Request' );
     ok( $response->is_success, 'Response Successful 2xx' );
     is( $response->content_type, 'text/plain', 'Response Content-Type' );
-    is( $response->header('X-Catalyst-Action'), 'engine/response/cookies/one', 'Test Action' );
+    is( $response->header('X-Catalyst-Action'),
+        'engine/response/cookies/one', 'Test Action' );
 
     my $cookies = {};
 
@@ -33,10 +34,12 @@ my $expected = {
 }
 
 {
-    ok( my $response = request('http://localhost/engine/response/cookies/two'), 'Request' );
+    ok( my $response = request('http://localhost/engine/response/cookies/two'),
+        'Request' );
     ok( $response->is_redirect, 'Response Redirection 3xx' );
     is( $response->code, 302, 'Response Code' );
-    is( $response->header('X-Catalyst-Action'), 'engine/response/cookies/two', 'Test Action' );
+    is( $response->header('X-Catalyst-Action'),
+        'engine/response/cookies/two', 'Test Action' );
 
     my $cookies = {};