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