Resolve many 'failing' tests

[gitmo/Mouse.git] / t / 020_attributes / failing / 024_attribute_traits_parameterized.t

diff --git a/t/020_attributes/failing/024_attribute_traits_parameterized.t b/t/020_attributes/failing/024_attribute_traits_parameterized.t
deleted file mode 100644 (file)
index 57a3d05..0000000
--- a/t/020_attributes/failing/024_attribute_traits_parameterized.t
+++ /dev/null
@@ -1,57 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 5;
-
-{
-    package My::Attribute::Trait;
-    use Mouse::Role;
-
-    sub reversed_name {
-        my $self = shift;
-        scalar reverse $self->name;
-    }
-}
-
-{
-    package My::Class;
-    use Mouse;
-
-    has foo => (
-        traits => [
-            'My::Attribute::Trait' => {
-                -alias => {
-                    reversed_name => 'eman',
-                },
-            },
-        ],
-        is => 'bare',
-    );
-}
-
-{
-    package My::Other::Class;
-    use Mouse;
-
-    has foo => (
-        traits => [
-            'My::Attribute::Trait' => {
-                -alias => {
-                    reversed_name => 'reversed',
-                },
-                -excludes => 'reversed_name',
-            },
-        ],
-        is => 'bare',
-    );
-}
-
-my $attr = My::Class->meta->get_attribute('foo');
-is($attr->eman, 'oof', 'the aliased method is in the attribute');
-ok(!$attr->can('reversed'), "the method was not installed under the other class' alias");
-
-my $other_attr = My::Other::Class->meta->get_attribute('foo');
-is($other_attr->reversed, 'oof', 'the aliased method is in the attribute');
-ok(!$other_attr->can('enam'), "the method was not installed under the other class' alias");
-ok(!$other_attr->can('reversed_name'), "the method was not installed under the original name when that was excluded");
-