Test::XML::XPath 0.07

Test::XML::XPath is a Perl module to test XPath assertions.

SYNOPSIS

use Test::XML::XPath tests => 3;
like_xpath( , /foo ); # PASS
like_xpath( , /bar ); # FAIL
unlike_xpath( , /bar ); # PASS

is_xpath( bar , /foo, bar ); # PASS
is_xpath( bar , /bar, foo ); # FAIL

# More interesting examples of xpath assertions.
my $xml = pub ;

# Do testing for attributes.
like_xpath( $xml, /foo[@attrib="1"] ); # PASS
# Find an element anywhere in the document.
like_xpath( $xml, //bosh ); # PASS
# Both.
like_xpath( $xml, //bosh[@args="42"] ); # PASS

This module allows you to assert statements about your XML in the form of XPath statements. You can say that a piece of XML must contain certain tags, with so-and-so attributes, etc. It will try to use any installed XPath module that it knows about. Currently, this means XML::LibXML and XML::XPath, in that order.

NB: Normally in XPath processing, the statement occurs from a context node. In the case of like_xpath(), the context node will always be the root node. In practice, this means that these two statements are identical:

# Absolute path.
like_xpath( , /foo );
# Path relative to root.
like_xpath( , foo );

Its probably best to use absolute paths everywhere in order to keep things simple.
NB: Beware of specifying attributes. Because they use an @-sign, perl will complain about trying to interpolate arrays if you dont escape them or use single quotes.