FT2/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/dodge.ttf",
  10                              type => "ft2");
  11 my $name_font =
  12   Imager::Font->new(file => "fontfiles/ImUgly.ttf",
  13                     type => "ft2");
  14
  15 SKIP:
  16 {
  17   $font
  18     or skip "Cannot load font", std_font_test_count();
  19   std_font_tests
  20     ({
  21       font => $font,
  22       has_chars => [ 1, 1, 1 ],
  23       files => 1,
  24       glyph_name_font => $name_font,
  25       glyph_names => [ "A", "uni2010", "A" ],
  26      });
  27 }
  28
  29 Imager->close_log;