use strict;
use warnings;

use Test::More tests => 2;

use XML::XPath  qw( );
use XML::LibXML qw( );

my $xml = <<'__EOI__';
<?xml version="1.0" ?>
<root>
   <ele />
   <ele xmlns="http://www.example.com/" />
</root>
__EOI__

{
    my $doc = XML::XPath->new( xml => $xml );
    my @nodes = $doc->findnodes('/root/ele');
    is(0+@nodes, 1, 'XML::XPath');
}

{
    my $doc = XML::LibXML->new()->parse_string( $xml );
    my @nodes = $doc->findnodes('/root/ele');
    is(0+@nodes, 1, 'XML::LibXML');
}

__END__
1..2
not ok 1 - XML::XPath
#   Failed test 'XML::XPath'
#   at 801019.pl line 20.
#          got: '2'
#     expected: '1'
ok 2 - XML::LibXML
# Looks like you failed 1 test of 2.