Commit | Line | Data |
8af0a7cf |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More tests => 2; |
5 | |
6 | use Config::Any::Perl; |
7 | |
8 | { |
9 | my $file = 't/conf/conf_invalid.pl'; |
10 | my $config = eval { Config::Any::Perl->load( $file ) }; |
11 | |
12 | ok( !$config, 'config load failed' ); |
13 | ok( $@, "error thrown ($@)" ); |
14 | } |