### ----------------------------------------------------
### -- PDF::Font::Loader
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/type1-stream.t
### ----------------------------------------------------
use v6;
use PDF::Font::Loader;
use Test;

use PDF::Font::Loader::Type1::Stream;

my Blob $buf = "t/fonts/TimesNewRomPS.pfb".IO.open(:r, :bin).slurp;

my PDF::Font::Loader::Type1::Stream $stream;
lives-ok { $stream .= new: :$buf}, 'PFB unpacking';
is $stream.length[0], 5458, 'stream.length[0]';
is $stream.length[1], 35660, 'stream.length[1]';
is $stream.length[2], 532, 'stream.length[2]';
is $stream.decoded.bytes, $stream.length.sum, 'stream bytes';

my PDF::Font::Loader::Type1::Stream $stream2;
$buf = "t/fonts/TimesNewRomPS.pfa".IO.open(:r, :bin).slurp;
lives-ok { $stream2 .= new: :$buf}, 'PFA unpacking';
is $stream2.length[0], 5458, 'stream.length[0]';
is $stream2.length[1], 35660, 'stream.length[1]';
is $stream2.length[2], 532, 'stream.length[2]';
is $stream2.decoded.bytes, $stream.length.sum, 'stream bytes';

done-testing;



