t/350-font/040-ttstd.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;
   6
   7 $Imager::formats{tt}
   8         or plan skip_all => "No tt available";
   9
  10 Imager->open_log(log => "testout/t37std.log");
  11
  12 plan tests => std_font_test_count();
  13
  14 my $font = Imager::Font->new(file => "fontfiles/dodge.ttf",
  15                              type => "tt");
  16 my $name_font =
  17   Imager::Font->new(file => "fontfiles/ImUgly.ttf",
  18                     type => "tt");
  19
  20 SKIP:
  21 {
  22   $font
  23     or skip "Cannot load font", std_font_test_count();
  24   std_font_tests
  25     ({
  26       font => $font,
  27       has_chars => [ 1, 1, 1 ],
  28       glyph_name_font => $name_font,
  29       glyph_names => [ qw(A uni2010 A) ],
  30      });
  31 }
  32
  33 Imager->close_log;