X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03-introspection.t;h=6818ab0937d6ea0b24556c0b2ee544fb962c1bcd;hb=935486efddf7e6356b6304fb13b53caefbe1097f;hp=6099952a5287d059047fbb1288de5e0d8e2deab5;hpb=a5e3ddfd4ab2cbdeea6f3c9769b7a153030e7cc7;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/t/03-introspection.t b/t/03-introspection.t index 6099952..6818ab0 100644 --- a/t/03-introspection.t +++ b/t/03-introspection.t @@ -3,7 +3,7 @@ use warnings; use lib 't/lib'; -use Test::More 'no_plan'; +use Test::More tests => 14; # We just want the class definitions in here. use SharedTests; @@ -16,8 +16,7 @@ ok( HasClassAttribute->meta()->get_class_attribute('ObjectCount') ->meta()->does_role('MooseX::ClassAttribute::Role::Meta::Attribute'), 'get_class_attribute_list returns an object which does the MooseX::ClassAttribute::Role::Meta::Attribute role' ); -my @ca = qw( Delegatee LazyAttribute ManyNames ObjectCount ReadOnlyAttribute WeakAttribute ); -push @ca, 'Mapping' if SharedTests->HasMXAH(); +my @ca = qw( Delegatee LazyAttribute ManyNames Mapping ObjectCount ReadOnlyAttribute WeakAttribute Built LazyBuilt ); is_deeply( [ sort HasClassAttribute->meta()->get_class_attribute_list() ], [ sort @ca ],