File Coverage

blib/lib/Test/Deep/NumberTolerant.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	1	2	50.0
condition			n/a
subroutine	11	11	100.0
pod	1	1	100.0
total	40	41	97.5

use strict;
use warnings;
package Test::Deep::NumberTolerant; # git description: v0.001-25-gfd85626
# vim: set ts=8 sts=4 sw=4 tw=115 et :
# ABSTRACT: A Test::Deep plugin for testing numbers within a tolerance range
# KEYWORDS: testing tests plugin numbers tolerance range epsilon uncertainty

our $VERSION = '0.002';

use Exporter 5.57 'import';
our @EXPORT = qw(within_tolerance);

sub within_tolerance
{
    my ($number, @tolerance_args) = @_;
    return Test::Deep::NumberTolerant::Object->new($number, @tolerance_args);
}

package # hide from PAUSE
    Test::Deep::NumberTolerant::Object;

our $VERSION = '0.002';

use parent 'Test::Deep::Cmp';
use Number::Tolerant ();

sub init
{
    my $self = shift;
    $self->{tolerance} = Number::Tolerant->new(@_);
}

sub descend
{
    my ($self, $got) = @_;
    return $got == $self->{tolerance};
}

sub diag_message
{
    my ($self, $where) = @_;

    return 'Checking ' . $where . ' against ' . $self->{tolerance};
}

# we do not define a diagnostics sub, so we get the one produced by deep_diag
# showing exactly what part of the data structure failed. This calls renderGot
# and renderVal:

sub renderGot
{
    my ($self, $got) = @_;
    return defined $self->{error_message}
        ? $self->{error_message}
        : 'failed';  # TODO?  $got . ' is not ' . $self->{tolerance};
}

sub renderExp
{
    my $self = shift;
    return 'no error';
}

1;

__END__