manakai/t/DOM-AttributeDefinition.t

#!/usr/bin/perl
use strict;
use Test;
BEGIN { plan tests => 70 } 

require Message::DOM::DOMImplementation;
use Message::Util::Error;

my $dom = Message::DOM::DOMImplementation->____new;
my $doc = $dom->create_document;

my $ent = $doc->create_attribute_definition ('ad');

## Constants
my $constants = [
                 [NO_TYPE_ATTR => 0],
                 [CDATA_ATTR => 1],
                 [ID_ATTR => 2],
                 [IDREF_ATTR => 3],
                 [IDREFS_ATTR => 4],
                 [ENTITY_ATTR => 5],
                 [ENTITIES_ATTR => 6],
                 [NMTOKEN_ATTR => 7],
                 [NMTOKENS_ATTR => 8],
                 [NOTATION_ATTR => 9],
                 [ENUMERATION_ATTR => 10],
                 [UNKNOWN_ATTR => 11],
                 [UNKNOWN_DEFAULT => 0],
                 [FIXED_DEFAULT => 1],
                 [REQUIRED_DEFAULT => 2],
                 [IMPLIED_DEFAULT => 3],
                 [EXPLICIT_DEFAULT => 4],
];
for (@$constants) {
  my $const_name = $_->[0];
  ok $ent->can ($const_name) ? 1 : 0, 1, "can ($const_name)";
  ok $ent->$const_name, $_->[1], $const_name;
}

for my $prop (qw/declared_type default_type/) {
  ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
  local $^W = 0;
  
  for (-3..10, 'abc', '') {
    $ent->$prop ($_);
    ok $ent->$prop, 0+$_, $prop . $_;
  }

  $ent->$prop (undef);
  ok $ent->$prop, 0, $prop . ' undef';
}

=head1 LICENSE

Copyright 2007 Wakaba <w@suika.fam.cx>

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut

## $Date: 2007/06/16 08:49:00 $
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use Test;
4			BEGIN { plan tests => 70 }
5
6			require Message::DOM::DOMImplementation;
7			use Message::Util::Error;
8
9			my $dom = Message::DOM::DOMImplementation->____new;
10			my $doc = $dom->create_document;
11
12			my $ent = $doc->create_attribute_definition ('ad');
13
14			## Constants
15			my $constants = [
16			[NO_TYPE_ATTR => 0],
17			[CDATA_ATTR => 1],
18			[ID_ATTR => 2],
19			[IDREF_ATTR => 3],
20			[IDREFS_ATTR => 4],
21			[ENTITY_ATTR => 5],
22			[ENTITIES_ATTR => 6],
23			[NMTOKEN_ATTR => 7],
24			[NMTOKENS_ATTR => 8],
25			[NOTATION_ATTR => 9],
26			[ENUMERATION_ATTR => 10],
27			[UNKNOWN_ATTR => 11],
28			[UNKNOWN_DEFAULT => 0],
29			[FIXED_DEFAULT => 1],
30			[REQUIRED_DEFAULT => 2],
31			[IMPLIED_DEFAULT => 3],
32			[EXPLICIT_DEFAULT => 4],
33			];
34			for (@$constants) {
35			my $const_name = $_->[0];
36			ok $ent->can ($const_name) ? 1 : 0, 1, "can ($const_name)";
37			ok $ent->$const_name, $_->[1], $const_name;
38			}
39
40			for my $prop (qw/declared_type default_type/) {
41			ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
42			local $^W = 0;
43
44			for (-3..10, 'abc', '') {
45			$ent->$prop ($_);
46			ok $ent->$prop, 0+$_, $prop . $_;
47			}
48
49			$ent->$prop (undef);
50			ok $ent->$prop, 0, $prop . ' undef';
51			}
52
53			=head1 LICENSE
54
55			Copyright 2007 Wakaba <w@suika.fam.cx>
56
57			This program is free software; you can redistribute it and/or
58			modify it under the same terms as Perl itself.
59
60			=cut
61
62			## $Date: 2007/06/16 08:49:00 $