Commit | Line | Data |
---|---|---|
744e2821 | 1 | #!/usr/bin/env perl |
2 | use strict; | |
3 | use warnings; | |
4 | ||
5 | use FindBin; | |
6 | use lib "$FindBin::Bin/lib"; | |
7 | ||
8 | use Test::More; | |
9 | ||
10 | use aliased 'TestApp::Controller::Composed'; | |
11 | ||
12 | ok +(my $meta = Composed->meta), 'controller has meta'; | |
13 | ||
14 | ok $meta->find_method_by_name($_), "method $_ is available in composed controller" | |
15 | for qw( | |
16 | original_method | |
17 | original_action | |
18 | inherited_method | |
19 | inherited_action | |
20 | composed_method | |
21 | composed_action | |
22 | ); | |
23 | ||
24 | done_testing; |