Resolve 4 'failing' tests

[gitmo/Mouse.git] / t / 030_roles / failing / 033_role_exclusion_and_alias_bug.t

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 (file)
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');
-}
-
-