View | Details | Raw Unified | Return to bug 5327
Collapse All | Expand All

(-)a/t/Creators.t (-2 / +32 lines)
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';

Return to bug 5327