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	#!/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 ('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	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	## $Date: 2007/06/13 12:04:51 $