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