[Catalyst-commits] r8760 - in Catalyst-Runtime/5.80/trunk/t: . aggregate

andyg at dev.catalyst.perl.org andyg at dev.catalyst.perl.org
Sat Dec 6 05:25:30 GMT 2008


Author: andyg
Date: 2008-12-06 05:25:30 +0000 (Sat, 06 Dec 2008)
New Revision: 8760

Added:
   Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_print.t
Removed:
   Catalyst-Runtime/5.80/trunk/t/live_engine_response_print.t
Log:
Move live_engine_response_print into aggregate

Copied: Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_print.t (from rev 8740, Catalyst-Runtime/5.80/trunk/t/live_engine_response_print.t)
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_print.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/trunk/t/aggregate/live_engine_response_print.t	2008-12-06 05:25:30 UTC (rev 8760)
@@ -0,0 +1,24 @@
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 9;
+use Catalyst::Test 'TestApp';
+
+my $expected = {
+   one => "foo",
+   two => "foobar",
+   three => "foo,bar,baz",
+};
+
+for my $action ( sort keys %{$expected} ) {
+    ok( my $response = request('http://localhost/engine/response/print/' . $action ),
+        'Request' );
+    ok( $response->is_success, "Response $action successful 2xx" );
+    
+    is( $response->content, $expected->{$action}, "Content $action OK" );
+}

Deleted: Catalyst-Runtime/5.80/trunk/t/live_engine_response_print.t
===================================================================
--- Catalyst-Runtime/5.80/trunk/t/live_engine_response_print.t	2008-12-05 21:35:49 UTC (rev 8759)
+++ Catalyst-Runtime/5.80/trunk/t/live_engine_response_print.t	2008-12-06 05:25:30 UTC (rev 8760)
@@ -1,24 +0,0 @@
-#!perl
-
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/lib";
-
-use Test::More tests => 9;
-use Catalyst::Test 'TestApp';
-
-my $expected = {
-   one => "foo",
-   two => "foobar",
-   three => "foo,bar,baz",
-};
-
-for my $action ( sort keys %{$expected} ) {
-    ok( my $response = request('http://localhost/engine/response/print/' . $action ),
-        'Request' );
-    ok( $response->is_success, "Response $action successful 2xx" );
-    
-    is( $response->content, $expected->{$action}, "Content $action OK" );
-}




More information about the Catalyst-commits mailing list