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	#!/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 $