use Test;
BEGIN { plan tests => 3 }

my $sample = <<EOS;
<xml>
  <tag>FOO</tag>
</xml>
EOS

use XML::XPath;
ok(1);

my $xp = XML::XPath->new(xml=>$sample);
ok($xp);

my $nodelist = $xp->find('/xml/tag');
ok( $nodelist eq 'FOO' );

Create test file with piece of code in RT 11724
Create test file with piece of code in RT 11724

RT 11724 have piece of code describing bug encountered. I take it and
transform it as standard test file.
