File Coverage

blib/lib/Test/Deep/Teng/Row.pm

Criterion	Covered	Total	%
statement	18	32	56.2
branch	0	4	0.0
condition			n/a
subroutine	6	10	60.0
pod	1	4	25.0
total	25	50	50.0

package Test::Deep::Teng::Row;
use 5.008_001;
use strict;
use warnings;

our $VERSION = '0.01';

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

our @EXPORT = qw(teng_row);

sub teng_row {
    my ($expected) = @_;
    __PACKAGE__->new($expected);
}

sub init {
    my ($self, $val) = @_;
    $self->{val} = $val;
}

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

    unless ( $got->isa('Teng::Row') ) {
        $self->{error} = 'got row is not teng row object';
        return 0;
    }

    unless ( $self->{val}->isa('Teng::Row') ) {
        $self->{error} = 'expected row is not teng row object';
        return 0;
    }

    Test::Deep::wrap($self->{val}->get_columns)->descend($got->get_columns);
}

sub diagnostics {
    my $self = shift;
    return $self->{error};
}

1;
__END__