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