From 29d7a525bf3b79a11342c6ac1357107c90abef3e Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Thu, 14 Jun 2012 14:00:16 +0200 Subject: [PATCH] Bug 7952 - followup to fix t/Creators.t Since we are now using temporary file, we are creating test.pdf at end of test and checking if it exists and have non-zero size. --- t/Creators.t | 12 +++++++++--- 1 files changed, 9 insertions(+), 3 deletions(-) diff --git a/t/Creators.t b/t/Creators.t index 720aa2c..85701c2 100755 --- a/t/Creators.t +++ b/t/Creators.t @@ -6,16 +6,16 @@ use strict; use warnings; -use Test::More tests => 15; +use Test::More tests => 16; BEGIN { use_ok('C4::Creators'); use_ok('C4::Creators::PDF'); } -my $pdf_creator = C4::Creators::PDF->new('test.pdf' => '', InitVars => 0); +my $pdf_creator = C4::Creators::PDF->new(InitVars => 0); ok($pdf_creator, "testing new() works"); -if (-e 'test.pdf') { +if (-e $pdf_creator->{filename}) { pass('testing pdf file created'); } else { @@ -40,6 +40,12 @@ is($pdf_creator->StrWidth("test", "H", 12), '19.344', "testing StrWidth() return is($result[0], '10', "testing Text() writes from a given x-value"); is($result[1], '29.344', "testing Text() writes to the correct x-value"); +open(my $fh, '>', 'test.pdf'); +select $fh; + ok($pdf_creator->End(), "testing End() works"); +close($fh); +ok( -s 'test.pdf', 'test.pdf created' ); + unlink 'test.pdf'; -- 1.7.2.5