manakai/t/DOM-DOMImplementationSource.t

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

require Message::DOM::DOMImplementationSource;

my $source = 'Message::DOM::DOMImplementationSource';

for (
  [undef, 1, 'undef'],
  ['', 1, 'empty'],
  [{core => '3.0'}, 1, '{core=>3.0}'],
  [{Core => '3.0'}, 1, '{Core=>3.0}'],
  [{Core => ''}, 1, '{Core=>}'],
  [{Core => undef}, 1, '{Core=>undef}'],
  [{Core => ['3.0']}, 1, '{Core=>[3.0]}'],
  ['Core 3.0', 1, 'Core 3.0'],
  [{Core => '3.0', xml => '3.0'}, 1, '{Core=>3.0,xml=>3.0}'],
  ['Core 3.0 XML 3.0', 1, 'Core 3.0 XML 3.0'],
  ['Core 3.0 XML', 1, 'Core 3.0 XML'],
  ['no-such-feature', 0, 'no-such-feature'],
) {
  my $dom = $source->get_dom_implementation ($_->[0]);
  ok defined $dom ? 1 : 0, $_->[1], 'get ' . $_->[2];
  my $list = $source->get_dom_implementation_list ($_->[0]);
  ok 0+@$list, $_->[1] ? 1 : 0, 'get list ' . $_->[2];
}

=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/06/17 13:37:42 $
1	wakaba	1.1	#!/usr/bin/perl
2			use strict;
3			use Test;
4			BEGIN { plan tests => 24 }
5
6			require Message::DOM::DOMImplementationSource;
7
8			my $source = 'Message::DOM::DOMImplementationSource';
9
10			for (
11			[undef, 1, 'undef'],
12			['', 1, 'empty'],
13			[{core => '3.0'}, 1, '{core=>3.0}'],
14			[{Core => '3.0'}, 1, '{Core=>3.0}'],
15			[{Core => ''}, 1, '{Core=>}'],
16			[{Core => undef}, 1, '{Core=>undef}'],
17			[{Core => ['3.0']}, 1, '{Core=>[3.0]}'],
18			['Core 3.0', 1, 'Core 3.0'],
19			[{Core => '3.0', xml => '3.0'}, 1, '{Core=>3.0,xml=>3.0}'],
20			['Core 3.0 XML 3.0', 1, 'Core 3.0 XML 3.0'],
21			['Core 3.0 XML', 1, 'Core 3.0 XML'],
22			['no-such-feature', 0, 'no-such-feature'],
23			) {
24			my $dom = $source->get_dom_implementation ($_->[0]);
25			ok defined $dom ? 1 : 0, $_->[1], 'get ' . $_->[2];
26			my $list = $source->get_dom_implementation_list ($_->[0]);
27			ok 0+@$list, $_->[1] ? 1 : 0, 'get list ' . $_->[2];
28			}
29
30			=head1 LICENSE
31
32			Copyright 2007 Wakaba <w@suika.fam.cx>
33
34			This program is free software; you can redistribute it and/or
35			modify it under the same terms as Perl itself.
36
37			=cut
38
39			## $Date: 2007/06/17 13:37:42 $