Help language development. Donate to The Perl Foundation

FDF cpan:WARRINGD last updated on 2020-10-14

t/open.t
use v6;
use Test;
use FDF;

my $fdf = FDF.open( 't/fdf/samples/simple.fdf' );

is $fdf.version, 1.2, 'loaded version';
is $fdf.type, 'FDF', 'loaded type';

isa-ok $fdf, FDF , 'root FDF object';
isa-ok $fdf<Root><FDF>, Hash, '$fdf<Root><FDF>';
isa-ok $fdf.Root.FDF, Hash, '$fdf.Root.FDF';
does-ok $fdf.Root, (require ::('FDF::Catalog')), 'root does catalog';

is $fdf.Root.FDF.F, 'simple.pdf', '$fdf.FDF.F';

isa-ok $fdf<Root><FDF><Fields>, Array, '$fdf<Root><FDF><Fields>';
does-ok $fdf.Root.FDF.Fields[0], (require ::('FDF::Field')), 'field item does field';
is $fdf.Root.FDF.Fields[0].T, 'status', '$fdf.Root.FDF.Fields[0].T';

done-testing;