manakai/t/DOM-Attr.t

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

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

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

my $ent = $doc->create_attribute ('attr');

{
  my $prop = 'specified';
  ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
  ok $ent->$prop ? 1 : 0, 1, $prop . ' test is valid?';
  
  for (0, 1, '') {
    $ent->$prop ($_);
    ok $ent->$prop ? 1 : 0, 1, $prop . ' ' . $_;
  }

  $ent->$prop (undef);
  ok $ent->$prop ? 1 : 0, 1, $prop . ' undef';

  my $el = $doc->create_element ('element');
  $el->set_attribute_node ($ent); # set owner_element
  ok $ent->$prop ? 1 : 0, 1, $prop . ' test is valid? (has owner_element)';

  for (0, 1, '') {
    $ent->$prop ($_);
    ok $ent->$prop ? 1 : 0, $_ ? 1 : 0, $prop . ' (has owner_element) ' . $_;
  }

  $ent->$prop (undef);
  ok $ent->$prop ? 1 : 0, 0, $prop . ' (has owner_element) undef';
}

for my $prop (qw/manakai_attribute_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 => 29 }
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 ('attr');
13
14			{
15			my $prop = 'specified';
16			ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
17			ok $ent->$prop ? 1 : 0, 1, $prop . ' test is valid?';
18
19			for (0, 1, '') {
20			$ent->$prop ($_);
21			ok $ent->$prop ? 1 : 0, 1, $prop . ' ' . $_;
22			}
23
24			$ent->$prop (undef);
25			ok $ent->$prop ? 1 : 0, 1, $prop . ' undef';
26
27			my $el = $doc->create_element ('element');
28			$el->set_attribute_node ($ent); # set owner_element
29			ok $ent->$prop ? 1 : 0, 1, $prop . ' test is valid? (has owner_element)';
30
31			for (0, 1, '') {
32			$ent->$prop ($_);
33			ok $ent->$prop ? 1 : 0, $_ ? 1 : 0, $prop . ' (has owner_element) ' . $_;
34			}
35
36			$ent->$prop (undef);
37			ok $ent->$prop ? 1 : 0, 0, $prop . ' (has owner_element) undef';
38			}
39
40			for my $prop (qw/manakai_attribute_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 $