Commit | Line | Data |
f0e3c221 |
1 | use Test::More tests => 9; |
2 | use Config::Any; |
3 | |
92a04e78 |
4 | ok( !Config::Any->load_stems(), "load_stems expects args" ); |
f0e3c221 |
5 | |
6 | { |
7 | my @warnings; |
92a04e78 |
8 | local $SIG{ __WARN__ } = sub { push @warnings, @_ }; |
4efab558 |
9 | |
10 | Config::Any->load_files( ); |
11 | like( |
12 | shift @warnings, |
13 | qr/^No files specified!/, |
14 | "load_files expects args" |
15 | ); |
16 | |
92a04e78 |
17 | Config::Any->load_files( {} ); |
18 | like( |
19 | shift @warnings, |
4efab558 |
20 | qr/^No files specified!/, |
92a04e78 |
21 | "load_files expects files" |
22 | ); |
4efab558 |
23 | |
92a04e78 |
24 | Config::Any->load_stems( {} ); |
25 | like( |
26 | shift @warnings, |
27 | qr/^no stems specified/, |
28 | "load_stems expects stems" |
29 | ); |
f0e3c221 |
30 | } |
31 | |
92a04e78 |
32 | my @files = glob( "t/conf/conf.*" ); |
f0e3c221 |
33 | my $filter = sub { return }; |
92a04e78 |
34 | ok( Config::Any->load_files( { files => \@files, use_ext => 0 } ), |
35 | "use_ext 0 works" ); |
36 | ok( Config::Any->load_files( { files => \@files, use_ext => 1 } ), |
37 | "use_ext 1 works" ); |
f0e3c221 |
38 | |
92a04e78 |
39 | ok( Config::Any->load_files( |
40 | { files => \@files, use_ext => 1, filter => \&$filter } |
41 | ), |
42 | "filter works" |
43 | ); |
44 | eval { |
45 | Config::Any->load_files( |
46 | { files => \@files, |
47 | use_ext => 1, |
48 | filter => sub { die } |
49 | } |
50 | ); |
51 | }; |
52 | ok( $@, "filter breaks" ); |
f0e3c221 |
53 | |
54 | my @stems = qw(t/conf/conf); |
92a04e78 |
55 | ok( Config::Any->load_stems( { stems => \@stems, use_ext => 1 } ), |
56 | "load_stems with stems works" ); |