### ----------------------------------------------------
### -- PDF::ISO_32000
### -- Licenses: Artistic-2.0
### -- Authors: David Warring
### -- File: t/interface-roles.t
### ----------------------------------------------------
use v6;
use Test;

use ISO_32000::Table_317-Entries_in_the_document_information_dictionary;
plan 2;

my role Info-sans-Trapped {
    has $.info handles <Title Author Subject Keywords Creator Producer CreationDate ModDate>;
}

my role Info-all does Info-sans-Trapped {
    method Trapped {'Unknown'}
}

dies-ok { (%() does Info-sans-Trapped).^mixin: ISO_32000::Table_317-Entries_in_the_document_information_dictionary}, "interface role missing method - dies";
lives-ok { (%() does Info-all).^mixin: ISO_32000::Table_317-Entries_in_the_document_information_dictionary }, "interface role declared method - lives";



