simplification of code, fixes #45260 and makes behavior same as Moose attributes

[gitmo/MooseX-ClassAttribute.git] / t / 10-multiple-role-composition.t

# Reported as https://rt.cpan.org/Public/Bug/Display.html?id=59610

{
    package Role1;
    use Moose::Role;

    # I do nothing!
}
{
    package Role2;

    use Moose::Role;
    use MooseX::ClassAttribute;

    # I also do nothing, except use MX:CA
}

{
    package Foo;
    use strict; use warnings;
    use Moose;
    with 'Role1';
    with 'Role2';
}

{
    package Bar;
    use strict; use warnings;
    use Moose;
    with 'Role2';
    with 'Role1';
}

{
    package Baz;
    use strict; use warnings;
    use Moose;
    with 'Role1', 'Role2';
}

{
    package Quux;
    use strict; use warnings;
    use Moose;
    with 'Role2', 'Role1';
}

# in this example, all roles actually disappear if the second one uses MX:CA!

package main;

use Test::More tests => 5;
use Test::NoWarnings;
use Test::Deep;
local $TODO = 'Class attributes are lost during role composition';
foreach my $class (qw(Foo Bar Baz Quux))
{
    cmp_deeply(
        [ map { $_->name} $class->meta->calculate_all_roles ],
        superbagof(qw(Role1 Role2)),
        'Both roles are consumed by class ' . $class,
    );
}