+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};