File Coverage

blib/lib/Test/Deep/Between.pm

Criterion	Covered	Total	%
statement	42	43	97.6
branch	9	10	90.0
condition	3	6	50.0
subroutine	12	12	100.0
pod	2	5	40.0
total	68	76	89.4

package Test::Deep::Between;
use 5.008_001;
use strict;
use warnings;

our $VERSION = '0.02';

use Test::Deep::Cmp;
use Exporter::Lite;

our @EXPORT = qw(between between_str);

sub between {
    my ($from, $to) = @_;
    __PACKAGE__->new($from, $to);
}

sub between_str {
    my ($from, $to) = @_;
    __PACKAGE__->new($from, $to, 1);
}

sub init {
    my $self = shift;
    my ($from, $to, $is_str) = @_;

    $self->{from} = $from;
    $self->{to} = $to;
    $self->{is_str} = $is_str;

    $self->_is_invalid_range();
}

sub _is_invalid_range {
    my $self = shift;
    if ($self->{is_str}) {
        if ($self->{from} gt $self->{to}) {
            $self->{error_mean} = 'from_value is larger than to_value.';
        }
    }
    else {
        if ($self->{from} > $self->{to}) {
            $self->{error_mean} = 'from_value is larger than to_value.';
        }
    }
}

sub _is_in_range {
    my $self = shift;
    my $got = shift;
    if ($self->{is_str}) {
        return $self->{from} le $got && $got le $self->{to};
    }
    else {
        return $self->{from} <= $got && $got <= $self->{to};
    }
}

sub descend {
    my ($self, $got) = @_;

    if (exists $self->{error_mean}) {
        return 0;
    }

    $self->{error_mean} = '%s is not in %s to %s.';
    return $self->_is_in_range($got);
}

sub diagnostics {
    my ($self, $got) = @_;
    return sprintf $self->{error_mean}, $got, $self->{from}, $self->{to};
}

1;
__END__