|
Lines 6-14
Link Here
|
| 6 |
use strict; |
6 |
use strict; |
| 7 |
use warnings; |
7 |
use warnings; |
| 8 |
|
8 |
|
| 9 |
use Test::More tests => 1; |
9 |
use Test::More tests => 15; |
| 10 |
|
10 |
|
| 11 |
BEGIN { |
11 |
BEGIN { |
| 12 |
use_ok('C4::Creators'); |
12 |
use_ok('C4::Creators'); |
|
|
13 |
use_ok('C4::Creators::PDF'); |
| 13 |
} |
14 |
} |
| 14 |
|
15 |
|
| 15 |
- |
16 |
my $pdf_creator = C4::Creators::PDF->new('test.pdf' => '', InitVars => 0); |
|
|
17 |
ok($pdf_creator, "testing new() works"); |
| 18 |
if (-e 'test.pdf') { |
| 19 |
pass('testing pdf file created'); |
| 20 |
} |
| 21 |
else { |
| 22 |
fail('testing pdf file created'); |
| 23 |
} |
| 24 |
|
| 25 |
ok($pdf_creator->Add(""), "testing Add() works"); |
| 26 |
ok($pdf_creator->Bookmark({}), "testing Bookmark() works"); |
| 27 |
ok($pdf_creator->Compress(1), "testing Compress() works"); |
| 28 |
|
| 29 |
is($pdf_creator->Font("H"), "Ft1", "testing Font() works"); |
| 30 |
is($pdf_creator->FontSize(), '12', "testing FontSize() is set to 12 by default"); |
| 31 |
my @result = $pdf_creator->FontSize(14); |
| 32 |
is($result[0], '14', "testing FontSize() can be set to a different value"); |
| 33 |
$pdf_creator->FontSize(); # Reset font size before testing text width etc below |
| 34 |
|
| 35 |
ok($pdf_creator->Page(), "testing Page() works"); |
| 36 |
|
| 37 |
is($pdf_creator->StrWidth("test", "H", 12), '19.344', "testing StrWidth() returns correct point width"); |
| 38 |
|
| 39 |
@result = $pdf_creator->Text(10, 10, "test"); |
| 40 |
is($result[0], '10', "testing Text() writes from a given x-value"); |
| 41 |
is($result[1], '29.344', "testing Text() writes to the correct x-value"); |
| 42 |
|
| 43 |
ok($pdf_creator->End(), "testing End() works"); |
| 44 |
|
| 45 |
unlink 'test.pdf'; |