|
Lines 68-79
foreach my $font ( @$font_types ) {
Link Here
|
| 68 |
$y += $pdf_creator->FontSize() * 1.2; |
68 |
$y += $pdf_creator->FontSize() * 1.2; |
| 69 |
} |
69 |
} |
| 70 |
|
70 |
|
| 71 |
my ($fh, $filename) = tempfile(); |
71 |
SKIP: { |
| 72 |
open( $fh, '>', $filename ); |
72 |
skip "Skipping because without proper fonts these two tests fail", |
| 73 |
select $fh; |
73 |
2 if ! $ENV{KOHA_CONF}; |
| 74 |
|
74 |
|
| 75 |
ok($pdf_creator->End(), "testing End() works"); |
75 |
my ($fh, $filename) = tempfile(); |
|
|
76 |
open( $fh, '>', $filename ); |
| 77 |
select $fh; |
| 76 |
|
78 |
|
| 77 |
close($fh); |
79 |
ok($pdf_creator->End(), "testing End() works"); |
| 78 |
ok( -s $filename , "test file $filename created OK" ); |
80 |
|
| 79 |
unlink $filename unless $ENV{KEEP_PDF}; |
81 |
close($fh); |
|
|
82 |
ok( -s $filename , "test file $filename created OK" ); |
| 83 |
unlink $filename unless $ENV{KEEP_PDF}; |
| 84 |
} |
| 80 |
- |
|
|