3 use Test::More tests => 4;
7 package TestController;
9 BEGIN { extends 'Catalyst::Controller' }
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' }}});
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.
25 is_deeply [ sort grep { ! /^_/ } map { $_->name } $controller->get_action_methods ], [sort qw/action foo/];