manakai/t/DOM-Document.t

#!/usr/bin/perl
use strict;
use Test;
BEGIN { plan tests => 55 } 

require Message::DOM::DOMImplementation;
use Message::Util::Error;

## TODO: |create_document| tests

my $dom = Message::DOM::DOMImplementation->____new;
my $doc = $dom->create_document;

## AUTOLOAD test
ok $doc->can ('create_element_ns') ? 1 : 0, 1, "can create_element_ns";
my $el = $doc->create_element_ns (undef, 'test');
ok UNIVERSAL::isa ($el, 'Message::IF::Element');

ok $doc->can ('no_such_method') ? 1 : 0, 0;
my $something_called = 0;
eval {
  $doc->no_such_method;
  $something_called = 1;
};
ok $something_called, 0;

## NOTE: Tests for |create_*| methods found in |DOM-Node.t|.

my $impl = $doc->implementation;
ok UNIVERSAL::isa ($impl, 'Message::IF::DOMImplementation') ? 1 : 0, 1;

## |xmlVersion|
ok $doc->can ('xml_version') ? 1 : 0, 1, 'can xml_version';

ok $doc->xml_version, '1.0', 'xml_version initial';

$doc->xml_version ('1.1');
ok $doc->xml_version, '1.1', 'xml_version 1.1';

$doc->xml_version ('1.0');
ok $doc->xml_version, '1.0', 'xml_version 1.0';

try {
  $doc->xml_version ('1.2');
  ok undef, 'NOT_SUPPORTED_ERR', 'xml_version 1.2 exception';
} catch Message::IF::DOMException with {
  my $err = shift;
  ok $err->type, 'NOT_SUPPORTED_ERR', 'xml_version 1.2 exception';
};
ok $doc->xml_version, '1.0', 'xml_version 1.2';

## |xmlVersion| and |manakaiIsHTML|
my $html_doc = $doc->implementation->create_document;
{
  $html_doc->manakai_is_html (1);
  ok $html_doc->manakai_is_html ? 1 : 0, 1, 'HTMLDocument->manakai_is_html 1';
  ok $html_doc->xml_version, undef, 'HTMLDocument->xml_version';
  
  try {
    $html_doc->xml_version ('1.0');
    ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_version 1.0 exception';
  } catch Message::IF::DOMException with {
    my $err = shift;
    ok $err->type, 'NOT_SUPPORTED_ERR',
        'HTMLDocument->xml_version 1.0 exception';
  };
  ok $html_doc->xml_version, undef, 'HTMLDocument->xml_version 1.0';

  $html_doc->manakai_is_html (0);
  ok $html_doc->manakai_is_html ? 1 : 0, 0, 'HTMLDocument->manakai_is_html 0';
  ok $html_doc->xml_version, '1.0', '(was HTML) Document->xml_version 1.0';

  $html_doc->manakai_is_html (1);
}

## |xmlEncoding|
{
  ok $doc->can ('xml_encoding') ? 1 : 0, 1, 'can xml_encoding';

  $doc->xml_encoding ('utf-8');
  ok $doc->xml_encoding, 'utf-8', 'xml_encoding legal';

  $doc->xml_encoding ('\abcd');
  ok $doc->xml_encoding, '\abcd', 'xml_encoding illegal';

  $doc->xml_encoding (undef);
  ok $doc->xml_encoding, undef, 'xml_encoding null';

  ok $html_doc->xml_encoding, undef, 'HTMLDocument->xml_encoding';
  
  try {
    $html_doc->xml_encoding ('utf-8');
    ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception';
  } catch Message::IF::DOMException with {
    my $err = shift;
    ok $err->type, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception';
  };
  ok $html_doc->xml_encoding, undef, 'HTMLDocument->xml_encoding';
  
  try {
    $html_doc->xml_encoding (undef);
    ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception 2';
  } catch Message::IF::DOMException with {
    my $err = shift;
    ok $err->type, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_encoding exception 2';
  };
  ok $html_doc->xml_encoding, undef, 'HTMLDocument->xml_encoding 2';
}

## |xmlStandalone|
{
  ok $doc->can ('xml_standalone') ? 1 : 0, 1, 'can xml_standalone';

  $doc->xml_standalone (1);
  ok $doc->xml_standalone ? 1 : 0, 1, 'xml_standalone 1';

  $doc->xml_standalone (0);
  ok $doc->xml_standalone ? 1 : 0, 0, 'xml_standalone 0';

  ok $html_doc->xml_standalone ? 1 : 0, 0, 'HTMLDocument->xml_standalone';
  
  try {
    $html_doc->xml_standalone (1);
    ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_standalone 1 exception';
  } catch Message::IF::DOMException with {
    my $err = shift;
    ok $err->type, 'NOT_SUPPORTED_ERR',
        'HTMLDocument->xml_standalone 1 exception';
  };
  ok $html_doc->xml_standalone ? 1 : 0, 0, 'HTMLDocument->xml_standalone 1';
  
  try {
    $html_doc->xml_standalone (0);
    ok undef, 'NOT_SUPPORTED_ERR', 'HTMLDocument->xml_standalone 0 exception';
  } catch Message::IF::DOMException with {
    my $err = shift;
    ok $err->type, 'NOT_SUPPORTED_ERR',
        'HTMLDocument->xml_standalone 0 exception';
  };
  ok $html_doc->xml_standalone ? 1 : 0, 0, 'HTMLDocument->xml_standalone 0';
}

## |strictErrorChecking|
{
  ok $doc->can ('strict_error_checking') ? 1 : 0, 1, 'can strict_error_checking';

  $doc->strict_error_checking (0);
  ok $doc->strict_error_checking ? 1 : 0, 0, 'strict_error_checking 0';

  $doc->strict_error_checking (1);
  ok $doc->strict_error_checking ? 1 : 0, 1, 'strict_error_checking 1';

  $doc->strict_error_checking (undef);
  ok $doc->strict_error_checking ? 1 : 0, 0, 'strict_error_checking undef';

  $doc->strict_error_checking (1);
}

for my $prop (qw/document_uri input_encoding/) {
  ok $doc->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
  
  for ('http://absuri.test/', 'reluri', 0, '') {
    $doc->$prop ($_);
    ok $doc->$prop, $_, $prop . $_;
  }

  $doc->$prop (undef);
  ok $doc->$prop, undef, $prop . ' undef';
}

for my $prop (qw/all_declarations_processed/) {
  ok $doc->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
  
  for (1, 0, '') {
    $doc->$prop ($_);
    ok $doc->$prop ? 1 : 0, $_ ? 1 : 0, $prop . $_;
  }

  $doc->$prop (undef);
  ok $doc->$prop ? 1 : 0, 0, $prop . ' undef';
}

## TODO: manakai_entity_base_uri

=head1 LICENSE

Copyright 2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

## $Date: 2007/06/16 08:49:00 $
1	#!/usr/bin/perl
2	use strict;
3	use Test;
4	BEGIN { plan tests => 55 }
5
6	require Message::DOM::DOMImplementation;
7	use Message::Util::Error;
8
9	## TODO: \|create_document\| tests
10
11	my $dom = Message::DOM::DOMImplementation->____new;
12	my $doc = $dom->create_document;
13
14	## AUTOLOAD test
15	ok $doc->can ('create_element_ns') ? 1 : 0, 1, "can create_element_ns";
16	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	## NOTE: Tests for \|create_*\| methods found in \|DOM-Node.t\|.
28
29	my $impl = $doc->implementation;
30	ok UNIVERSAL::isa ($impl, 'Message::IF::DOMImplementation') ? 1 : 0, 1;
31
32	## \|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 $