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 ('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:$
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			ok $dom->can ('no_such_method') ? 1 : 0, 0;
19			my $something_called = 0;
20			eval {
21			$dom->no_such_method;
22			$something_called = 1;
23			};
24			ok $something_called, 0;
25
26			## License: Public Domain.
27			## $Date:$