in reply to Test::XML::XPath doesn't match
As far as I can tell, Test::XML::XPath won't let you do this directly. I'm unsure why, but it seems like you really need to find a way to register the XHTML namespace. You'll hate this, but the following monkey patch should makes your test pass:
{ no warnings 'redefine'; sub Test::XML::XPath::XML::LibXML::new { my ($class,$xml) = @_; my $p = XML::LibXML->new; $p->line_numbers(1); my $document = $p->parse_string($xml) or croak("Could not parse XML: $xml"); my $xpc = XML::LibXML::XPathContext->new( $document->documentE +lement ); $xpc->registerNs( x => "http://www.w3.org/1999/xhtml" ); return bless { xpath => $xpc } => $class; } }
The caveat is that you have to now use the 'x' prefix with your xpaths.
Update:: This assume that you're using XML::LibXML (which I assume you are).
like_xpath $html, '/x:html', 'An XHTML document';Cheers,
Ovid
|
---|
In Section
Seekers of Perl Wisdom