gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 5327 added unit tests for C4/Creators/PDF.pm 

Signed-off-by: Chris Hall <chrish@catalyst.net.nz>
(cherry picked from commit e81cbd7fe0)

Signed-off-by: Chris Nighswonger <chris.nighswonger@gmail.com>
This commit is contained in:
Jono Mingard 2012-01-19 14:31:57 +13:00 committed by Chris Nighswonger
parent 2d113b9303
commit cbccfdbb61
1 changed files with 32 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
t/Creators.t
View File

@ -6,9 +6,40 @@
use strict;
use warnings;
use Test::More tests => 1;
use Test::More tests => 15;
BEGIN {
use_ok('C4::Creators');
use_ok('C4::Creators::PDF');
}
my $pdf_creator = C4::Creators::PDF->new('test.pdf' => '', InitVars => 0);
ok($pdf_creator, "testing new() works");
if (-e 'test.pdf') {
pass('testing pdf file created');
}
else {
fail('testing pdf file created');
}
ok($pdf_creator->Add(""), "testing Add() works");
ok($pdf_creator->Bookmark({}), "testing Bookmark() works");
ok($pdf_creator->Compress(1), "testing Compress() works");
is($pdf_creator->Font("H"), "Ft1", "testing Font() works");
is($pdf_creator->FontSize(), '12', "testing FontSize() is set to 12 by default");
my @result = $pdf_creator->FontSize(14);
is($result[0], '14', "testing FontSize() can be set to a different value");
$pdf_creator->FontSize(); # Reset font size before testing text width etc below
ok($pdf_creator->Page(), "testing Page() works");
is($pdf_creator->StrWidth("test", "H", 12), '19.344', "testing StrWidth() returns correct point width");
@result = $pdf_creator->Text(10, 10, "test");
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");
ok($pdf_creator->End(), "testing End() works");
unlink 'test.pdf';