[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