Fix transform_abstracy + tests.
[librarian.git] / librarian / font-optimizer / ext / Font-TTF / t / ttfcopy.t
1 #!/usr/bin/perl
2
3 use Test::Simple tests => 2;
4 use File::Compare;
5 use Font::TTF::Font;
6
7 $f = Font::TTF::Font->open("t/testfont.ttf");
8 ok($f);
9 $f->tables_do(sub { $_[0]->read; });
10 $f->{'loca'}->glyphs_do(sub {$_[0]->read_dat; });
11 $f->out("t/temp.ttf");
12 $res = compare("t/temp.ttf", "t/testfont.ttf");
13 ok(!$res);
14 unlink "t/temp.ttf" unless ($res);
15