X-Git-Url: https://git.mdrn.pl/librarian.git/blobdiff_plain/2ada86c7bb585d419b95c95ce42d5b7a9fa45475..fefdce4e24f9e397df5538fe6e7f54b5ece4d841:/librarian/font-optimizer/ext/Font-TTF/t/ttfcopy.t diff --git a/librarian/font-optimizer/ext/Font-TTF/t/ttfcopy.t b/librarian/font-optimizer/ext/Font-TTF/t/ttfcopy.t deleted file mode 100644 index c8969b3..0000000 --- a/librarian/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); -