use Test::Requires in tests

[gitmo/Moose.git] / t / 020_attributes / 024_attribute_traits_parameterized.t

diff --git a/t/020_attributes/024_attribute_traits_parameterized.t b/t/020_attributes/024_attribute_traits_parameterized.t
index 2561b34..dc434cf 100644 (file)
--- a/t/020_attributes/024_attribute_traits_parameterized.t
+++ b/t/020_attributes/024_attribute_traits_parameterized.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More;
 
 {
     package My::Attribute::Trait;
@@ -20,7 +20,7 @@ use Test::More tests => 4;
     has foo => (
         traits => [
             'My::Attribute::Trait' => {
-                alias => {
+                -alias => {
                     reversed_name => 'eman',
                 },
             },
@@ -36,9 +36,10 @@ use Test::More tests => 4;
     has foo => (
         traits => [
             'My::Attribute::Trait' => {
-                alias => {
+                -alias => {
                     reversed_name => 'reversed',
                 },
+                -excludes => 'reversed_name',
             },
         ],
         is => 'bare',
@@ -52,4 +53,6 @@ ok(!$attr->can('reversed'), "the method was not installed under the other class'
 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");
 
+done_testing;