T1/t/t90std.t

   1 #!perl -w
   2 use strict;
   3 use Imager::Test qw(std_font_tests std_font_test_count);
   4 use Imager::Font;
   5 use Test::More tests => std_font_test_count();
   6
   7 Imager->open_log(log => "testout/t90std.log");
   8
   9 my $font = Imager::Font->new(file => "fontfiles/dcr10.pfb",
  10                              type => "t1");
  11
  12 SKIP:
  13 {
  14   $font
  15     or skip "Cannot load font", std_font_test_count();
  16   std_font_tests({ font => $font,
  17                    has_chars => [ 1, '', 1 ]});
  18 }
  19
  20 Imager->close_log;