X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F033_role_exclusion_and_alias_bug.t;fp=t%2F030_roles%2Ffailing%2F033_role_exclusion_and_alias_bug.t;h=0000000000000000000000000000000000000000;hb=6fea087bcf1c984bd8afc7c2d5b4a078569e3b5c;hp=673bddd27f2d9ba4c48363160accaa9ad67f9c1c;hpb=71e7b544ac5b18ce7b09b9a95723b1a4e28b4321;p=gitmo%2FMouse.git

diff --git a/t/030_roles/failing/033_role_exclusion_and_alias_bug.t b/t/030_roles/failing/033_role_exclusion_and_alias_bug.t
deleted file mode 100644
index 673bddd..0000000
--- a/t/030_roles/failing/033_role_exclusion_and_alias_bug.t
+++ /dev/null
@@ -1,69 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More tests => 17;
-use Test::Mouse;
-
-{
-    package My::Role;
-    use Mouse::Role;
-
-    sub foo { "FOO" }
-    sub bar { "BAR" }
-}
-
-{
-    package My::Class;
-    use Mouse;
-
-    with 'My::Role' => {
-        -alias    => { foo => 'baz', bar => 'gorch' },
-        -excludes => ['foo', 'bar'],
-    };
-}
-
-{
-    my $x = My::Class->new;
-    isa_ok($x, 'My::Class');
-    does_ok($x, 'My::Role');
-
-    can_ok($x, $_) for qw[baz gorch];
-
-    ok(!$x->can($_), '... cant call method ' . $_) for qw[foo bar];
-
-    is($x->baz, 'FOO', '... got the right value');
-    is($x->gorch, 'BAR', '... got the right value');
-}
-
-{
-    package My::Role::Again;
-    use Mouse::Role;
-
-    with 'My::Role' => {
-        -alias    => { foo => 'baz', bar => 'gorch' },
-        -excludes => ['foo', 'bar'],
-    };
-
-    package My::Class::Again;
-    use Mouse;
-
-    with 'My::Role::Again';
-}
-
-{
-    my $x = My::Class::Again->new;
-    isa_ok($x, 'My::Class::Again');
-    does_ok($x, 'My::Role::Again');
-    does_ok($x, 'My::Role');
-
-    can_ok($x, $_) for qw[baz gorch];
-
-    ok(!$x->can($_), '... cant call method ' . $_) for qw[foo bar];
-
-    is($x->baz, 'FOO', '... got the right value');
-    is($x->gorch, 'BAR', '... got the right value');
-}
-
-