File Coverage

blib/lib/HTML/FormHandler/Test.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	1	0.0
total	40	41	97.5

package HTML::FormHandler::Test;
# ABSTRACT: provides is_html method used in tests
$HTML::FormHandler::Test::VERSION = '0.40068';
use strict;
use warnings;
use base 'Test::Builder::Module';
use HTML::TreeBuilder;
use Test::Builder::Module;
our @EXPORT = ('is_html');
use Encode ('decode');


sub is_html {
    my ( $got, $expected, $message ) = @_;
    my $t1 = HTML::TreeBuilder->new;
    my $t2 = HTML::TreeBuilder->new;

    $got = decode('utf8', $got);
    $expected = decode('utf8', $expected);
    $t1->parse($got);
    $t1->eof;
    $t2->parse($expected);
    $t2->eof;
    my $out1 = $t1->as_XML;
    my $out2 = $t2->as_XML;
    $t1->delete;
    $t2->delete;
    my $tb = HTML::FormHandler::Test->builder;
    return $tb->is_eq($out1, $out2, $message);
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

HTML::FormHandler::Test - provides is_html method used in tests

=head1 VERSION

version 0.40068

=head1 SYNOPSIS

Simple 'is_html' method for testing form rendering against
an expected value without having to fuss with exactly matching
newlines and spaces. Uses L<HTML::TreeBuilder>, which uses
L<HTML::Parser>.

See numerous examples in the 't/render' directory.

   use Test::More;
   use HTML::FormHandler::Test;
   use_ok('MyApp::Form::Basic');
   my $form = MyApp::Form::Basic->new;
   $form->process;
   my $expected = '<form html>';
   is_html( $form->render, $expected, 'form renders ok' );

=head1 AUTHOR

FormHandler Contributors - see HTML::FormHandler

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Gerda Shank.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut