File Coverage

blib/lib/Data/Domain/URI_TEST.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod	1	1	100.0
total	42	42	100.0

use 5.008;
use strict;
use warnings;

package Data::Domain::URI_TEST;
our $VERSION = '1.100850';
# ABSTRACT: Test companion class for the URI data domain class
use Test::More;
use Data::Domain::URI ':all';
use parent qw(Test::CompanionClasses::Base);
use constant PLAN => 4 * keys %Data::Domain::URI::map;

sub run {
    my $self = shift;
    while (my ($shortcut, $rel_pkg) = each %Data::Domain::URI::map) {
        no strict 'refs';
        my $domain = *{$shortcut}{CODE}->();
        isa_ok($domain,          "Data::Domain::$rel_pkg");
        isa_ok($domain,          'Data::Domain::SemanticAdapter');
        isa_ok($domain->adaptee, "Data::Semantic::$rel_pkg");
        isa_ok($domain->adaptee, 'Data::Semantic::RegexpAdapter');
    }
}
1;


__END__