manakai/t/DOM-Notation.t

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

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

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

my $ent = $doc->create_notation ('entity');

for my $prop (qw/public_id system_id/) {
  ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
  
  for ('-//...//EN', 'http://absuri.test/', 'reluri',
       qq('illegal"), qq'\x{4E00}', 0, '') {
    $ent->$prop ($_);
    ok $ent->$prop, $_, $prop . $_;
  }

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

## |manakaiDeclarationBaseURI|
{
  my $doc2 = $doc->implementation->create_document;
  my $ent = $doc2->create_notation ('notation');

  ok $ent->can ('manakai_declaration_base_uri') ? 1 : 0, 1,
      'can manakai_declaration_base_uri';

  $doc2->document_uri (q<http://www.example/>);
  ok $ent->manakai_declaration_base_uri, q<http://www.example/>,
      'manakai_declaration_base_uri document_uri';

  $ent->manakai_declaration_base_uri (q<ftp://www.example/>);
  ok $ent->manakai_declaration_base_uri, q<ftp://www.example/>,
      'manakai_declaration_base_uri explicit';
  ok $ent->base_uri, q<http://www.example/>,
      'manakai_declaration_base_uri (base_uri)';

  $ent->manakai_declaration_base_uri (undef);
  ok $ent->manakai_declaration_base_uri, q<http://www.example/>,
      'manakai_declaration_base_uri reset';
}

=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 => 23 }
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_notation ('entity');
13
14			for my $prop (qw/public_id system_id/) {
15			ok $ent->can ($prop) ? 1 : 0, 1, 'can ' . $prop;
16
17			for ('-//...//EN', 'http://absuri.test/', 'reluri',
18			qq('illegal"), qq'\x{4E00}', 0, '') {
19			$ent->$prop ($_);
20			ok $ent->$prop, $_, $prop . $_;
21			}
22
23			$ent->$prop (undef);
24			ok $ent->$prop, undef, $prop . ' undef';
25			}
26
27			## \|manakaiDeclarationBaseURI\|
28			{
29			my $doc2 = $doc->implementation->create_document;
30			my $ent = $doc2->create_notation ('notation');
31
32			ok $ent->can ('manakai_declaration_base_uri') ? 1 : 0, 1,
33			'can manakai_declaration_base_uri';
34
35			$doc2->document_uri (q<http://www.example/>);
36			ok $ent->manakai_declaration_base_uri, q<http://www.example/>,
37			'manakai_declaration_base_uri document_uri';
38
39			$ent->manakai_declaration_base_uri (q<ftp://www.example/>);
40			ok $ent->manakai_declaration_base_uri, q<ftp://www.example/>,
41			'manakai_declaration_base_uri explicit';
42			ok $ent->base_uri, q<http://www.example/>,
43			'manakai_declaration_base_uri (base_uri)';
44
45			$ent->manakai_declaration_base_uri (undef);
46			ok $ent->manakai_declaration_base_uri, q<http://www.example/>,
47			'manakai_declaration_base_uri reset';
48			}
49
50			=head1 LICENSE
51
52			Copyright 2007 Wakaba <w@suika.fam.cx>
53
54			This program is free software; you can redistribute it and/or
55			modify it under the same terms as Perl itself.
56
57			=cut
58
59			## $Date: 2007/06/16 08:49:00 $