File Coverage

blib/lib/Data/Semantic/URI/http_TEST.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	37	37	100.0

use 5.008;
use strict;
use warnings;

package Data::Semantic::URI::http_TEST;
our $VERSION = '1.100850';
# ABSTRACT: Test companion class for the http URI semantic data class
use Test::More;
use Test::Differences;
use parent qw(
  Data::Semantic::Test
  Data::Semantic::URI::TestData::http
);
use constant PLAN => 2;

sub run {
    my $self = shift;
    $self->SUPER::run(@_);
    my $obj = $self->make_real_object(keep => 1);
    my $uri = 'http://use.perl.org:8081/~hanekomu/journal?entry=12345';
    ok($obj->is_valid($uri), "$uri is valid");
    my %expect = (
        abspath_full          => '/~hanekomu/journal?entry=12345',
        URI                   => $uri,
        abspath_no_query      => '~hanekomu/journal',
        query                 => 'entry=12345',
        abspath_full_no_slash => '~hanekomu/journal?entry=12345',
        scheme                => 'http',
        port                  => '8081',
        host                  => 'use.perl.org'
    );
    eq_or_diff({ $obj->kept }, \%expect, 'kept values');
}
1;


__END__