use strict;
use warnings;
package Test::HiD::Role::IsPublished;
use Test::Routine;
use Test::More;
use namespace::autoclean;
has expected_basename => (
is => 'ro' ,
isa => 'Str' ,
required => 1 ,
);
has expected_dir => (
is => 'ro' ,
isa => 'Str' ,
required => 1 ,
);
has expected_suffix => (
is => 'ro' ,
isa => 'Str' ,
required => 1 ,
);
has expected_url => (
is => 'ro' ,
isa => 'Str' ,
required => 1 ,
);
test "parsing input filename into parts" => sub {
my $test = shift;
my $subject = $test->subject;
is( $subject->basename , $test->expected_basename , 'expected basename');
is( $subject->ext , $test->expected_suffix , 'expected ext');
is( $subject->input_path , $test->expected_dir , 'expected dir');
};
test "has url" => sub {
my $test = shift;
my $subject = $test->subject;
is( $subject->url , $test->expected_url , 'expected url' );
};
1;