1
use Test::More tests => 3;
4
use File::Spec::Functions;
6
### whitebox test, disabling XML::Simple
8
$INC{'XML/Simple.pm'} = $0;
13
use_ok('Config::Auto');
15
eval { Config::Auto::parse(
16
'config.xml',path => catdir('t','config')
20
ok( $@, "parse() on xml dies without XML::Simple" );
21
like( $@, qr/XML::Simple/, " Error message is informative" );