Commit | Line | Data |
8716efe7 |
1 | use strict; |
2 | use warnings; |
3 | use lib 't/lib'; |
4 | |
5 | use Test::More tests => 1; |
6 | use Test::Exception; |
7 | |
8 | # Force a stack trace. |
9 | use Carp; |
10 | $SIG{__DIE__} = \&Carp::confess; |
11 | |
12 | { |
13 | package CAFCompatTestApp; |
14 | use Catalyst qw/ |
15 | +CAFCompatTestPlugin |
16 | /; |
17 | } |
18 | |
19 | TODO: { |
20 | local $TODO = 'The overridden setup in CAFCompatTestApp + the overridden accessor causes destruction'; |
21 | lives_ok { |
22 | CAFCompatTestApp->setup; |
23 | } 'Setup app with plugins which says use base qw/Class::Accessor::Fast/'; |
24 | } |