#!/usr/bin/perl

use Test::Simple tests => 4;

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);

# same test with WOFF input:

$f = Font::TTF::Font->open("t/testfont.woff");

ok($f);

$f->tables_do(sub { $_[0]->read; });

$f->{'loca'}->glyphs_do(sub {$_[0]->read_dat; });

$f->out("t/temp2.ttf");

$res = compare("t/temp2.ttf", "t/testfont.ttf");

ok(!$res);

unlink "t/temp2.ttf" unless ($res);