-
Notifications
You must be signed in to change notification settings - Fork 4
/
t31font.t
42 lines (33 loc) · 1.14 KB
/
t31font.t
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
#!perl -w
use strict;
use Imager;
use Test::More tests => 10;
unshift @INC, "t";
ok(Imager::Font->register(type => "test",
class=>"GoodTestFont",
files => "\\.ppm\$"),
"register a test font");
ok(Imager::Font->register(type => "bad",
class => "BadTestFont",
files => "\\.ppm\$"),
"register a bad test font");
ok(!Imager::Font->register(), "no register parameters");
like(Imager->errstr, qr/No type parameter/, "check message");
ok(!Imager::Font->register(type => "bad1"), "no class parameter");
like(Imager->errstr, qr/No class parameter/, "check message");
ok(!Imager::Font->register(type => "bad2", class => "BadFont", files => "**"),
"bad files parameter");
is(Imager->errstr, "files isn't a valid regexp", "check message");
Imager::Font->priorities("bad", "test");
# RT #62855
# previously we'd select the first file matched font driver, even if
# it wasn't available, then crash loading it.
SKIP:
{
my $good;
ok(eval {
$good = Imager::Font->new(file => "testimg/penguin-base.ppm");
}, "load good font avoiding RT 62855")
or skip("Failed to load", 1);
ok($good->isa("GoodTestFont"), "and it's the right type");
}