File Coverage

blib/lib/Test/Filename.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	28	28	100.0

use 5.006;
use strict;
use warnings;
package Test::Filename;
# ABSTRACT: Portable filename comparison
our $VERSION = '0.03'; # VERSION

use Test::Builder::Module;
use Path::Tiny;

our @ISA = qw/Test::Builder::Module/;
our @EXPORT = qw(
    filename_is
    filename_isnt
);

my $CLASS = __PACKAGE__;

#--------------------------------------------------------------------------#
# public API
#--------------------------------------------------------------------------#

sub filename_is {
    my($got, $expected, $label) = @_;
    return $CLASS->builder->is_eq(path($got), path($expected), $label);
}

sub filename_isnt {
    my($got, $expected, $label) = @_;
    return $CLASS->builder->isnt_eq(path($got), path($expected), $label);
}


1;

__END__