/[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.2 by wakaba, Sat Jul 7 11:11:34 2007 UTC revision 1.3 by wakaba, Sun Jul 8 13:04:39 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 => 52 }  BEGIN { plan tests => 55 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7  use Message::Util::Error;  use Message::Util::Error;
# Line 126  for my $method (qw/set_attribute_node se Line 126  for my $method (qw/set_attribute_node se
126        "$method get_attribute_ns [3]";        "$method get_attribute_ns [3]";
127  }  }
128    
129    ## |attributes|
130    {
131      my $el = $doc->create_element ('e');
132      ok $el->can ('attributes') ? 1 : 0, 1, 'Element->attributes can';
133    
134      my $as = $el->attributes;
135      ok UNIVERSAL::isa ($as, 'Message::IF::NamedNodeMap') ? 1 : 0, 1, 'E->as if';
136      
137      $el->set_attribute (at1 => 'value');
138      ok $as->get_named_item ('at1'), $el->get_attribute_node ('at1'),
139          'Element->attributes get_named_item get_attr_node';
140    }
141    
142  =head1 LICENSE  =head1 LICENSE
143    
144  Copyright 2007 Wakaba <w@suika.fam.cx>  Copyright 2007 Wakaba <w@suika.fam.cx>
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24