apply-role-to-object.t

#!/usr/bin/perl

use lib 'lib';

use Test::More;
use Test::Fatal;

{
    package R1;
    use Role::Tiny;

    sub foo {}
}

{
    package R2;
    use Role::Tiny;

    sub foo {}
}

{
    package X;
    sub new {
        bless {} => shift
    }
}

$INC{"R1.pm"} = __FILE__;
$INC{"R2.pm"} = __FILE__;

TODO: {
    local $TODO = 'roles are applying sequentially by now';
    ok(exception { Role::Tiny->apply_roles_to_object(X->new, "R1", "R2") }, 'apply conflicting roles to object');
}

done_testing;