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

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

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

revision 1.4 by wakaba, Sat Jul 7 07:36:58 2007 UTC revision 1.6 by wakaba, Sun Jul 8 05:42:37 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 => 128 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7  use Message::Util::Error;  use Message::Util::Error;
# Line 275  for my $prop (qw/all_declarations_proces Line 275  for my $prop (qw/all_declarations_proces
275    my $doc2 = $doc->implementation->create_document;    my $doc2 = $doc->implementation->create_document;
276    my $doctype = $doc2->implementation->create_document_type ('dt');    my $doctype = $doc2->implementation->create_document_type ('dt');
277    my $el = $doc2->create_element_ns (undef, 'e');    my $el = $doc2->create_element_ns (undef, 'e');
278    my $comment = $doc->create_comment ('');    my $comment = $doc2->create_comment ('');
279    $doc2->append_child ($comment);    $doc2->append_child ($comment);
280    $doc2->append_child ($doctype);    $doc2->append_child ($doctype);
281    $doc2->append_child ($el);    $doc2->append_child ($el);
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24