### ----------------------------------------------------
### -- PDF::ISO_32000
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/resources.t
### ----------------------------------------------------
use Test;
plan 10;
use PDF::ISO_32000;

my %table = PDF::ISO_32000.table: "Table_317-Entries_in_the_document_information_dictionary";
is %table<caption>, "Table 317 – Entries in the document information dictionary", "table caption";
is-deeply %table<head>, $["Key", "Type", "Value"], "table head";
is +%table<rows>, 9, "row count";
is +%table<rows>[0], 3, "column count";
is-deeply %table<rows>[0], $["Title", "text string", "(Optional; PDF 1.1) The document’s title."], "first row";

my @index = PDF::ISO_32000.table-index;
is @index[317], 'Table_317-Entries_in_the_document_information_dictionary', '.table-index()';

my $stream-ops = PDF::ISO_32000.appendix<A.1>;
is $stream-ops, 'misc/Table_A1-PDF_content_stream_operators', "Appendix lookup";
is PDF::ISO_32000.table($stream-ops)<caption>, "Table A.1 – PDF content stream operators", "Appendix load";

%table = PDF::ISO_32000.[28];
is %table<caption>, "Table 28 – Entries in the catalog dictionary", "table -AT-POS lookup";

%table = PDF::ISO_32000<Table_28-Entries_in_the_catalog_dictionary>;
is %table<caption>, "Table 28 – Entries in the catalog dictionary", "table -AT-POS lookup";


