File Coverage

blib/lib/Test/PDF.pm

Criterion	Covered	Total	%
statement	33	35	94.2
branch	7	8	87.5
condition	6	10	60.0
subroutine	7	7	100.0
pod	1	1	100.0
total	54	61	88.5

package Test::PDF;

use strict;
use warnings;

our $VERSION = '0.01';

use Test::Builder ();
use Test::Deep    ();
use Scalar::Util 'blessed';
use CAM::PDF;

require Exporter;

our @ISA    = qw(Exporter);
our @EXPORT = qw(cmp_pdf);

my $Test = Test::Builder->new;

sub cmp_pdf ($$;$) {
    my ($got, $expected, $message) = @_;
    unless (blessed($got) && $got->isa('CAM::PDF')) {
        $got = CAM::PDF->new($got)
               || die "Could not create CAM::PDF instance with : $got";
    }
    unless (blessed($expected) && $expected->isa('CAM::PDF')) {
        $expected = CAM::PDF->new($expected)
               || die "Could not create CAM::PDF instance with : $expected";
    }

    # if they dont have the same number of
    # pages, then they can't be "equal" so
    # we can short-circuit a potentially
    # long test here ...
    unless ($got->numPages() == $expected->numPages()) {
        $Test->ok(0, $message);
        return;
    }

    my $do_PDFs_match = 0;
    foreach my $page_num (1 .. $got->numPages()) {
        my $tree1 = $got->getPageContentTree($page_num, "verbose");
        my $tree2 = $expected->getPageContentTree($page_num, "verbose");
        if (Test::Deep::eq_deeply($tree1->{blocks}, $tree2->{blocks})) {
            $do_PDFs_match = 1;
        }
        else {
            # exit the loop as soon as we
            # determine the PDFs do not match
            $do_PDFs_match = 0;
            last;
        }
    }

    $Test->ok($do_PDFs_match, $message);
}

1;

__END__