X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F020_attributes%2F024_attribute_traits_parameterized.t;h=dc434cf66531e68eae5a60e9bae85cb42d47972d;hb=ad3882b59692e4e4eab99f9b183c941e6f63d3bd;hp=86cc961173b16c0e980b1e2bc8e587990693eae1;hpb=386c056b4c3e1fc98fca3eca3c58b2dc15214237;p=gitmo%2FMoose.git diff --git a/t/020_attributes/024_attribute_traits_parameterized.t b/t/020_attributes/024_attribute_traits_parameterized.t index 86cc961..dc434cf 100644 --- 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 => 5; +use Test::More; { package My::Attribute::Trait; @@ -20,7 +20,7 @@ use Test::More tests => 5; has foo => ( traits => [ 'My::Attribute::Trait' => { - alias => { + -alias => { reversed_name => 'eman', }, }, @@ -36,10 +36,10 @@ use Test::More tests => 5; has foo => ( traits => [ 'My::Attribute::Trait' => { - alias => { + -alias => { reversed_name => 'reversed', }, - excludes => 'reversed_name', + -excludes => 'reversed_name', }, ], is => 'bare', @@ -55,3 +55,4 @@ 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;