Introduce src dir.
[librarian.git] / 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 (file)
index c8969b3..0000000
+++ /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);
-