### ----------------------------------------------------
### -- ClassX::StrictConstructor
### -- Licenses: MIT
### -- Authors: 
### -- File: t/02-roles.rakutest
### ----------------------------------------------------
use Test;
use ClassX::StrictConstructor;

plan 2;

role Bar {
    has $.a;
    has %.b;
}
class Foo does Bar does ClassX::StrictConstructor { }

lives-ok {
    Foo.new(a => 1, b => {bb => 2, bbb => 3});
}, 'Can create an instace of a Class that does StrictClass';

dies-ok {
    Foo.new(a => 1, b => 2, c => 3);
}, 'Can not create an instance of a class that does StrictClass with to many parameters';

# vim: expandtab shiftwidth=4


