1use Test;
2BEGIN { plan tests => 5 }
3
4use XML::XPath;
5ok(1);
6
7my $xp = XML::XPath->new(ioref => *DATA);
8ok($xp);
9
10my @nodes;
11@nodes = $xp->findnodes('//*[name() = "BBB"]');
12ok(@nodes, 5);
13
14@nodes = $xp->findnodes('//*[starts-with(name(), "B")]');
15ok(@nodes, 7);
16
17@nodes = $xp->findnodes('//*[contains(name(), "C")]');
18ok(@nodes, 3);
19
20__DATA__
21<AAA>
22<BCC><BBB/><BBB/><BBB/></BCC>
23<DDB><BBB/><BBB/></DDB>
24<BEC><CCC/><DBD/></BEC>
25</AAA>
26