File Coverage

blib/lib/Test/Mojo/Trim.pm

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	8	0.0
condition	0	8	0.0
subroutine	4	6	66.6
pod	1	1	100.0
total	17	52	32.6

package Test::Mojo::Trim;

use strict;

use Mojo::DOM;
use Mojo::Base 'Test::Mojo';
use Mojo::Util 'squish';

our $VERSION = '0.0904'; # VERSION
# ABSTRACT: Trim strings for Test::Mojo

sub trimmed_content_is {
    my $self = shift;
    my $value = squish(Mojo::DOM->new(shift)->to_string);
    my $desc = shift;

    my $dom = $self->tx->res->dom;
    my $got = squish($dom->to_string);
    my $error = defined $dom->at('#error') ? $dom->at('#error')->text : undef;
    chomp $error if $error;

    $value =~ s{> <}{><}g;
    $got =~ s{> <}{><}g;
    $desc ||= 'exact match for trimmed content';

    if(defined $error && length $error) {
        $desc .= (defined $error && length $error ? " (Error: $error)" : '');
        my $table = $dom->find('#context table')->each(sub {
            $desc .= $_->find('td')->map(sub { $_->text })->join(' ');
        });
        $got = '';
    }

    return $self->_test('is', $got, $value, $desc);
}

1;

__END__