view release on metacpan or  search on metacpan

t/07-Package_Item.t  view on Meta::CPAN

);

ok( $dom = $writer->create_dom(), 'package writer creates DOM' );
ok( $xpc = XML::LibXML::XPathContext->new($dom),
    'create XPath context for DOM tree'
);
basic_checks($xpc);
is( $xpc->find('//nar:packageItem/nar:itemMeta/nar:title'),
    $title, 'package title correct' );
ok( $xpc->find('//nar:group[@id="root_group"]/nar:groupRef'),
    'slideshow has grouprefs' );
ok( $xpc->find('//nar:group[@id="group_4"]/nar:groupRef'),
    'last group has groupref' );
is( $xpc->findvalue('//nar:group[@id="root_group"]/@role'),
    'apagroup:slideshow', 'slideshow has correct role' );
is( $xpc->findvalue('//nar:group[@id="root_group"]/@mode'),
    'pgrmod:seq', 'slideshow has correct mode' );

validate_g2( $dom, undef, 'PackageItemSlideshow' );

#diag($dom->serialize(1));