File Coverage

lib/Test/Chai/Core/Assertions/Within.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	3	4	75.0
condition	5	6	83.3
subroutine	7	7	100.0
pod	0	1	0.0
total	41	44	93.1

package Test::Chai::Core::Assertions::Within;
use strict;
use warnings;
use utf8;

use Exporter qw/import/;
our @EXPORT_OK = qw/assert_within/;

use Test::Chai::Util::Flag qw/flag/;
use Test::Chai::Util::GenericLength qw/generic_length/;

sub assert_within {
    my ($self, $start, $finish, $msg) = @_;

    flag($self, 'message', $msg) if defined $msg;
    my $obj   = flag($self, 'object');
    my $range = $start . '..' . $finish;

    if (flag($self, 'do_length')) {
        my $len = generic_length($obj);
        return $self->assert(
            $len >= $start && $len < $finish,
            'expected #{this} to have a length within ' . $range,
            'expected #{this} to not have a length within ' . $range
        );
    }

    else {
        return $self->assert(
            $obj >= $start && $obj <= $finish,
            'expected #{this} to be within ' . $range,
            'expected #{this} to not be within ' . $range
        );
   }
}

1;