Commit | Line | Data |
---|---|---|
5a2e0210 | 1 | use strict; |
2 | use warnings; | |
f0e3c221 | 3 | |
5a2e0210 | 4 | use Test::More; |
f0e3c221 | 5 | use Config::Any::JSON; |
6 | ||
5a2e0210 | 7 | if ( !Config::Any::JSON->is_supported ) { |
8 | plan skip_all => 'JSON format not supported'; | |
9 | } | |
10 | else { | |
5770ffc0 | 11 | plan tests => 4; |
5a2e0210 | 12 | } |
f0e3c221 | 13 | |
5a2e0210 | 14 | { |
15 | my $config = Config::Any::JSON->load( 't/conf/conf.json' ); | |
f0e3c221 | 16 | ok( $config ); |
17 | is( $config->{ name }, 'TestApp' ); | |
18 | } | |
5770ffc0 | 19 | |
20 | # test invalid config | |
21 | { | |
77f14cda | 22 | my $file = 't/invalid/conf.json'; |
5770ffc0 | 23 | my $config = eval { Config::Any::JSON->load( $file ) }; |
24 | ||
25 | ok( !$config, 'config load failed' ); | |
77f14cda | 26 | ok( $@, "error thrown ($@)" ); |
5770ffc0 | 27 | } |