1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
#!/usr/bin/perl -w
use FindBin qw($Bin); BEGIN { unshift @INC, $Bin; } use xmlxpath_tools;
use Test;
plan( tests => 7);
use XML::Twig::XPath;
$|=1;
my $doc=
'<doc id="doc">
<elt id="elt-1">elt 1</elt>
<elt id="elt-2">elt 2</elt>
<elt2 id="elt2-1">
<elt id="elt-3">elt 3</elt>
</elt2>
<elt2 id="elt2-2">
<elt2 att_int="2" id="elt2-3">2</elt2>
<elt2 att_int="3" id="elt2-4">3</elt2>
</elt2>
<elt5 id="elt5-1">
<elt3 id="elt3-1">
<elt4 att_int="2" id="elt4-1">2</elt4>
<elt4 att_int="3" id="elt4-2">3</elt4>
</elt3>
<elt3 id="elt3-2">
<elt4 att_int="2" id="elt4-3">2</elt4>
<elt4 att_int="3" id="elt4-4">3</elt4>
</elt3>
<elt6 id="elt6-1">in_elt6-1</elt6>
<elt7 id="elt7-1">in_elt7-1</elt7>
<elt7 id="elt7-2">in_elt7-2</elt7>
</elt5>
<:elt id=":elt">yep, that is a valid name</:elt>
</doc>'
;
my $t= XML::Twig::XPath->new( twig_handlers =>
{ elt5 => sub { my @res1= $_->findnodes( './elt3/elt4[@att_int="3"] | elt3');
ok( ids( @res1), "elt3-1 - elt4-2 - elt3-2 - elt4-4"); # 1
ok( $_->field( 'elt7[@id="elt7-2"]'), "in_elt7-2"); # 2
ok( $_->findvalue( 'elt7[@id="elt7-2"]'), "in_elt7-2"); # 3
ok( $_->findvalue( 'elt7[preceding-sibling::*[1][self::elt6]]'), "in_elt7-1"); # 4
ok( $_->findvalue( 'elt7[preceding-sibling::elt6]'), "in_elt7-1in_elt7-2"); # 5
ok( $_->findvalue( "elt7"), "in_elt7-1in_elt7-2"); # 6
},
},
);
$t->parse( $doc);
ok( ids( $t->findnodes( '//elt3/elt4[@att_int="3"] | //elt3') ), "elt3-1 - elt4-2 - elt3-2 - elt4-4"); # 7
exit 0;
sub ids
{ return join( " - ", map { $_->id } @_); }
|
