root/lang/perl/Config-Multi/tags/0.02/t/03-multi.t @ 11786

Revision 11786, 0.6 kB (checked in by tomyhero, 7 years ago)

lang/perl/Config-Multi: FindBin::libs消し忘れてた。orz.

Line 
1use Test::Base;
2use Config::Multi;
3use FindBin;
4use File::Spec;
5use File::Basename;
6use Data::Dumper;
7
8plan tests => 3 * blocks ;
9
10my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );
11
12run {
13    my $block = shift;
14    my $cm = Config::Multi->new({dir => $dir , app_name => 'myapp' , prefix => 'web' , extension => 'yml' });
15    my $config = $cm->load();
16
17    is( $block->boin , $config->{Boin} );
18    is( $block->oppai , $config->{Oppai} );
19    is( $block->cat , $config->{Cat} );
20   
21}
22
23__END__
24=== test
25--- boin chomp
26Boin
27--- oppai chomp
28Oppai
29--- cat chomp
30Cat
31
Note: See TracBrowser for help on using the browser.