Skip to content
Browse files

Additional attribute tests

  • Loading branch information...
1 parent 0b74b53 commit 7c2351522b2103ee5de23be6c32fc8d6454370cc @RsrchBoy committed Aug 18, 2011
Showing with 4 additions and 0 deletions.
  1. +4 −0 t/funcs.pm
View
4 t/funcs.pm
@@ -1,4 +1,6 @@
+use constant Shortcuts => 'MooseX::AttributeShortcuts::Trait::Attribute';
+
sub test_class {
my $classname = shift @_;
my $writer_prefix = shift @_ || '_set_';
@@ -27,6 +29,8 @@ sub test_class_sanity_checks {
'MooseX::AttributeShortcuts::Trait::Attribute',
);
has_attribute_ok($classname, $_) for @attributes;
+ ok($classname->meta->get_attribute($_)->does(Shortcuts), "does role: $_")
+ for @attributes;
return;
}

0 comments on commit 7c23515

Please sign in to comment.
Something went wrong with that request. Please try again.