Add a testcase for not screwing up ActionClass attributes.

Signed-off-by: Florian Ragwitz <rafl@debian.org>

t/action-class.t

@@ -0,0 +1,12 @@
+use strict;
+use warnings;
+use Test::More tests => 2;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Catalyst::Test 'TestApp';
+
+my $resp = request( "/actionclass/one" );
+ok( $resp->is_success );
+is( $resp->content, 'Catalyst::Action::TestActionClass' );

t/lib/Catalyst/Action/TestActionClass.pm

@@ -0,0 +1,9 @@
+package Catalyst::Action::TestActionClass;
+use parent 'Catalyst::Action';
+
+sub execute {
+    my ( $self, $controller, $c ) = @_;
+    $c->response->body(__PACKAGE__);
+};
+
+1;

t/lib/TestApp/Controller/ActionClass.pm

@@ -0,0 +1,8 @@
+package TestApp::Controller::ActionClass;
+use strict; use warnings;
+use Moose;
+BEGIN { extends 'Catalyst::Controller::ActionRole'; }
+
+sub one : Local ActionClass('TestActionClass') {}
+
+1;