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
|
# -*- perl -*-
# Before `make install' is performed this script should be runnable with
# `make test'. After `make install' it should work as `perl XML-LibXML-LazyBuilder.t'
#########################
# change 'tests => 1' to 'tests => last_test_to_print';
use Test::More qw(no_plan);
BEGIN { use_ok('XML::LibXML::LazyBuilder') };
#########################
# Insert your test code below, the Test::More module is use()ed here so read
# its man page ( perldoc Test::More ) for help writing this test script.
use XML::LibXML::LazyBuilder qw/:all/;
{
my $e = E "hoge";
isa_ok ($e, 'CODE');
my $d = DOM $e;
isa_ok ($d, 'XML::LibXML::Document');
is ($d->firstChild->tagName, "hoge", "tag name");
}
{
my $e = E hoge => {at1 => "val1", at2 => "val2"};
my $d = DOM $e;
is ($d->firstChild->getAttribute ("at1"), "val1", "attribute");
is ($d->firstChild->getAttribute ("at2"), "val2", "attribute");
# cloning
my $d2 = DOM $e;
$d2->firstChild->setAttribute ("at1", "val1'");
is ($d->firstChild->getAttribute ("at1"), "val1", "original");
is ($d2->firstChild->getAttribute ("at1"), "val1'", "clone");
}
{
my $d = DOM (E (hoge => {}, "content"));
is ($d->firstChild->textContent, "content", "text content");
}
{
my $d = DOM (E A => {}, ((E B => {}, ((E "C"),
(E "D"))),
(E E => {}, ((E "F"),
(E "G")))));
is ($d->firstChild->firstChild->nextSibling->firstChild->nextSibling->tagName,
"G", "child nodes");
}
{
my $d = DOM E 'no-prefix' => {
'xmlns' => 'urn:x-foo:', 'xmlns:bar' => 'urn:x-bar:' }, E 'wat';
#diag($d->toString);
is($d->documentElement->namespaceURI, 'urn:x-foo:', 'namespace');
my $e = $d->documentElement;
my $sub = E $e => { one => 'two' },
E test => { 'xmlns:test' => 'urn:x-test:' }, E 'test:hello';
my $e2 = $sub->();
#diag($d->toString);
is($e->namespaceURI, 'urn:x-foo:', 'propagated namespace');
# XXX should really do way more tests here but effit
}
{
# fragment, processing instruction, DTD, comment, cdata
my $d = DOM F(
(P 'xml-stylesheet' => { type => 'text/xsl', href => '/foo.xsl' }),
(DTD 'foo'),
(E foo => { xmlns => 'urn:x-wat:' }, E bar => {}, (C 'yo'), (D 'hi')));
#diag($d->toString(1));
# only really concerned that the namespaces came out ok
my $nsuri = $d->documentElement->firstChild->namespaceURI;
is($nsuri, 'urn:x-wat:', 'namespace survived fragment');
}
|
