manakai/t/DOM-DOMImplementation.t

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

require Message::DOM::DOMImplementation;

my $dom = Message::DOM::DOMImplementation->new;

ok $dom->isa ('Message::DOM::DOMImplementation');
ok $dom->isa ('Message::IF::DOMImplementation');

## AUTOLOAD test
{
  ok $dom->can ('create_uri_reference') ? 1 : 0, 1, "can create_uri_reference";
  my $uri = $dom->create_uri_reference ('http://www.uri.test/');
  ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference');
}

{
  ok $dom->can ('create_document') ? 1 : 0, 1, "can create_document";
  my $doc = $dom->create_document;
  ok UNIVERSAL::isa ($doc, 'Message::IF::Document');
}

{
  ok $dom->can ('create_document_type') ? 1 : 0, 1, "can create_document_type";
  my $doc = $dom->create_document_type ('dt');
  ok UNIVERSAL::isa ($doc, 'Message::IF::DocumentType');
}

ok $dom->can ('no_such_method') ? 1 : 0, 0;
my $something_called = 0;
eval {
  $dom->no_such_method;
  $something_called = 1;
};
ok $something_called, 0;

require Message::DOM::DOMImplementationRegistry;
F: for my $features (
  {Core => '1.0'}, {XML => '1.0'}, {Core => '1.0', XML => '1.0'},
  {Core => '2.0'}, {XML => '2.0'}, {Core => '2.0', XML => '2.0'},
  {Core => '3.0'}, {XML => '3.0'}, {Core => '3.0', XML => '3.0'},
  {XMLVersion => '1.0'}, {XMLVersion => '1.1'},
  {Traversal => '2.0'}, {Traversal => ''},
) {
  my $list = $Message::DOM::DOMImplementationRegistry
      ->get_dom_implementation_list ($features);
  for my $impl (@$list) {
    if ($impl->isa ('Message::DOM::DOMImplementation')) {
      ok 1, 1, 'features: '. join ',', %$features;
      next F;
    }
  }
} # F

=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/07/07 12:26:23 $
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use Test;
4	wakaba	1.6	BEGIN { plan tests => 23 }
5	wakaba	1.1
6			require Message::DOM::DOMImplementation;
7
8	wakaba	1.4	my $dom = Message::DOM::DOMImplementation->new;
9	wakaba	1.1
10			ok $dom->isa ('Message::DOM::DOMImplementation');
11			ok $dom->isa ('Message::IF::DOMImplementation');
12
13			## AUTOLOAD test
14	wakaba	1.3	{
15			ok $dom->can ('create_uri_reference') ? 1 : 0, 1, "can create_uri_reference";
16			my $uri = $dom->create_uri_reference ('http://www.uri.test/');
17			ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference');
18			}
19	wakaba	1.1
20	wakaba	1.3	{
21			ok $dom->can ('create_document') ? 1 : 0, 1, "can create_document";
22			my $doc = $dom->create_document;
23			ok UNIVERSAL::isa ($doc, 'Message::IF::Document');
24			}
25	wakaba	1.2
26	wakaba	1.3	{
27			ok $dom->can ('create_document_type') ? 1 : 0, 1, "can create_document_type";
28	wakaba	1.5	my $doc = $dom->create_document_type ('dt');
29	wakaba	1.3	ok UNIVERSAL::isa ($doc, 'Message::IF::DocumentType');
30			}
31	wakaba	1.2
32	wakaba	1.1	ok $dom->can ('no_such_method') ? 1 : 0, 0;
33			my $something_called = 0;
34			eval {
35			$dom->no_such_method;
36			$something_called = 1;
37			};
38			ok $something_called, 0;
39
40	wakaba	1.4	require Message::DOM::DOMImplementationRegistry;
41			F: for my $features (
42			{Core => '1.0'}, {XML => '1.0'}, {Core => '1.0', XML => '1.0'},
43			{Core => '2.0'}, {XML => '2.0'}, {Core => '2.0', XML => '2.0'},
44			{Core => '3.0'}, {XML => '3.0'}, {Core => '3.0', XML => '3.0'},
45			{XMLVersion => '1.0'}, {XMLVersion => '1.1'},
46	wakaba	1.6	{Traversal => '2.0'}, {Traversal => ''},
47	wakaba	1.4	) {
48			my $list = $Message::DOM::DOMImplementationRegistry
49			->get_dom_implementation_list ($features);
50			for my $impl (@$list) {
51			if ($impl->isa ('Message::DOM::DOMImplementation')) {
52			ok 1, 1, 'features: '. join ',', %$features;
53			next F;
54			}
55			}
56			} # F
57
58			=head1 LICENSE
59
60			Copyright 2007 Wakaba <w@suika.fam.cx>
61
62			This program is free software; you can redistribute it and/or
63			modify it under the same terms as Perl itself.
64
65			=cut
66
67	wakaba	1.6	## $Date: 2007/07/07 12:26:23 $