W32/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(face => "Times New Roman Bold",
  10                              type => "w32");
  11
  12 SKIP:
  13 {
  14   $font
  15     or skip "Cannot load font", std_font_test_count();
  16   std_font_tests
  17     ({
  18       font => $font,
  19       #has_chars => [ 1, 1, 1 ],
  20       #files => 1,
  21       #glyph_name_font => $name_font,
  22       #glyph_names => [ "A", "uni2010", "A" ],
  23      });
  24 }
  25 Imager->close_log;