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
|
BEGIN {print "1..23\n";}
END {print "not ok 1\n" unless $loaded;}
use XML::DOM;
use CheckAncestors;
use CmpDOM;
$loaded = 1;
print "ok 1\n";
my $test = 1;
sub assert_ok
{
my $ok = shift;
print "not " unless $ok;
++$test;
print "ok $test\n";
$ok;
}
#Test 2
my $str = <<END;
<!DOCTYPE simpsons [
<!ELEMENT person (#PCDATA)>
<!ATTLIST person
name CDATA #REQUIRED
hair (none | blue | yellow) "yellow"
sex CDATA #REQUIRED>
]>
<simpsons>
<person name="homer" hair="none" sex="male"/>
<person name="marge" hair="blue" sex="female"/>
<person name="bart" sex="almost"/>
<person name="lisa" sex="never"/>
</simpsons>
END
my $parser = new XML::DOM::Parser;
my $doc = $parser->parse ($str);
assert_ok (not $@);
my $out = $doc->toString;
$out =~ tr/\012/\n/;
assert_ok ($out eq $str);
my $root = $doc->getDocumentElement;
my $bart = $root->getElementsByTagName("person")->item(2);
assert_ok (defined $bart);
my $lisa = $root->getElementsByTagName("person")->item(3);
assert_ok (defined $lisa);
my $battr = $bart->getAttributes;
assert_ok ($battr->getLength == 3);
my $lattr = $lisa->getAttributes;
assert_ok ($lattr->getLength == 3);
# Use getValues in list context
my @attrList = $lattr->getValues;
assert_ok (@attrList == 3);
my $hair = $battr->getNamedItem ("hair");
assert_ok ($hair->getValue eq "yellow");
assert_ok (not $hair->isSpecified);
my $hair2 = $bart->removeAttributeNode ($hair);
# we're not returning default attribute nodes
assert_ok (not defined $hair2);
# check if hair is still defaulted
$hair2 = $battr->getNamedItem ("hair");
assert_ok ($hair2->getValue eq "yellow");
assert_ok (not $hair2->isSpecified);
# replace default hair with pointy hair
$battr->setNamedItem ($doc->createAttribute ("hair", "pointy"));
assert_ok ($bart->getAttribute("hair") eq "pointy");
$hair2 = $battr->getNamedItem ("hair");
assert_ok ($hair2->isSpecified);
# exception - can't share Attr nodes
eval {
$lisa->setAttributeNode ($hair2);
};
assert_ok ($@);
# add it again - it replaces itself
$bart->setAttributeNode ($hair2);
assert_ok ($battr->getLength == 3);
# (cloned) hair transplant from bart to lisa
$lisa->setAttributeNode ($hair2->cloneNode);
$hair = $lattr->getNamedItem ("hair");
assert_ok ($hair->isSpecified);
assert_ok ($hair->getValue eq "pointy");
my $doc2 = $doc->cloneNode(1);
my $cmp = new CmpDOM;
unless (assert_ok ($doc->equals ($doc2, $cmp)))
{
# This shouldn't happen
print "Context: ", $cmp->context, "\n";
}
assert_ok ($hair->getNodeTypeName eq "ATTRIBUTE_NODE");
$bart->removeAttribute ("hair");
# check if hair is still defaulted
$hair2 = $battr->getNamedItem ("hair");
assert_ok ($hair2->getValue eq "yellow");
assert_ok (not $hair2->isSpecified);
|
