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

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

Parent Directory Parent Directory | Revision Log Revision Log

Revision 1.2 - (hide annotations) (download) (as text)
Sun Jun 17 13:37:42 2007 UTC (17 years, 5 months ago) by wakaba
Branch: MAIN
Changes since 1.1: +167 -5 lines
File MIME type: application/x-troff 
++ manakai/t/ChangeLog	17 Jun 2007 13:37:22 -0000
2007-06-17  Wakaba  <wakaba@suika.fam.cx>

	* DOM-Attr.t, DOM-AttributeDefinition.t, DOM-DocumentType.t,
	DOM-Element.t, DOM-Entity.t, DOM-EntityReference.t,
	DOM-Notation.t, DOM-ProcessingInstruction.t: New.

	* DOM-Document.t, DOM-Node.t: Tests for newly-implemented attributes
	and methods are added.

	* Makefile (test-module-dom-old): Renamed from |test-module-dom|.
	(test-module-dom): New.

++ manakai/lib/Message/DOM/ChangeLog	17 Jun 2007 13:34:54 -0000
2007-06-17  Wakaba  <wakaba@suika.fam.cx>

	* Attr.pm (____new): Initialize |specified| as 1.
	(base_uri, manakai_attribute_type, specified): Implemented.
	(prefix): Don't check read-only flag unless |strict_error_checking|.
	(value): Call |text_content| for now.

	* AttributeDefinition.pm (DeclaredValueType, DefaultValueType): Added.
	(declared_type, default_type): Implemented.

	* CharacterData.pm (____new): Allow a scalar reference
	as an input for the |data| attribute.
	(base_uri, manakai_append_text): Implemented.

	* DOMConfiguration.pm (set_parameter): Resetting implemented.

	* DOMDocument.pm (____new): Set default values to
	configuration parameter whose default is true.
	(document_uri, input_encoding): Implemented.
	(all_declarations_processed, manakai_is_html): Implemented.
	(base_uri, manakai_append_text,
	manakai_entity_base_uri, strict_error_checking,
	xml_encoding, xml_version, xml_standalone): Implemented.

	* DOMElement.pm (manakai_base_uri, base_uri): Implemented.
	(get_attribute, get_attribute_node): Alpha version.
	(set_attribute_node, set_attribute_node_ns): Implemented.
	(set_attribute_ns): Accept non-ARRAY qualified name.

	* DOMException.pm (___error_def): |WRONG_DOCUMENT_ERR|,
	|NOT_SUPPORTED_ERR|, and |INUSE_ATTRIBUTE_ERR| are added.

	* DocumentType.pm (public_id, system_id): Implemented.
	(base_uri, declaration_base_uri, manakai_declaration_base_uri,
	manakai_append_text): Implemented.
	(element_types, general_entities, notations,
	set_element_type_definition_node, set_general_entity_node,
	set_notation_node): Alpha version.

	* ElementTypeDefinition.pm (manakai_append_text): Implemented.
	(attribute_definitions, set_attribute_definition_node): Alpha version.

	* Entity.pm (has_replacement_tree, public_id, system_id,
	manakai_declaration_base_uri, manakai_entity_base_uri,
	manakai_entity_uri): Implemented.

	* EntityReference.pm (manakai_expanded, manakai_external): Implemented.
	(base_uri, manakai_entity_base_uri): Implemented.

	* Node.pm (base_uri): Implemented.
	(text_content): Don't check read-only or not
	unless |strict_error_checking|.
	(manakai_append_text): Implemented.
	(get_feature): Alpha.
	(manakai_set_read_only): Implemented.

	* Notation.pm (public_id, system_id, manakai_append_text,
	manakai_declaration_base_uri): Implemented.

	* ProcessingInstruction.pm (manakai_base_uri,
	base_uri, manakai_append_text): Implemented.
1 wakaba 1.1 #!/usr/bin/perl
2     use strict;
3     use Test;
4 wakaba 1.2 BEGIN { plan tests => 55 }
5 wakaba 1.1
6     require Message::DOM::DOMImplementation;
7 wakaba 1.2 use Message::Util::Error;
8 wakaba 1.1
9     ## TODO: |create_document| tests
10    
11     my $dom = Message::DOM::DOMImplementation->____new;
12     my $doc = $dom->create_document;
13    
14     ## AUTOLOAD test
15 wakaba 1.2 ok $doc->can ('create_element_ns') ? 1 : 0, 1, "can create_element_ns";
16 wakaba 1.1 my $el = $doc->create_element_ns (undef, 'test');
17     ok UNIVERSAL::isa ($el, 'Message::IF::Element');
18    
19     ok $doc->can ('no_such_method') ? 1 : 0, 0;
20     my $something_called = 0;
21     eval {
22     $doc->no_such_method;
23     $something_called = 1;
24     };
25     ok $something_called, 0;
26    
27 wakaba 1.2 ## NOTE: Tests for |create_*| methods found in |DOM-Node.t|.
28 wakaba 1.1
29     my $impl = $doc->implementation;
30     ok UNIVERSAL::isa ($impl, 'Message::IF::DOMImplementation') ? 1 : 0, 1;
31    
32 wakaba 1.2 ## |xmlVersion|
33     ok $doc->can ('xml_version') ? 1 : 0, 1, 'can xml_version';
34    
35     ok $doc->xml_version, '1.0', 'xml_version initial';
36    
37     $doc->xml_version ('1.1');
38     ok $doc->xml_version, '1.1', 'xml_version 1.1';
39    
40     $doc->xml_version ('1.0');
41     ok $doc->xml_version, '1.0', 'xml_version 1.0';
42    
43     try {
44     $doc->xml_version ('1.2');
45     ok undef, 'NOT_SUPPORTED_ERR', 'xml_version 1.2 exception';
46     } catch Message::IF::DOMException with {
47     my $err = shift;
48     ok $err->type, 'NOT_SUPPORTED_ERR', 'xml_version 1.2 exception';
49     };
50     ok $doc->xml_version, '1.0', 'xml_version 1.2';
51    
52     ## |xmlVersion| and |manakaiIsHTML|
53     my $html_doc = $doc->implementation->create_document;
54     {
55     $html_doc->manakai_is_html (1);
56     ok $html_doc->manakai_is_html ? 1 : 0, 1, 'HTMLDocument->manakai_is_html 1';
57     ok $html_doc->xml_version, undef, 'HTMLDocument->xml_version';
58    
59     try {
60     $html_doc->xml_version ('1.0');
61     ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_version 1.0 exception';
62     } catch Message::IF::DOMException with {
63     my $err = shift;
64     ok $err->type, 'NOT_SUPPORTED_ERR',
65     'HTMLDocument->xml_version 1.0 exception';
66     };
67     ok $html_doc->xml_version, undef, 'HTMLDocument->xml_version 1.0';
68    
69     $html_doc->manakai_is_html (0);
70     ok $html_doc->manakai_is_html ? 1 : 0, 0, 'HTMLDocument->manakai_is_html 0';
71     ok $html_doc->xml_version, '1.0', '(was HTML) Document->xml_version 1.0';
72    
73     $html_doc->manakai_is_html (1);
74     }
75    
76     ## |xmlEncoding|
77     {
78     ok $doc->can ('xml_encoding') ? 1 : 0, 1, 'can xml_encoding';
79    
80     $doc->xml_encoding ('utf-8');
81     ok $doc->xml_encoding, 'utf-8', 'xml_encoding legal';
82    
83     $doc->xml_encoding ('\abcd');
84     ok $doc->xml_encoding, '\abcd', 'xml_encoding illegal';
85    
86     $doc->xml_encoding (undef);
87     ok $doc->xml_encoding, undef, 'xml_encoding null';
88    
89     ok $html_doc->xml_encoding, undef, 'HTMLDocument->xml_encoding';
90    
91     try {
92     $html_doc->xml_encoding ('utf-8');
93     ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception';
94     } catch Message::IF::DOMException with {
95     my $err = shift;
96     ok $err->type, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception';
97     };
98     ok $html_doc->xml_encoding, undef, 'HTMLDocument->xml_encoding';
99    
100     try {
101     $html_doc->xml_encoding (undef);
102     ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception 2';
103     } catch Message::IF::DOMException with {
104     my $err = shift;
105     ok $err->type, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception 2';
106     };
107     ok $html_doc->xml_encoding, undef, 'HTMLDocument->xml_encoding 2';
108     }
109    
110     ## |xmlStandalone|
111     {
112     ok $doc->can ('xml_standalone') ? 1 : 0, 1, 'can xml_standalone';
113    
114     $doc->xml_standalone (1);
115     ok $doc->xml_standalone ? 1 : 0, 1, 'xml_standalone 1';
116    
117     $doc->xml_standalone (0);
118     ok $doc->xml_standalone ? 1 : 0, 0, 'xml_standalone 0';
119    
120     ok $html_doc->xml_standalone ? 1 : 0, 0, 'HTMLDocument->xml_standalone';
121    
122     try {
123     $html_doc->xml_standalone (1);
124     ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_standalone 1 exception';
125     } catch Message::IF::DOMException with {
126     my $err = shift;
127     ok $err->type, 'NOT_SUPPORTED_ERR',
128     'HTMLDocument->xml_standalone 1 exception';
129     };
130     ok $html_doc->xml_standalone ? 1 : 0, 0, 'HTMLDocument->xml_standalone 1';
131    
132     try {
133     $html_doc->xml_standalone (0);
134     ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_standalone 0 exception';
135     } catch Message::IF::DOMException with {
136     my $err = shift;
137     ok $err->type, 'NOT_SUPPORTED_ERR',
138     'HTMLDocument->xml_standalone 0 exception';
139     };
140     ok $html_doc->xml_standalone ? 1 : 0, 0, 'HTMLDocument->xml_standalone 0';
141     }
142    
143     ## |strictErrorChecking|
144     {
145     ok $doc->can ('strict_error_checking') ? 1 : 0, 1, 'can strict_error_checking';
146    
147     $doc->strict_error_checking (0);
148     ok $doc->strict_error_checking ? 1 : 0, 0, 'strict_error_checking 0';
149    
150     $doc->strict_error_checking (1);
151     ok $doc->strict_error_checking ? 1 : 0, 1, 'strict_error_checking 1';
152    
153     $doc->strict_error_checking (undef);
154     ok $doc->strict_error_checking ? 1 : 0, 0, 'strict_error_checking undef';
155    
156     $doc->strict_error_checking (1);
157     }
158    
159     for my $prop (qw/document_uri input_encoding/) {
160     ok $doc->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
161    
162     for ('http://absuri.test/', 'reluri', 0, '') {
163     $doc->$prop ($_);
164     ok $doc->$prop, $_, $prop . $_;
165     }
166    
167     $doc->$prop (undef);
168     ok $doc->$prop, undef, $prop . ' undef';
169     }
170    
171     for my $prop (qw/all_declarations_processed/) {
172     ok $doc->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
173    
174     for (1, 0, '') {
175     $doc->$prop ($_);
176     ok $doc->$prop ? 1 : 0, $_ ? 1 : 0, $prop . $_;
177     }
178    
179     $doc->$prop (undef);
180     ok $doc->$prop ? 1 : 0, 0, $prop . ' undef';
181     }
182    
183     ## TODO: manakai_entity_base_uri
184    
185     =head1 LICENSE
186    
187     Copyright 2007 Wakaba <w@suika.fam.cx>
188    
189     This program is free software; you can redistribute it and/or
190     modify it under the same terms as Perl itself.
191    
192     =cut
193    
194     ## $Date: 2007/06/16 08:49:00 $
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24