--- messaging/manakai/t/DOM-Document.t	2007/06/15 14:32:50	1.1
+++ messaging/manakai/t/DOM-Document.t	2007/06/17 13:37:42	1.2
@@ -1,9 +1,10 @@
 #!/usr/bin/perl
 use strict;
 use Test;
-BEGIN { plan tests => 4 } 
+BEGIN { plan tests => 55 } 
 
 require Message::DOM::DOMImplementation;
+use Message::Util::Error;
 
 ## TODO: |create_document| tests
 
@@ -11,7 +12,7 @@
 my $doc = $dom->create_document;
 
 ## AUTOLOAD test
-ok $doc->can ('create_element_ns');
+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');
 
@@ -23,10 +24,171 @@
 };
 ok $something_called, 0;
 
-## NOTE: Tests for |create_*| methods found in each module's test file.
+## NOTE: Tests for |create_*| methods found in |DOM-Node.t|.
 
 my $impl = $doc->implementation;
 ok UNIVERSAL::isa ($impl, 'Message::IF::DOMImplementation') ? 1 : 0, 1;
 
-## License: Public Domain.
-## $Date: 2007/06/15 14:32:50 $
+## |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/17 13:37:42 $