attribute trait validation now resolves aliases correctly

rsrchboy · Jul 12, 2015 · ed8c2bf · ed8c2bf
1 parent ea47022
commit ed8c2bf
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/Test/Moose/More.pm b/lib/Test/Moose/More.pm
@@ -45,7 +45,7 @@ use Test::More;
 use Test::Moose 'with_immutable';
 use Scalar::Util 'blessed';
 use Syntax::Keyword::Junction 'any';
-use Moose::Util 'does_role', 'find_meta';
+use Moose::Util 'resolve_metatrait_alias', 'does_role', 'find_meta';
 use Moose::Util::TypeConstraints;
 use Data::OptList;
 
@@ -700,6 +700,9 @@ sub _validate_attribute {
         sort keys %opts
         ;
 
+    $thing_opts{does} = [ map { resolve_metatrait_alias(Attribute => $_) } @{$thing_opts{does}} ]
+        if $thing_opts{does};
+
     ### %thing_opts
     validate_class $att => %thing_opts
         if keys %thing_opts;