Mouse::Util::does_role() respects $thing->does() method

[gitmo/Mouse.git] / Moose-t-failing / 030_roles / 040_role_for_combination.t

#!/usr/bin/env perl
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;
use strict;
use warnings;
use Test::More;
$TODO = q{Mouse is not yet completed};

my $OPTS;
do {
    package My::Singleton::Role;
    use Mouse::Role;

    sub foo { 'My::Singleton::Role' }

    package My::Role::Metaclass;
    use Mouse;
    BEGIN { extends 'Mouse::Meta::Role' };

    sub _role_for_combination {
        my ($self, $opts) = @_;
        $OPTS = $opts;
        return My::Singleton::Role->meta;
    }

    package My::Special::Role;
    use Mouse::Role -metaclass => 'My::Role::Metaclass';

    sub foo { 'My::Special::Role' }

    package My::Usual::Role;
    use Mouse::Role;

    sub bar { 'My::Usual::Role' }

    package My::Class;
    use Mouse;

    with (
        'My::Special::Role' => { number => 1 },
        'My::Usual::Role' => { number => 2 },
    );
};

is(My::Class->foo, 'My::Singleton::Role', 'role_for_combination applied');
is(My::Class->bar, 'My::Usual::Role', 'collateral role');
is_deeply($OPTS, { number => 1 });

done_testing;