File Coverage

blib/lib/Test/Deep/NumberTolerant.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition			n/a
subroutine	12	12	100.0
pod	1	6	16.6
total	44	50	88.0

use strict;
use warnings;
package Test::Deep::NumberTolerant;
# git description: 367b0d1
$Test::Deep::NumberTolerant::VERSION = '0.001';
# ABSTRACT: A Test::Deep plugin for testing numbers within a tolerance range
# KEYWORDS: testing tests plugin numbers tolerance range epsilon uncertainty
# vim: set ts=8 sw=4 tw=78 et :

use parent 'Test::Deep::Cmp';
use Number::Tolerant;
use namespace::clean;
use Exporter 'import';

our @EXPORT = qw(within_tolerance);

sub within_tolerance
{
    my ($number, @tolerance_args) = @_;
    return __PACKAGE__->new($number, @tolerance_args);
}

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

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__