3
use Test::More 'no_plan';
5
my $Class = 'Config::Auto';
7
### this includes a dummy XML::Simple that dies on import
12
{ my $obj = $Class->new( source => $$.$/, format => 'xml' );
13
ok( $obj, "Object created" );
16
ok( $@, "parse() on xml dies without XML::Simple" );
17
like( $@, qr/XML::Simple/, " Error message is informative" );