+++ /dev/null
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 12;
-use Test::Exception;
-
-#use Mouse::Meta::Role::Application::RoleSummation;
-use Mouse::Meta::Role::Composite;
-
-{
- package Role::Foo;
- use Mouse::Role;
-
- package Role::Bar;
- use Mouse::Role;
-
- package Role::ExcludesFoo;
- use Mouse::Role;
- excludes 'Role::Foo';
-
- package Role::DoesExcludesFoo;
- use Mouse::Role;
- with 'Role::ExcludesFoo';
-
- package Role::DoesFoo;
- use Mouse::Role;
- with 'Role::Foo';
-}
-
-ok(Role::ExcludesFoo->meta->excludes_role('Role::Foo'), '... got the right exclusions');
-ok(Role::DoesExcludesFoo->meta->excludes_role('Role::Foo'), '... got the right exclusions');
-
-# test simple exclusion
-dies_ok {
- Mouse::Meta::Role::Application::RoleSummation->new->apply(
- Mouse::Meta::Role::Composite->new(
- roles => [
- Role::Foo->meta,
- Role::ExcludesFoo->meta,
- ]
- )
- );
-} '... this fails as expected';
-
-# test no conflicts
-{
- my $c = Mouse::Meta::Role::Composite->new(
- roles => [
- Role::Foo->meta,
- Role::Bar->meta,
- ]
- );
- isa_ok($c, 'Mouse::Meta::Role::Composite');
-
- is($c->name, 'Role::Foo|Role::Bar', '... got the composite role name');
-
- lives_ok {
- Mouse::Meta::Role::Application::RoleSummation->new->apply($c);
- } '... this lives as expected';
-}
-
-# test no conflicts w/exclusion
-{
- my $c = Mouse::Meta::Role::Composite->new(
- roles => [
- Role::Bar->meta,
- Role::ExcludesFoo->meta,
- ]
- );
- isa_ok($c, 'Mouse::Meta::Role::Composite');
-
- is($c->name, 'Role::Bar|Role::ExcludesFoo', '... got the composite role name');
-
- lives_ok {
- Mouse::Meta::Role::Application::RoleSummation->new->apply($c);
- } '... this lives as expected';
-
- is_deeply([$c->get_excluded_roles_list], ['Role::Foo'], '... has excluded roles');
-}
-
-
-# test conflict with an "inherited" exclusion
-dies_ok {
- Mouse::Meta::Role::Application::RoleSummation->new->apply(
- Mouse::Meta::Role::Composite->new(
- roles => [
- Role::Foo->meta,
- Role::DoesExcludesFoo->meta,
- ]
- )
- );
-
-} '... this fails as expected';
-
-# test conflict with an "inherited" exclusion of an "inherited" role
-dies_ok {
- Mouse::Meta::Role::Application::RoleSummation->new->apply(
- Mouse::Meta::Role::Composite->new(
- roles => [
- Role::DoesFoo->meta,
- Role::DoesExcludesFoo->meta,
- ]
- )
- );
-} '... this fails as expected';
-
-