File Coverage

blib/lib/Test/Mojo/Trim.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	3	8	37.5
condition	2	8	25.0
subroutine	6	7	85.7
pod	1	2	50.0
total	39	57	68.4

package Test::Mojo::Trim;

use strict;

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

# ABSTRACT: Trim strings for Test::Mojo
our $AUTHORITY = 'cpan:CSSON'; # AUTHORITY
our $VERSION = '0.1000';

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);
}

sub squish {
    my $string = trim @_;
    $string =~ s{\s+}{ }g;
    return $string;
}

1;

__END__