#!perl -T
use
XML::DOM;
use
XML::DOM::XPath;
my
$custom_data
=
'<custom-info info-type="weirdinfotype">long info</custom-info>'
;
my
$parser
= XML::DOM::Parser->new();
my
$xp
=
$parser
->parse(
$custom_data
);
my
$custom
= EBook::FB2::Description::CustomInfo->new;
my
@nodes
=
$xp
->findnodes(
"/custom-info"
);
$custom
->load(
$nodes
[0]);
is(
$custom
->info,
'long info'
);
is(
$custom
->info_type,
'weirdinfotype'
);