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

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

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

revision 1.5 by wakaba, Sat Jul 7 12:26:23 2007 UTC revision 1.7 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 => 21 }  BEGIN { plan tests => 31 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7    
# Line 43  F: for my $features ( Line 43  F: for my $features (
43    {Core => '2.0'}, {XML => '2.0'}, {Core => '2.0', XML => '2.0'},    {Core => '2.0'}, {XML => '2.0'}, {Core => '2.0', XML => '2.0'},
44    {Core => '3.0'}, {XML => '3.0'}, {Core => '3.0', XML => '3.0'},    {Core => '3.0'}, {XML => '3.0'}, {Core => '3.0', XML => '3.0'},
45    {XMLVersion => '1.0'}, {XMLVersion => '1.1'},    {XMLVersion => '1.0'}, {XMLVersion => '1.1'},
46      {Traversal => '2.0'}, {Traversal => ''},
47      {q<http://suika.fam.cx/www/2006/feature/XDoctype> => '3.0'},
48      {q<http://suika.fam.cx/www/2006/feature/XDoctype> => ''},
49      {q<http://suika.fam.cx/www/2006/feature/Atom> => '1.0'},
50      {q<http://suika.fam.cx/www/2006/feature/Atom> => ''},
51      {XML => '3.0', q<http://suika.fam.cx/www/2006/feature/Atom> => '1.0'},
52      {Core => '3.0', q<http://suika.fam.cx/www/2006/feature/Atom> => ''},
53      {q<http://suika.fam.cx/www/2006/feature/AtomThreading> => '1.0'},
54      {q<http://suika.fam.cx/www/2006/feature/AtomThreading> => ''},
55  ) {  ) {
56    my $list = $Message::DOM::DOMImplementationRegistry    my $list = $Message::DOM::DOMImplementationRegistry
57        ->get_dom_implementation_list ($features);        ->get_dom_implementation_list ($features);
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.7
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24