Commit | Line | Data |
---|---|---|
7760bb42 | 1 | use strict; |
bd567467 | 2 | use warnings FATAL => 'all'; |
fcc2d1ec | 3 | |
4 | use Test::More tests => 3; | |
2ccaae6c | 5 | use Test::Fatal; |
fcc2d1ec | 6 | use Test::NoWarnings 1.04 ':early'; |
7 | ||
7760bb42 | 8 | { |
9 | package A; | |
10 | use Moose; | |
11 | with qw(MooseX::ConfigFromFile); | |
0e88ec88 | 12 | |
7760bb42 | 13 | sub get_config_from_file { } |
14 | } | |
15 | ||
16 | { | |
17 | package B; | |
18 | use Moose; | |
19 | extends qw(A); | |
20 | } | |
21 | ||
22 | ok(B->does('MooseX::ConfigFromFile'), 'B does ConfigFromFile'); | |
2ccaae6c | 23 | is(exception { B->new_with_config() }, undef, 'B->new_with_config lives'); |
7760bb42 | 24 |