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 |
- |
|
|