### ----------------------------------------------------
### -- StrictClass
### -- Licenses: Artistic-2.0
### -- Authors: Martin Barth
### -- File: t/04-isa.t
### ----------------------------------------------------
use v6.c;
use Test;
use StrictClass;

role A {
    has $.a;
}
class B does A does StrictClass {

}


lives-ok {
    my $b = B.new(a => 1);
    # diag $b.perl;
    ok $b.isa(B), 'B.new.isa(B)';

}, 'Can create an instace of a Class that does StrictClass';

dies-ok {
    B.new(:what(1));
}, 'Can not create an instance of a class that does StrictClass with to many parameters';

done-testing;


