added test for Moose controller inheritance using method modifiers

diff --git a/t/aggregate/live_component_controller_moose.t b/t/aggregate/live_component_controller_moose.t
index a9a3ccf..660433c 100644 (file)
--- a/t/aggregate/live_component_controller_moose.t
+++ b/t/aggregate/live_component_controller_moose.t
@@ -4,7 +4,7 @@ use warnings;
 use FindBin;
 use lib "$FindBin::Bin/../lib";
 
-use Test::More tests => 2;
+use Test::More tests => 4;
 use Catalyst::Test 'TestApp';
 
 {
@@ -12,3 +12,9 @@ use Catalyst::Test 'TestApp';
     ok($response->is_success);
     is($response->content, '42', 'attribute default values get set correctly');
 }
+
+{
+    my $response = request('http://localhost/moose/methodmodifiers/get_attribute');
+    ok($response->is_success);
+    is($response->header('X-Catalyst-Test-After'), 'after called', 'after works as expected');
+}

diff --git a/t/lib/TestApp/Controller/Moose/MethodModifiers.pm b/t/lib/TestApp/Controller/Moose/MethodModifiers.pm
new file mode 100644 (file)
index 0000000..a2afb60
--- /dev/null
+++ b/t/lib/TestApp/Controller/Moose/MethodModifiers.pm
@@ -0,0 +1,10 @@
+package TestApp::Controller::Moose::MethodModifiers;
+use Moose;
+BEGIN { extends qw/TestApp::Controller::Moose/; }
+
+after get_attribute => sub {
+    my ($self, $c) = @_;
+    $c->response->header( 'X-Catalyst-Test-After' => 'after called' );
+};
+
+1;