manakai/t/DOM-DOMImplementation.t

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

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');
my $uri = $dom->create_uri_reference ('http://www.uri.test/');
ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference');

ok $dom->can ('create_document');
my $doc = $dom->create_document;
ok UNIVERSAL::isa ($doc, 'Message::IF::Document');

ok $dom->can ('create_document_type');
my $doc = $dom->create_document_type;
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;

## License: Public Domain.
## $Date: 2007/06/13 12:04:51 $
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use Test;
4			BEGIN { plan tests => 10 }
5
6			require Message::DOM::DOMImplementation;
7
8			my $dom = Message::DOM::DOMImplementation->____new;
9
10			ok $dom->isa ('Message::DOM::DOMImplementation');
11			ok $dom->isa ('Message::IF::DOMImplementation');
12
13			## AUTOLOAD test
14			ok $dom->can ('create_uri_reference');
15			my $uri = $dom->create_uri_reference ('http://www.uri.test/');
16			ok UNIVERSAL::isa ($uri, 'Message::IF::URIReference');
17
18	wakaba	1.2	ok $dom->can ('create_document');
19			my $doc = $dom->create_document;
20			ok UNIVERSAL::isa ($doc, 'Message::IF::Document');
21
22			ok $dom->can ('create_document_type');
23			my $doc = $dom->create_document_type;
24			ok UNIVERSAL::isa ($doc, 'Message::IF::DocumentType');
25
26	wakaba	1.1	ok $dom->can ('no_such_method') ? 1 : 0, 0;
27			my $something_called = 0;
28			eval {
29			$dom->no_such_method;
30			$something_called = 1;
31			};
32			ok $something_called, 0;
33
34			## License: Public Domain.
35	wakaba	1.2	## $Date: 2007/06/13 12:04:51 $