File: 20_XML_unvailable.t

package info (click to toggle)
libconfig-auto-perl 0.44-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 164 kB
  • sloc: perl: 397; makefile: 2
file content (18 lines) | stat: -rw-r--r-- 467 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
use strict;
use warnings;
use Test::More 'no_plan';

my $Class = 'Config::Auto';

### this includes a dummy XML::Simple that dies on import
use lib 't/lib';

use_ok( $Class );

{   my $obj = $Class->new( source => $$.$/, format => 'xml' );
    ok( $obj,                   "Object created" );

    eval { $obj->parse };
    ok( $@,                     "parse() on xml dies without XML::Simple" );
    like( $@, qr/XML::Simple/,  "   Error message is informative" );
}