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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
# -*- cperl -*-
use Test;
BEGIN { plan tests => 32 };
use XML::LibXML;
use XML::LibXML::XPathContext;
my $doc = XML::LibXML->new->parse_string(<<'XML');
<foo><bar a="b">Bla</bar><bar/></foo>
XML
ok($doc);
my $xc = XML::LibXML::XPathContext->new($doc);
$xc->registerNs('foo','urn:foo');
$xc->registerFunctionNS('copy','urn:foo',
sub { @_==1 ? $_[0] : die "too many parameters"}
);
# copy string, real, integer, nodelist
ok($xc->findvalue('foo:copy("bar")') eq 'bar');
ok($xc->findvalue('foo:copy(3.14)') < 3.141); # can't use == here because of
ok($xc->findvalue('foo:copy(3.14)') > 3.139); # float math
ok($xc->findvalue('foo:copy(7)') == 7);
ok($xc->find('foo:copy(//*)')->size() == 3);
my ($foo)=$xc->findnodes('(//*)[2]');
ok($xc->findnodes('foo:copy(//*)[2]')->pop->isSameNode($foo));
# too many arguments
eval { $xc->findvalue('foo:copy(1,xyz)') };
ok ($@);
# without a namespace
$xc->registerFunction('dummy', sub { 'DUMMY' });
ok($xc->findvalue('dummy()') eq 'DUMMY');
# unregister it
$xc->unregisterFunction('dummy');
eval { $xc->findvalue('dummy()') };
ok ($@);
# retister by name
sub dummy2 { 'DUMMY2' };
$xc->registerFunction('dummy2', 'dummy2');
ok($xc->findvalue('dummy2()') eq 'DUMMY2');
# unregister
$xc->unregisterFunction('dummy2');
eval { $xc->findvalue('dummy2()') };
ok ($@);
# a mix of different arguments types
$xc->registerFunction('join',
sub { join shift,
map { (ref($_)&&$_->isa('XML::LibXML::Node')) ? $_->nodeName : $_ }
map { (ref($_)&&$_->isa('XML::LibXML::NodeList')) ? @$_ : $_ }
@_
});
ok($xc->findvalue('join("","a","b","c")') eq 'abc');
ok($xc->findvalue('join("-","a",/foo,//*)') eq 'a-foo-foo-bar-bar');
ok($xc->findvalue('join("-",foo:copy(//*))') eq 'foo-bar-bar');
# unregister foo:copy
$xc->unregisterFunctionNS('copy','urn:foo');
eval { $xc->findvalue('foo:copy("bar")') };
ok ($@);
# test context reentrance
$xc->registerFunction('test-lock1', sub { $xc->find('string(//node())') });
$xc->registerFunction('test-lock2', sub { $xc->findnodes('//bar') });
ok($xc->find('test-lock1()') eq $xc->find('string(//node())'));
ok($xc->find('count(//bar)=2'));
ok($xc->find('count(test-lock2())=count(//bar)'));
ok($xc->find('count(test-lock2()|//bar)=count(//bar)'));
ok($xc->findnodes('test-lock2()[2]')->pop()->isSameNode($xc->findnodes('//bar[2]')));
$xc->registerFunction('test-lock3', sub { $xc->findnodes('test-lock2(//bar)') });
ok($xc->find('count(test-lock2())=count(test-lock3())'));
ok($xc->find('count(test-lock3())=count(//bar)'));
ok($xc->find('count(test-lock3()|//bar)=count(//bar)'));
# function creating new nodes
$xc->registerFunction('new-foo',
sub {
return $doc->createElement('foo');
});
ok($xc->findnodes('new-foo()')->pop()->nodeName eq 'foo');
my ($test_node) = $xc->findnodes('new-foo()');
$xc->registerFunction('new-chunk',
sub {
XML::LibXML->new->parse_string('<x><y><a/><a/></y><y><a/></y></x>')->find('//a')
});
ok($xc->findnodes('new-chunk()')->size() == 3);
my ($x)=$xc->findnodes('new-chunk()/parent::*');
ok($x->nodeName() eq 'y');
ok($xc->findvalue('name(new-chunk()/parent::*)') eq 'y');
ok($xc->findvalue('count(new-chunk()/parent::*)=2'));
my $largedoc=XML::LibXML->new->parse_string('<a>'.('<b/>' x 3000).'</a>');
$xc->setContextNode($largedoc);
$xc->registerFunction('pass1',
sub {
[$largedoc->findnodes('(//*)')]
});
$xc->registerFunction('pass2',sub { $_[0] } );
$xc->registerVarLookupFunc( sub { [$largedoc->findnodes('(//*)')] }, undef);
$largedoc->toString();
ok($xc->find('$a[name()="b"]')->size()==3000);
my @pass1=$xc->findnodes('pass1()');
ok(@pass1==3001);
ok($xc->find('pass2(//*)')->size()==3001);
|
