From: Yousef H. Alhashemi <yousef.alhashemi@gmail.com>
Date: Tue, 1 Sep 2009 09:55:26 +0000 (+0000)
Subject: Added a test that warnings do get thrown if appclass actions are used.
X-Git-Tag: 5.80013~12^2~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=commitdiff_plain;h=fe3e42c35853baa14fe879401ea85bf4c49e8153

Added a test that warnings do get thrown if appclass actions are used.
---

diff --git a/t/deprecated_appclass_action_warnings.t b/t/deprecated_appclass_action_warnings.t
new file mode 100644
index 0000000..6d73d6e
--- /dev/null
+++ b/t/deprecated_appclass_action_warnings.t
@@ -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' );
diff --git a/t/lib/DeprecatedActionsInAppClassTestApp.pm b/t/lib/DeprecatedActionsInAppClassTestApp.pm
new file mode 100644
index 0000000..bdf4b98
--- /dev/null
+++ b/t/lib/DeprecatedActionsInAppClassTestApp.pm
@@ -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;