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

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

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

revision 1.1 by wakaba, Sun Jun 17 13:37:42 2007 UTC revision 1.2 by wakaba, Sun Jun 17 14:15: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 => 42 }  BEGIN { plan tests => 54 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7  use Message::Util::Error;  use Message::Util::Error;
# Line 23  for my $prop (qw/has_replacement_tree/) Line 23  for my $prop (qw/has_replacement_tree/)
23    ok $ent->$prop ? 1 : 0, 0, $prop . ' undef';    ok $ent->$prop ? 1 : 0, 0, $prop . ' undef';
24  }  }
25    
26  for my $prop (qw/public_id system_id/) {  for my $prop (qw/notation_name public_id system_id/) {
27    ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;    ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
28        
29    for ('-//...//EN', 'http://absuri.test/', 'reluri',    for ('-//...//EN', 'http://absuri.test/', 'reluri',
30         qq('illegal"), qq'\x{4E00}', 0, '') {         qq('illegal"), qq'\x{4E00}', ' ', 0, '') {
31      $ent->$prop ($_);      $ent->$prop ($_);
32      ok $ent->$prop, $_, $prop . $_;      ok $ent->$prop, $_, $prop . $_;
33    }    }
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24