X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F03-introspection.t;h=dee90d19959198b78d52558eeae2ba6514b12e6e;hb=3e505970e29109d4eef1f58f6e0275dbe10e6c64;hp=8c340d3c721a688076c691dff8d47ec461c3d62a;hpb=a3ced8835a2c0a744e7707022ede02ea4c521871;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/t/03-introspection.t b/t/03-introspection.t
index 8c340d3..dee90d1 100644
--- a/t/03-introspection.t
+++ b/t/03-introspection.t
@@ -3,7 +3,7 @@ use warnings;
 
 use lib 't/lib';
 
-use Test::More tests => 14;
+use Test::More;
 
 # We just want the class definitions in here.
 use SharedTests;
@@ -15,8 +15,8 @@ ok(
 
 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'
+        ->does_role('MooseX::ClassAttribute::Trait::Attribute'),
+    'get_class_attribute_list returns an object which does the MooseX::ClassAttribute::Trait::Attribute role'
 );
 
 my @ca = qw( Delegatee
@@ -29,6 +29,7 @@ my @ca = qw( Delegatee
     Built
     LazyBuilt
     Triggerish
+    TriggerRecord
 );
 
 is_deeply(
@@ -103,3 +104,5 @@ ok(
     !Child->meta()->has_class_attribute_value('YetAnotherAttribute'),
     'Child does not have a class attribute value for YetAnotherAttribute'
 );
+
+done_testing();