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
|
use XML::LibXML;
use Test;
# this test fails under XML-LibXML-1.00 with a segfault after the
# second parsing. it was fixed by putting in code in getChildNodes
# to handle the special case where the node was the document node
BEGIN { plan tests => 11 }
my $input = <<EOD;
<doc>
<clean> </clean>
<dirty> A B </dirty>
<mixed>
A
<clean> </clean>
B
<dirty> A B </dirty>
C
</mixed>
</doc>
EOD
for (0 .. 2) {
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($input);
my @a = $doc->getChildnodes;
ok(scalar(@a),1);
}
my $parser = XML::LibXML->new();
my $doc = $parser->parse_string($input);
for (0 .. 2) {
my $a = $doc->getFirstChild;
ok(ref($a),'XML::LibXML::Element');
}
for (0 .. 2) {
my $a = $doc->getLastChild;
ok(ref($a),'XML::LibXML::Element');
}
##
# Test Ticket 7645
if ( $] > 5.006 ) {
my $in = pack('U', 0x00e4);
my $doc = XML::LibXML::Document->new();
my $node = XML::LibXML::Element->new('test');
$node->setAttribute(contents => $in);
$doc->setDocumentElement($node);
ok( $node->serialize(), '<test contents="ä"/>' );
$doc->setEncoding('utf-8');
# Second output
ok( $node->serialize(), encodeToUTF8( 'iso-8859-1',
'<test contents=""/>' ) );
}
|
