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