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

Diff of /messaging/manakai/t/DOM-Element.t

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by wakaba, Sun Jul 8 13:04:39 2007 UTC revision 1.4 by wakaba, Sun Jul 29 03:49:00 2007 UTC
# Line 1  Line 1 
1  #!/usr/bin/perl  #!/usr/bin/perl
2  use strict;  use strict;
3  use Test;  use Test;
4  BEGIN { plan tests => 55 }  BEGIN { plan tests => 61 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7  use Message::Util::Error;  use Message::Util::Error;
# Line 139  for my $method (qw/set_attribute_node se Line 139  for my $method (qw/set_attribute_node se
139        'Element->attributes get_named_item get_attr_node';        'Element->attributes get_named_item get_attr_node';
140  }  }
141    
142    ## |schemaTypeInfo|
143    {
144      my $el = $doc->create_element ('el');
145      $el->owner_document->dom_config->set_parameter ('schema-type' => undef);
146      my $sti = $el->schema_type_info;
147      ok UNIVERSAL::isa ($sti, 'Message::IF::TypeInfo') ? 1 : 0, 1, 'sti if [1]';
148      ok $sti->type_name, undef, 'sti type_name [1]';
149      ok $sti->type_namespace, undef, 'sti type_namespace [1]';
150    }
151    {
152      my $el = $doc->create_element ('el');
153      $el->owner_document->dom_config->set_parameter
154          ('schema-type' => q<http://www.w3.org/TR/REC-xml>);
155      my $sti = $el->schema_type_info;
156      ok UNIVERSAL::isa ($sti, 'Message::IF::TypeInfo') ? 1 : 0, 1, 'sti if [2]';
157      ok $sti->type_name, undef, 'sti type_name [2]';
158      ok $sti->type_namespace, undef, 'sti type_namespace [2]';
159    }
160    
161  =head1 LICENSE  =head1 LICENSE
162    
163  Copyright 2007 Wakaba <w@suika.fam.cx>  Copyright 2007 Wakaba <w@suika.fam.cx>
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24