Merge pull request #14 from szabgab/test-with-image

Add test that adds a logo

Author: abeverley

sample/004_image.pdf

@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+use CtrlO::PDF;
+
+use lib '.';
+use t::lib::Tools qw(compare_pdf);
+
+subtest image => sub {
+    my $pdf = CtrlO::PDF->new(
+        logo        => "sample/logo.png",
+        footer      => "My PDF document footer",
+    );
+
+    $pdf->add_page;
+
+    # Add headings
+    $pdf->heading('This is the main heading');
+    $pdf->heading('This is a sub-heading', size => 12);
+
+    # Add paragraph text
+    $pdf->text("Foobar");
+
+    compare_pdf($pdf, 'sample/004_image.pdf');
+};
+
+done_testing();
+
+

t/004_image.t

@@ -0,0 +1,36 @@
+package t::lib::Tools;
+use strict;
+use warnings;
+
+use File::Temp qw(tempdir);
+use File::Spec::Functions qw(catfile);
+use File::Compare qw(compare);
+use Test::Builder::Module;
+use Exporter qw(import);
+
+our @EXPORT_OK = qw(compare_pdf);
+
+sub compare_pdf {
+    my ($pdf, $expected_file) = @_;
+
+    my $Test = Test::Builder::Module->builder;
+
+    my $content = $pdf->content;
+    $Test->ok($content, "Some PDF content produced");
+
+    # For debugging one can set CLEANUP to 0 and enable the diag to see
+    # the name of the temporary folder.
+    my $dir = tempdir( CLEANUP => 1 );
+    # $Test->diag($dir);
+
+    my $file = catfile($dir, 'out.pdf');
+
+    open my $out, '>', $file;
+    binmode $out;
+    print $out $content;
+    close $out;
+
+    $Test->is_num(compare($file, $expected_file), 0, 'File is as expected');
+}
+
+1;