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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
#!/usr/bin/perl -w
use strict;
# $Id: test_bugs.t,v 1.6 2005/03/08 09:08:42 mrodrigu Exp $
use Test::More tests => 21;
use XML::DOM::XPath;
ok(1, "use XML::DOM::XPath");
{
# bug 1
# bug on getAttributes: problem when an element has no attribute
# found by Harry Moreau
my $parser= XML::DOM::Parser->new;
my $dom= $parser->parse( '<doc><elt/><elt id="elt1">elt 1</elt><elt id="elt2">elt 2</elt></doc>');
my @nodes= $dom->findnodes( '//elt[@id="elt1"]');
is( scalar @nodes => 1, "bug 1: result number");
is( $nodes[0]->toString => '<elt id="elt1">elt 1</elt>', "bug 1: result content");
}
{
# RT #8167 : toString did not work on a document
# found by Ben Hsing
my $parser= XML::DOM::Parser->new;
my $xml= "<doc>foo</doc>\n";
my $dom= $parser->parse( $xml);
is( $dom->toString, $xml, "toString on a whole document");
}
# RT #8977 : could not call XPath methods on an XML::DOM::Document before the parse
# because new did not create the xp object attached to the XML::DOM::Document
{ my $xml = XML::DOM::Document->new;
my $root = $xml->createElement('root');
$xml->appendChild($root);
ok( $xml->exists('root'), "can call XPath methods on an XML::DOM::Document before the parse");
}
# RT#11648: some xpath expressions containing '>', '>=', '<', '<=' operators trigger an error:
# Can't locate object method "to_number" via package "XML::DOM::Element" ...
# found and test case by a guest on RT
{ my $xmlStr = q{<d><e id="e1" nb="1"><f>1</f></e><e id="e2" nb="2"><f>3</f></e><e id="e3" nb="3"><f>1</f></e>
<e id="e4" nb="4"><f>2</f></e><e id="e5" nb="5"><f>5</f></e><e id="e6" nb="6"><f>10</f></e></d>
};
my $dom = XML::DOM::Parser->new();
my $doc = $dom->parse($xmlStr);
my @prices= map { $_->getAttribute( 'id')} $doc->findnodes('/d/e[f<1.9]');
is( join( ':' => @prices), 'e1:e3', "using number comparison on elements");
my $prices= $doc->findvalue('/d/e[f<2]/@id');
if( $prices eq 'e1e3e4')
{ warn " warning: the version of XPath you are using has a bug in the way it\n",
" handles numeric comparisons.\n",
" read the bug description: http://rt.cpan.org/NoAuth/Bug.html?id=6363\n",
" if an XML::XPath version with a fix for the bug is not yet available,\n",
" you can get a patched version: http://xmltwig.com/xml-xpath-patched/\n",
;
ok( 1, "using number comparison on elements (XPath bug found)");
}
else
{ is( $prices, 'e1e3', "using number comparison on elements"); }
$prices= $doc->findvalue('/d/e[f<2.5]/@id');
is( $prices, 'e1e3e4', "using number comparison on elements");
is( $doc->findvalue('/d/e[@nb>=2]/@id'), 'e2e3e4e5e6', "using number comparison on attributes");
my @nodes= $doc->findnodes( '/d/e/@id');
}
{ #RT 20884: //@* dies (needed getAttributes on XML::DOM::Document node type)
my $res= XML::DOM::Parser->new
->parse('<root a="e0"><element1 att="e1"/><element2 att="e3" aa="e2"/></root>')
->findvalue('//@*');
is( $res, 'e0e1e2e3', '//@*');
}
{ #RT 20884: //comment() dies (missing is<Type>Node methods)
my $doc= XML::DOM::Parser->new
->parse('<root><!--c1--><?t1 d1?><!--c2--><?t2 d2?><?t1 d3?></root>');
is( $doc->findvalue( '//comment()'), 'c1c2', '//comment()');
is( $doc->findvalue( '//processing-instruction("t1")'), 'd1d3', '//processing-instruction( "t1")');
# bug in XML::XPath
my $pis= $doc->findvalue( '//processing-instruction()');
if( $pis eq '')
{ warn " warning: the version of XPath you are using has a bug in the way it\n",
" handles the processing-instruction() selector'.\n",
" if an XML::XPath version with a fix for the bug is not yet available,\n",
" you can get a patched version: http://xmltwig.com/xml-xpath-patched/\n",
;
ok( 1, "testing '//processing-instruction()' (XPath bug found)");
}
else
{ is( $doc->findvalue( '//processing-instruction()'), 'd1d2d3', '//processing-instruction()'); }
}
{
my $xml=qq|<?xml version="1.0" encoding="utf-8"?>
<cdl><structure><assessments>
<component type="labtasks" name="Lab Tasks" id="labtasks" weight="40"/>
<component type="exam" name="Mid Term Exam" id="midterm" weight="20"/>
<component type="exam" name="End Term Exam" id="endterm" weight="40"/>
</assessments></structure></cdl>
|;
my $xp = XML::DOM::Parser->new->parsestring($xml);
is( $xp->findvalue( 'count( //component)'), 3, 'count on its own');
is( 2 * $xp->findvalue( 'count( //component)'), 6, '2 * count');
is( $xp->findvalue( 'count( //component)') * 2, 6, 'count * 2');
{
my $component= ($xp->findnodes ('//structure//assessments/component'))[0];
my $id = $component->findvalue ('@id');
my $weight= $component->findvalue ('@weight');
my $res= 100 * $weight; # this is where things failed
is( $res, 4000, 'findvalue result used in an multiplication');
}
{
my $weight=($xp->findnodes_as_strings ('//structure//assessments/component/@weight'))[0];
my $res= 100 * $weight; # this is where things failed
is( $res, 4000, 'findvalue result used in an multiplication');
}
}
{
my $xml=qq|
<text>
<para>I start the text here, I break
the line and I go on, I <blink>twinkle</blink> and then I go on
again.
This is not a new paragraph.</para><para>This is a
<important>new</important> paragraph and
<blink>this word</blink> has a preceding sibling.</para>
</text>
|;
my $xp = XML::DOM::Parser->new->parsestring( $xml);
ok($xp);
# Debian bug #187583, http://bugs.debian.org/187583
# Check that evaluation doesn't lose the context information
my $nodes = $xp->find("text/para/node()[position()=last() and preceding-sibling::important]");
ok("$nodes", " has a preceding sibling.");
$nodes = $xp->find("text/para/node()[preceding-sibling::important and position()=last()]");
ok("$nodes", " has a preceding sibling.");
}
|
