root/t/oo/class_inclusion_with_inherited_class.t

use v6;

use Test;

=begin pod

role A { method t ( *@a ) { @a }}; class B does A; class C does A { has B $.b; method BUILD { $.b = B.new; $.b.t( 'haha','hehe','xixi');}} C.new
*** No such method: "&t"
    at <interactive> line 1, column 108-136
    <interactive> line 1, column 140-145
    <interactive> line 1, column 140-145

=end pod

plan 1;

role A
{
        method t ( *@a ) {
                @a.sum;
        }
}

class B does A
{}

class C does A
{
        has $.s;
        has B $.b;
        submethod BUILD {
                $.b = B.new;
                $.s = $.b.t(1, 2, 3);
        }
}

is try { C.new.s }, 6, "Test class include another class which inherited from same role";