--- messaging/manakai/t/DOM-Element.t	2007/06/17 13:37:42	1.1
+++ messaging/manakai/t/DOM-Element.t	2007/07/29 03:49:00	1.4
@@ -1,14 +1,78 @@
 #!/usr/bin/perl
 use strict;
 use Test;
-BEGIN { plan tests => 38 } 
+BEGIN { plan tests => 61 } 
 
 require Message::DOM::DOMImplementation;
 use Message::Util::Error;
 
 my $dom = Message::DOM::DOMImplementation->____new;
-my $doc = $dom->create_document;
 
+{
+  my $doc = $dom->create_document;
+  my $el = $doc->create_element ('et1');
+
+  ok 0+@{$el->attributes}, 0, 'create_element->attributes @{} 0+ [0]';
+
+  my $dt = $doc->create_document_type_definition ('dt');
+  my $et = $doc->create_element_type_definition ('et1');
+  my $at = $doc->create_attribute_definition ('dattr1');
+  $at->default_type ($at->EXPLICIT_DEFAULT);
+  $at->text_content ('dattr1 default ');
+  $et->set_attribute_definition_node ($at);
+  $dt->set_element_type_definition_node ($et);
+  $doc->append_child ($dt);
+  my $el2 = $doc->create_element ('et1');
+
+  ok 0+@{$el2->attributes}, 1, 'create_element->attributes @{} 0+ [1]';
+
+  ok $el2->has_attribute ('dattr1') ? 1 : 0, 1, 'create_element->has_attr [1]';
+
+  my $an = $el2->get_attribute_node ('dattr1');
+  ok UNIVERSAL::isa ($an, 'Message::IF::Attr') ? 1 : 0, 1, 'ce->def if [1]';
+  ok $an->text_content, 'dattr1 default ', 'ce->def tx [1]';
+  ok $an->specified ? 1 : 0, 0, 'ce->def specified [1]';
+
+  $doc->dom_config->set_parameter 
+      (q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 0);
+  
+  my $el3 = $doc->create_element ('et1');
+  ok 0+@{$el3->attributes}, 0, 'create_element->attributes @{} 0+ [2]';
+}
+
+{
+  my $doc = $dom->create_document;
+  my $el = $doc->create_element_ns (undef, 'et1');
+
+  ok 0+@{$el->attributes}, 0, 'create_element->attributes @{} 0+ [0]';
+
+  my $dt = $doc->create_document_type_definition ('dt');
+  my $et = $doc->create_element_type_definition ('et1');
+  my $at = $doc->create_attribute_definition ('dattr1');
+  $at->default_type ($at->EXPLICIT_DEFAULT);
+  $at->text_content ('dattr1 default ');
+  $et->set_attribute_definition_node ($at);
+  $dt->set_element_type_definition_node ($et);
+  $doc->append_child ($dt);
+  my $el2 = $doc->create_element ('et1');
+
+  ok 0+@{$el2->attributes}, 1, 'create_element->attributes @{} 0+ [1]';
+
+  ok $el2->has_attribute ('dattr1') ? 1 : 0, 1, 'create_element->has_attr [1]';
+
+  my $an = $el2->get_attribute_node ('dattr1');
+  ok UNIVERSAL::isa ($an, 'Message::IF::Attr') ? 1 : 0, 1, 'ce->def if [1]';
+  ok $an->text_content, 'dattr1 default ', 'ce->def tx [1]';
+  ok $an->specified ? 1 : 0, 0, 'ce->def specified [1]';
+
+  $doc->dom_config->set_parameter 
+      (q<http://suika.fam.cx/www/2006/dom-config/dtd-default-attribute> => 0);
+  
+  my $el3 = $doc->create_element ('et1');
+  ok 0+@{$el3->attributes}, 0, 'create_element->attributes @{} 0+ [2]';
+}
+
+my $doc = $dom->create_document;
 my $el = $doc->create_element ('element');
 
 for my $prop (qw/manakai_base_uri/) {
@@ -62,6 +126,38 @@
       "$method get_attribute_ns [3]";
 }
 
+## |attributes|
+{
+  my $el = $doc->create_element ('e');
+  ok $el->can ('attributes') ? 1 : 0, 1, 'Element->attributes can';
+
+  my $as = $el->attributes;
+  ok UNIVERSAL::isa ($as, 'Message::IF::NamedNodeMap') ? 1 : 0, 1, 'E->as if';
+  
+  $el->set_attribute (at1 => 'value');
+  ok $as->get_named_item ('at1'), $el->get_attribute_node ('at1'),
+      'Element->attributes get_named_item get_attr_node';
+}
+
+## |schemaTypeInfo|
+{
+  my $el = $doc->create_element ('el');
+  $el->owner_document->dom_config->set_parameter ('schema-type' => undef);
+  my $sti = $el->schema_type_info;
+  ok UNIVERSAL::isa ($sti, 'Message::IF::TypeInfo') ? 1 : 0, 1, 'sti if [1]';
+  ok $sti->type_name, undef, 'sti type_name [1]';
+  ok $sti->type_namespace, undef, 'sti type_namespace [1]';
+}
+{
+  my $el = $doc->create_element ('el');
+  $el->owner_document->dom_config->set_parameter
+      ('schema-type' => q<http://www.w3.org/TR/REC-xml>);
+  my $sti = $el->schema_type_info;
+  ok UNIVERSAL::isa ($sti, 'Message::IF::TypeInfo') ? 1 : 0, 1, 'sti if [2]';
+  ok $sti->type_name, undef, 'sti type_name [2]';
+  ok $sti->type_namespace, undef, 'sti type_namespace [2]';
+}
+
 =head1 LICENSE
 
 Copyright 2007 Wakaba <w@suika.fam.cx>
@@ -71,4 +167,4 @@
 
 =cut
 
-## $Date: 2007/06/17 13:37:42 $
+## $Date: 2007/07/29 03:49:00 $