projects
/
p5sagit/Config-Any.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
fb52d511e6cc64c981be2028bed087c8fc099a88
[p5sagit/Config-Any.git]
/
t
/
54-xml.t
1
use strict;
2
use warnings;
3
4
use Test::More;
5
use Config::Any::XML;
6
7
if ( !Config::Any::XML->is_supported ) {
8
plan skip_all => 'XML format not supported';
9
}
10
else {
11
plan tests => 2;
12
}
13
14
{
15
my $config = Config::Any::XML->load( 't/conf/conf.xml' );
16
ok( $config );
17
is( $config->{ name }, 'TestApp' );
18
}