29-moose-role-runtime-application.t

use 5.020;
use Test::Most;

package Class {
    use Moose;
};

package Role {
    use Moose::Role;
    sub some_other_method { ... }
};

my $object = new_ok Class => [];

ok( !$object->can('some_method'), 'instance of "Class" cannot handle "some_method"' );

Role->meta->apply( $object, -alias => { some_other_method => 'some_method' } );

ok( $object->can('some_method'), 'instance of "Class" can handle "some_method"' );

done_testing;