File Coverage

blib/lib/Test/Deep/PDL.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	0	5	0.0
total	44	50	88.0

use strict;
use warnings;

package Test::Deep::PDL;
$Test::Deep::PDL::VERSION = '0.12';
# ABSTRACT: Test piddles inside data structures with Test::Deep


use Test::Deep::Cmp;
use Test::PDL qw( eq_pdl_diag );


sub init
{
	my $self = shift;
	my $expected = shift;
	die "Supplied value is not a piddle" unless eval { $expected->isa('PDL') };
	$self->{expected} = $expected;
}

sub descend
{
	my $self = shift;
	my $got = shift;
	my( $ok, $diag ) = Test::PDL::eq_pdl_diag( $got, $self->{expected} );
	$self->data->{diag} = $diag;
	return $ok;
}

sub diag_message
{
	my $self = shift;
	my $where = shift;
	return "Comparing $where as a piddle:\n" . $self->data->{diag};
}

sub renderExp
{
	my $self = shift;
	return $self->renderGot( $self->{expected} );
}

sub renderGot
{
	my $self = shift;
	my $val = shift;
	my $fmt = '%-8T %-12D (%-5S) ';
	return eval { $val->isa('PDL') } ? ($val->info($fmt) . $val) : ("(" . Test::Deep::render_val($val) . ")");
}


1;

__END__