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