Commit | Line | Data |
0da2dc30 |
1 | use strict; |
2 | use warnings; |
3 | use Test::More tests => 4; |
4 | |
5 | use Catalyst (); |
6 | { |
7 | package TestController; |
8 | use Moose; |
9 | BEGIN { extends 'Catalyst::Controller' } |
10 | |
11 | sub action : Local {} |
12 | |
13 | sub foo : Path {} |
14 | |
15 | no Moose; |
16 | } |
17 | |
18 | my $mock_app = Class::MOP::Class->create_anon_class( superclasses => ['Catalyst'] ); |
19 | my $app = $mock_app->name->new; |
20 | my $controller = TestController->new($app, {actions => { foo => { Path => '/some/path' }}}); |
21 | |
22 | ok $controller->can('_controller_actions'); |
23 | is_deeply $controller->_controller_actions => { foo => { Path => '/some/path' }}; |
24 | is_deeply $controller->{actions} => { foo => { Path => '/some/path' }}; # Back compat. |
b138a0d0 |
25 | is_deeply [ sort grep { ! /^_/ } map { $_->name } $controller->get_action_methods ], [sort qw/action foo/]; |
0da2dc30 |
26 | |