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

Diff of /messaging/manakai/t/DOM-AttributeDefinition.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, Sat Jul 7 04:47:30 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 => 70 }  BEGIN { plan tests => 79 }
5    
6  require Message::DOM::DOMImplementation;  require Message::DOM::DOMImplementation;
7  use Message::Util::Error;  use Message::Util::Error;
# Line 50  for my $prop (qw/declared_type default_t Line 50  for my $prop (qw/declared_type default_t
50    ok $ent->$prop, 0, $prop . ' undef';    ok $ent->$prop, 0, $prop . ' undef';
51  }  }
52    
53    ## allowedToken
54    {
55      my $at = $doc->create_attribute_definition ('ay');
56    
57      ok $at->can ('allowed_tokens') ? 1 : 0, 1, 'can allowedTokens';
58    
59      my $list = $at->allowed_tokens;
60      ok UNIVERSAL::isa ($list, 'Message::IF::DOMStringList') ? 1 : 0, 1,
61          'allowedTokens interface';
62      ok 0+@$list, 0, 'allowedTokens @{} 0+';
63    
64      push @$list, 'NMTOKEN';
65      ok $list->[0], 'NMTOKEN', 'allowedTokens->[0]';
66      undef $list;
67    
68      my $list2 = $at->allowed_tokens;
69      ok $list2->[0], 'NMTOKEN', 'allowedTokens->[0] 2';
70    
71      my $list3 = $at->allowed_tokens;
72      my $at2 = $doc->create_attribute_definition ('at2');
73      my $list4 = $at2->allowed_tokens;
74    
75      ok $list2 eq $list3 ? 1 : 0, 1, 'allowedTokens eq allowedTokens';
76      ok $list2 ne $list3 ? 1 : 0, 0, 'allowedTokens ne allowedTokens';
77      ok $list2 eq $list4 ? 1 : 0, 0, 'allowedTokens eq allowedTokens2';
78      ok $list2 ne $list4 ? 1 : 0, 1, 'allowedTokens ne allowedTokens2';
79    }
80    
81  =head1 LICENSE  =head1 LICENSE
82    
83  Copyright 2007 Wakaba <w@suika.fam.cx>  Copyright 2007 Wakaba <w@suika.fam.cx>
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
admin@suikawiki.org
 ViewVC Help
Powered by ViewVC 1.1.24