/[suikacvs]/messaging/manakai/t/DOM-SerialWalker.t
Suika

Contents of /messaging/manakai/t/DOM-SerialWalker.t

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.1 - (hide annotations) (download) (as text)
Sat Jul 14 16:32:28 2007 UTC (17 years, 4 months ago) by wakaba
Branch: MAIN
CVS Tags: manakai-release-0-4-0, HEAD
File MIME type: application/x-troff 
++ manakai/t/ChangeLog	14 Jul 2007 16:32:13 -0000
2007-07-15  Wakaba  <wakaba@suika.fam.cx>

	* DOM-TreeWalker.t, DOM-SerialWalker.t: New test scripts.

	* DOM-DOMImplementation.t: Tests for |Traversal| feature
	are added.

	* DOM-Node.t: Tests for |Traversal| feature are added.

++ manakai/lib/Message/DOM/ChangeLog	14 Jul 2007 16:31:23 -0000
2007-07-15  Wakaba  <wakaba@suika.fam.cx>

	* TreeWalker.pm, SerialWalker.pm: New Perl modules.

	* Text.pm (whole_text): Parameter index number has
	been changed to support new |NodeFilter| Perl binding
	definition.

2007-07-14  Wakaba  <wakaba@suika.fam.cx>

	* AttributeDefinition.pm, DOMElement.pm, DocumentType.pm,
	ElementTypeDefinition.pm, Entity.pm, EntityReference.pm,
	Notation.pm, ProcessingInstruction.pm (AUTOLOAD): Don't croak even if an attempt is made to modify a read-only attribute.

	* DOMConfiguration.pm (can_set_parameter,
	set_parameter): Don't allow to set the value
	to a string other than <http://www.w3.org/TR/REC-xml> (XML 1.0 DTD).

	* DOMDocument.pm (Message::IF::DocumentTraversal): New interface.
	(create_tree_walker, manakai_create_serial_walker): References
	and prototypes are added.

	* DOMException.pm (NULLPO_ERR): New error type:-).

	* DOMImplementation.pm ($HasFeature): Feature |Traversal|,
	version |2.0|, is added.
1 wakaba 1.1 #!/usr/bin/perl
2     use strict;
3     use Test;
4     BEGIN { plan tests => 258 }
5    
6     require Message::DOM::DOMImplementation;
7     use Message::Util::Error;
8    
9     my $dom = Message::DOM::DOMImplementation->new;
10     my $doc = $dom->create_document;
11    
12     ## |manakai_create_serial_walker| and attributes
13     {
14     ok $doc->can ('manakai_create_serial_walker') ? 1 : 0, 1, 'create_sw can';
15    
16     my $el = $doc->create_element ('e');
17     my $tw = $doc->manakai_create_serial_walker ($el);
18    
19     ok $tw->isa ('Message::IF::SerialWalker') ? 1 : 0, 1, 'create_sw [1] if';
20     ok $tw->what_to_show, 0, 'create_sw [1] what_to_show';
21     ok $tw->filter, undef, 'create_sw [1] filter';
22     ok $tw->expand_entity_references ? 1 : 0, 0, 'create_sw [1] xent';
23     ok $tw->current_node, $el, 'create_sw [1] current_node';
24     ok $tw->root, $el, 'create_sw [1] root';
25     }
26     {
27     my $el = $doc->create_element ('e');
28     my $filter = sub { };
29     my $tw = $doc->manakai_create_serial_walker ($el, 0xFFFFFFFF, $filter, 1);
30    
31     ok $tw->isa ('Message::IF::SerialWalker') ? 1 : 0, 1, 'create_sw [2] if';
32     ok $tw->what_to_show, 0xFFFFFFFF, 'create_sw [2] what_to_show';
33     ok $tw->filter, $filter, 'create_sw [2] filter';
34     ok $tw->expand_entity_references ? 1 : 0, 1, 'create_sw [2] xent';
35     ok $tw->current_node, $el, 'create_sw [2] current_node';
36     ok $tw->root, $el, 'create_sw [2] root';
37     }
38     {
39     my $el = $doc->create_element ('e');
40     my $filter = sub { };
41     my $tw = $doc->manakai_create_serial_walker ($el, 0xFFFFFFFF, $filter, 0);
42    
43     ok $tw->isa ('Message::IF::SerialWalker') ? 1 : 0, 1, 'create_sw [3] if';
44     ok $tw->what_to_show, 0xFFFFFFFF, 'create_sw [3] what_to_show';
45     ok $tw->filter, $filter, 'create_sw [3] filter';
46     ok $tw->expand_entity_references ? 1 : 0, 0, 'create_sw [3] xent';
47     ok $tw->current_node, $el, 'create_sw [3] current_node';
48     ok $tw->root, $el, 'create_sw [3] root';
49     }
50     try {
51     $doc->manakai_create_serial_walker;
52     ok 1, 0, 'create_sw [4]';
53     } catch Message::IF::DOMException with {
54     ok $_[0]->type, 'NOT_SUPPORTED_ERR', 'create_sw [4]';
55     };
56    
57     my %tree3;
58     $tree3{el1} = $doc->create_element ('el1');
59     $tree3{el2} = $doc->create_element ('el2');
60     $tree3{el3} = $doc->create_element ('el3');
61     $tree3{el4} = $doc->create_element ('el4');
62     $tree3{el5} = $doc->create_element ('el5');
63     $tree3{el1}->append_child ($tree3{el2});
64     $tree3{el1}->append_child ($tree3{el3});
65     $tree3{el3}->append_child ($tree3{el4});
66     $tree3{el1}->append_child ($tree3{el5});
67    
68     ok $doc->can ('manakai_create_serial_walker') ? 1 : 0, 1, 'can create_sw';
69    
70     ## |nextNode|
71     {
72     my $sw = $doc->manakai_create_serial_walker
73     ($tree3{el1}, 0xFFFFFFFF);
74    
75     ok $sw->can ('next_node') ? 1 : 0, 1, 'can next_node';
76    
77     for (
78     [1, 'el1', 'el1', $sw->PRE_PHASE, 0],
79     [2, 'el2', 'el2', $sw->PRE_PHASE, 0],
80     [3, 'el2', 'el2', $sw->POST_PHASE, 1],
81     [4, 'el1', 'el1', $sw->IN_PHASE, 1],
82     [5, 'el3', 'el3', $sw->PRE_PHASE, 0],
83     [6, 'el4', 'el4', $sw->PRE_PHASE, 0],
84     [7, 'el4', 'el4', $sw->POST_PHASE, 1],
85     [8, 'el3', 'el3', $sw->POST_PHASE, 1],
86     [9, 'el1', 'el1', $sw->IN_PHASE, 2],
87     [10, 'el5', 'el5', $sw->PRE_PHASE, 0],
88     [11, 'el5', 'el5', $sw->POST_PHASE, 1],
89     [12, 'el1', 'el1', $sw->POST_PHASE, 3],
90     [13, undef, 'el1', $sw->POST_PHASE, 3],
91     [14, undef, 'el1', $sw->POST_PHASE, 3],
92     ) {
93     ok $sw->next_node, $_->[1] ? $tree3{$_->[1]} : undef,
94     $_->[0] . ' next_node [0] next_node';
95     ok $sw->current_node, $tree3{$_->[2]},
96     $_->[0] . ' next_node [0] current_node';
97     ok $sw->current_phase, $_->[3],
98     $_->[0] . ' next_node [0] current_phase';
99     ok $sw->current_index, $_->[4],
100     $_->[0] . ' next_node [0] current_index';
101     }
102     }
103     {
104     my $sw = $doc->manakai_create_serial_walker ($tree3{el1}, 0xFFFFFFFF, sub {
105     $_[0]->local_name ne 'el3' ? 1 : 3; # ACCEPT : SKIP
106     });
107    
108     for (
109     [1, 'el1', 'el1', $sw->PRE_PHASE, 0],
110     [2, 'el2', 'el2', $sw->PRE_PHASE, 0],
111     [3, 'el2', 'el2', $sw->POST_PHASE, 1],
112     [4, 'el1', 'el1', $sw->IN_PHASE, 1],
113     [6, 'el4', 'el4', $sw->PRE_PHASE, 0],
114     [7, 'el4', 'el4', $sw->POST_PHASE, 1],
115     [9, 'el1', 'el1', $sw->IN_PHASE, 2],
116     [10, 'el5', 'el5', $sw->PRE_PHASE, 0],
117     [11, 'el5', 'el5', $sw->POST_PHASE, 1],
118     [12, 'el1', 'el1', $sw->POST_PHASE, 3],
119     [13, undef, 'el1', $sw->POST_PHASE, 3],
120     [14, undef, 'el1', $sw->POST_PHASE, 3],
121     ) {
122     ok $sw->next_node, $_->[1] ? $tree3{$_->[1]} : undef,
123     $_->[0] . ' next_node [1] next_node';
124     ok $sw->current_node, $tree3{$_->[2]},
125     $_->[0] . ' next_node [1] current_node';
126     ok $sw->current_phase, $_->[3],
127     $_->[0] . ' next_node [1] current_phase';
128     ok $sw->current_index, $_->[4],
129     $_->[0] . ' next_node [1] current_index';
130     }
131     }
132     {
133     my $sw = $doc->manakai_create_serial_walker ($tree3{el1}, 0xFFFFFFFF, sub {
134     $_[0]->local_name eq 'el3' ? 12101 : 1;
135     });
136    
137     for (
138     [1, 'el1', 'el1', $sw->PRE_PHASE, 0],
139     [2, 'el2', 'el2', $sw->PRE_PHASE, 0],
140     [3, 'el2', 'el2', $sw->POST_PHASE, 1],
141     [4, 'el1', 'el1', $sw->IN_PHASE, 1],
142     [3, 'el3', 'el3', $sw->PRE_PHASE, 0],
143     [8, 'el3', 'el3', $sw->POST_PHASE, 1],
144     [9, 'el1', 'el1', $sw->IN_PHASE, 2],
145     [10, 'el5', 'el5', $sw->PRE_PHASE, 0],
146     [11, 'el5', 'el5', $sw->POST_PHASE, 1],
147     [12, 'el1', 'el1', $sw->POST_PHASE, 3],
148     [13, undef, 'el1', $sw->POST_PHASE, 3],
149     [14, undef, 'el1', $sw->POST_PHASE, 3],
150     ) {
151     ok $sw->next_node, $_->[1] ? $tree3{$_->[1]} : undef,
152     $_->[0] . ' next_node [2] next_node';
153     ok $sw->current_node, $tree3{$_->[2]},
154     $_->[0] . ' next_node [2] current_node';
155     ok $sw->current_phase, $_->[3],
156     $_->[0] . ' next_node [2] current_phase';
157     ok $sw->current_index, $_->[4],
158     $_->[0] . ' next_node [2] current_index';
159     }
160     }
161     {
162     my $sw = $doc->manakai_create_serial_walker ($tree3{el1}, 0xFFFFFFFF, sub {
163     $_[0]->local_name eq 'el3' ? 2 : 1; # REJECT : ACCEPT
164     });
165    
166     for (
167     [1, 'el1', 'el1', $sw->PRE_PHASE, 0],
168     [2, 'el2', 'el2', $sw->PRE_PHASE, 0],
169     [3, 'el2', 'el2', $sw->POST_PHASE, 1],
170     [4, 'el1', 'el1', $sw->IN_PHASE, 1],
171     [10, 'el5', 'el5', $sw->PRE_PHASE, 0],
172     [11, 'el5', 'el5', $sw->POST_PHASE, 1],
173     [12, 'el1', 'el1', $sw->POST_PHASE, 2],
174     [13, undef, 'el1', $sw->POST_PHASE, 2],
175     [14, undef, 'el1', $sw->POST_PHASE, 2],
176     ) {
177     ok $sw->next_node, $_->[1] ? $tree3{$_->[1]} : undef,
178     $_->[0] . ' next_node [3] next_node';
179     ok $sw->current_node, $tree3{$_->[2]},
180     $_->[0] . ' next_node [3] current_node';
181     ok $sw->current_phase, $_->[3],
182     $_->[0] . ' next_node [3] current_phase';
183     ok $sw->current_index, $_->[4],
184     $_->[0] . ' next_node [3] current_index';
185     }
186     }
187     {
188     my $sw = $doc->manakai_create_serial_walker ($tree3{el1}, 0xFFFFFFFF, sub {
189     $_[0]->local_name eq 'el4' ? 2 : 1; # REJECT : ACCEPT
190     });
191    
192     for (
193     [1, 'el1', 'el1', $sw->PRE_PHASE, 0],
194     [2, 'el2', 'el2', $sw->PRE_PHASE, 0],
195     [3, 'el2', 'el2', $sw->POST_PHASE, 1],
196     [4, 'el1', 'el1', $sw->IN_PHASE, 1],
197     [5, 'el3', 'el3', $sw->PRE_PHASE, 0],
198     [8, 'el3', 'el3', $sw->POST_PHASE, 1],
199     [9, 'el1', 'el1', $sw->IN_PHASE, 2],
200     [10, 'el5', 'el5', $sw->PRE_PHASE, 0],
201     [11, 'el5', 'el5', $sw->POST_PHASE, 1],
202     [12, 'el1', 'el1', $sw->POST_PHASE, 3],
203     [13, undef, 'el1', $sw->POST_PHASE, 3],
204     [14, undef, 'el1', $sw->POST_PHASE, 3],
205     ) {
206     ok $sw->next_node, $_->[1] ? $tree3{$_->[1]} : undef,
207     $_->[0] . ' next_node [4] next_node';
208     ok $sw->current_node, $tree3{$_->[2]},
209     $_->[0] . ' next_node [4] current_node';
210     ok $sw->current_phase, $_->[3],
211     $_->[0] . ' next_node [4] current_phase';
212     ok $sw->current_index, $_->[4],
213     $_->[0] . ' next_node [4] current_index';
214     }
215     }
216    
217     =head1 LICENSE
218    
219     Copyright 2007 Wakaba <w@suika.fam.cx>
220    
221     This program is free software; you can redistribute it and/or
222     modify it under the same terms as Perl itself.
223    
224     =cut
225    
226     ## $Date: 2007/07/14 09:19:11 $
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24