Commit | Line | Data |
---|---|---|
1cad29ab | 1 | use strict; |
2 | use Test::More tests => 1; | |
3 | ||
4 | { | |
5 | package TestPlugin; | |
6 | use strict; | |
7 | ||
8 | sub setup { | |
9 | shift->maybe::next::method(@_); | |
10 | } | |
11 | } | |
12 | { | |
13 | package TestAppC3ErrorUseMoose; | |
14 | use Moose; | |
15 | ||
16 | use Catalyst::Runtime 5.80; | |
17 | ||
18 | use base qw/Catalyst/; | |
19 | use Catalyst qw/ | |
20 | +TestPlugin | |
21 | /; | |
22 | } | |
23 | ||
2a56ace9 | 24 | use Test::Fatal; |
25 | is exception { | |
1cad29ab | 26 | TestAppC3ErrorUseMoose->setup(); |
2a56ace9 | 27 | }, undef, 'No C3 error'; |
1cad29ab | 28 | |
29 | 1; | |
30 |