Commit | Line | Data |
5a2e0210 |
1 | use strict; |
2 | use warnings; |
3 | |
5770ffc0 |
4 | use Test::More tests => 5; |
f0e3c221 |
5 | |
6 | use Config::Any::Perl; |
7 | |
5a2e0210 |
8 | { |
9 | my $file = 't/conf/conf.pl'; |
10 | my $config = Config::Any::Perl->load( $file ); |
83020fbd |
11 | |
f0e3c221 |
12 | ok( $config ); |
13 | is( $config->{ name }, 'TestApp' ); |
83020fbd |
14 | |
5a2e0210 |
15 | my $config_load2 = Config::Any::Perl->load( $file ); |
16 | is_deeply( $config_load2, $config, 'multiple loads of the same file' ); |
f0e3c221 |
17 | } |
5a2e0210 |
18 | |
5770ffc0 |
19 | # test invalid config |
20 | { |
21 | my $file = 't/invalid/conf.pl'; |
22 | my $config = eval { Config::Any::Perl->load( $file ) }; |
23 | |
24 | ok( !$config, 'config load failed' ); |
25 | ok( $@, "error thrown ($@)" ); |
26 | } |