+my $y = 50;
+foreach my $font ( @$font_types ) {
+ ok( $pdf_creator->Font( $font->{type} ), 'Font ' . $font->{type} );
+ ok( $pdf_creator->Text(10, $y, "\x{10C}evap\x{10D}i\x{107} " . $font->{name} . ' - ' . $font->{type} ), 'Text ' . $font->{name});
+ $y += $pdf_creator->FontSize() * 1.2;
+}
+
+SKIP: {
+ skip "Skipping because without proper fonts these two tests fail",
+ 2 if ! $ENV{KOHA_CONF};
+
+ my ($fh, $filename) = tempfile();
+ open( $fh, '>', $filename );
+ select $fh;
+
+ ok($pdf_creator->End(), "testing End() works");
+
+ close($fh);
+ ok( -s $filename , "test file $filename created OK" );
+ unlink $filename unless $ENV{KEEP_PDF};
+}