implement standard font tests for Imager::Font::W32
[imager.git] / 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;