# This test is here basically to work around Test::Harness bug.

print "1..2\n";

require Font::Metrics::TimesRoman;

print "not " unless @Font::Metrics::TimesRoman::wx == 256;

print "ok 1\n";

sub width

{

    my($string, $wx) = @_;

    my $w = 0;

    for (unpack("C*", $string)) {

	$w += $wx->[$_];

    }

    $w;

}

print "not " unless

    abs(width("Perl", \@Font::Metrics::TimesRoman::wx) - 1.611) < 1.0e-6;

print "ok 2\n";