Help language development. Donate to The Perl Foundation

PDF::Document cpan:TBROWDER last updated on 2021-02-12

dev/check-factory.raku
#!/usr/bin/env raku

use lib <./lib ../lib>;
use PDF::Document;
use PDF::Lite;
use Font::AFM;

say "Tests the font factory";

# test with a pdf doc
my $pdf = PDF::Lite.new;
# quickie font factory checks

my $ff = FontFactory.new: :$pdf;
my $f = $ff.get-font: 't12d1';
$f = $ff.get-font: 't12';