Commit | Line | Data |
---|---|---|
dcfb1d1d | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use Test::More tests => 3; | |
5 | ||
6 | use lib 't/lib'; | |
7 | use Config::Any; | |
8 | ||
9 | { | |
10 | my $result = eval { | |
11 | Config::Any->load_files( | |
12 | { files => [ 't/conf/conf.unsupported' ], use_ext => 1 } ); | |
13 | }; | |
14 | ||
15 | ok( !defined $result, 'empty result' ); | |
16 | ok( $@, 'error thrown' ); | |
17 | like( | |
18 | $@, | |
19 | qr/required support modules are not available/, | |
20 | 'error message' | |
21 | ); | |
22 | } |