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

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

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

revision 1.17 by wakaba, Sat Jul 14 10:28:52 2007 UTC revision 1.19 by wakaba, Sun Jul 15 12:54:07 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 => 4918 }  BEGIN { plan tests => 5310 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7  use Message::Util::Error;  use Message::Util::Error;
# Line 1816  for my $node (create_nodes ()) { Line 1816  for my $node (create_nodes ()) {
1816         [Core => '', 1],         [Core => '', 1],
1817         [Core => undef, 1],         [Core => undef, 1],
1818         [Core => 3, 0],         [Core => 3, 0],
1819           [Traversal => '2.0', 1], [Traversal => '', 1], [Traversal => '1.0', 0],
1820         [XML => '1.0', 1],         [XML => '1.0', 1],
1821         [XML => '2.0', 1],         [XML => '2.0', 1],
1822         [XML => '3.0', 1],         [XML => '3.0', 1],
# Line 1833  for my $node (create_nodes ()) { Line 1834  for my $node (create_nodes ()) {
1834         ['+unknown' => undef, 0],         ['+unknown' => undef, 0],
1835         [q<http://suika.fam.cx/www/2006/feature/xdoctype> => '', 1],         [q<http://suika.fam.cx/www/2006/feature/xdoctype> => '', 1],
1836         [q<http://suika.fam.cx/www/2006/feature/xdoctype> => '3.0', 1],         [q<http://suika.fam.cx/www/2006/feature/xdoctype> => '3.0', 1],
1837           [q<http://suika.fam.cx/www/2006/feature/Atom> => '', 1],
1838           [q<http://suika.fam.cx/www/2006/feature/Atom> => '1.0', 1],
1839           [q<http://suika.fam.cx/www/2006/feature/AtomThreading> => '', 1],
1840           [q<http://suika.fam.cx/www/2006/feature/AtomThreading> => '1.0', 1],
1841        ) {        ) {
1842      my $label = $node->node_name . ' ' . $_->[0] . ', ' .      my $label = $node->node_name . ' ' . $_->[0] . ', ' .
1843          (defined $_->[1] ? $_->[1] : 'undef');          (defined $_->[1] ? $_->[1] : 'undef');
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.19
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24