[Catalyst-commits] r11291 - in Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t: . lib

[yousef at dev.catalyst.perl.org]

Author: yousef
Date: 2009-09-01 09:55:26 +0000 (Tue, 01 Sep 2009)
New Revision: 11291

Added:
   Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t
   Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm
Log:
Added a test that warnings do get thrown if appclass actions are used.


Added: Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t
===================================================================
--- Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/deprecated_appclass_action_warnings.t	2009-09-01 09:55:26 UTC (rev 11291)
@@ -0,0 +1,13 @@
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More;
+use Catalyst::Test 'DeprecatedActionsInAppClassTestApp';
+
+plan tests => 2;
+
+ok( my $response = request('http://localhost/foo'), 'Request' );
+ok( $response->is_success, 'Response Successful 2xx' );

Added: Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm
===================================================================
--- Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm	                        (rev 0)
+++ Catalyst-Runtime/5.80/branches/deprecate_appclass_actions/t/lib/DeprecatedActionsInAppClassTestApp.pm	2009-09-01 09:55:26 UTC (rev 11291)
@@ -0,0 +1,14 @@
+package DeprecatedActionsInAppClassTestApp;
+
+use strict;
+use warnings;
+use Catalyst;
+
+__PACKAGE__->setup;
+
+sub foo : Local {
+    my ($self, $c) = @_;
+    $c->res->body('OK');
+}
+
+1;