7 if ( !Config::Any::XML->is_supported ) {
8 plan skip_all => 'XML format not supported';
15 my $config = Config::Any::XML->load( 't/conf/conf.xml' );
17 is( $config->{ name }, 'TestApp' );
22 my $broken_libxml = eval { require XML::LibXML; XML::LibXML->VERSION lt '1.59'; };
23 skip 'XML::LibXML < 1.58 has issues', 2 if $broken_libxml;
25 local $SIG{__WARN__} = sub {}; # squash warnings from XML::Simple
26 my $file = 't/invalid/conf.xml';
27 my $config = eval { Config::Any::XML->load( $file ) };
29 ok( !$config, 'config load failed' );
30 ok( $@, "error thrown ($@)" );