#! perl

use Test::More tests => 3;

use strict;

BEGIN {
    use_ok("PostScript::PrinterFontMetrics");
}

chdir "t";

my $fontname = "n021024l.pfm";

# Load the metrics info.
my $metrics = eval { new PostScript::PrinterFontMetrics($fontname) };
ok($metrics && !$@, "Metrics: $fontname");

is($metrics->kstringwidth("This costs \244 10. "), 6530, "Width");