X-Git-Url: https://git.mdrn.pl/librarian.git/blobdiff_plain/e316fc14bef26f958937aec0e6854b61f71a3b34..09dded3d8606e8e4406fffcf477ceb4a1c97fee2:/font-optimizer/ext/Font-TTF/t/ttfcopy.t diff --git a/font-optimizer/ext/Font-TTF/t/ttfcopy.t b/font-optimizer/ext/Font-TTF/t/ttfcopy.t deleted file mode 100644 index c8969b3..0000000 --- a/font-optimizer/ext/Font-TTF/t/ttfcopy.t +++ /dev/null @@ -1,15 +0,0 @@ -#!/usr/bin/perl - -use Test::Simple tests => 2; -use File::Compare; -use Font::TTF::Font; - -$f = Font::TTF::Font->open("t/testfont.ttf"); -ok($f); -$f->tables_do(sub { $_[0]->read; }); -$f->{'loca'}->glyphs_do(sub {$_[0]->read_dat; }); -$f->out("t/temp.ttf"); -$res = compare("t/temp.ttf", "t/testfont.ttf"); -ok(!$res); -unlink "t/temp.ttf" unless ($res); -