X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F014_attribute_introspection.t;h=7fe3b0ebcbb3aca944d0b73a6f66e64bded47171;hb=81c8a65bf02bb1b0e240d8f5b626b0ceabf9a37c;hp=30af573896b730bbb192bff79a2f514be9fb6faa;hpb=fdbdb5e6eb0e4f6c54629f0bde376aba5e69df14;p=gitmo%2FClass-MOP.git

diff --git a/t/014_attribute_introspection.t b/t/014_attribute_introspection.t
index 30af573..7fe3b0e 100644
--- a/t/014_attribute_introspection.t
+++ b/t/014_attribute_introspection.t
@@ -62,9 +62,17 @@ BEGIN {
         ok($meta->has_method($method_name), '... Class::MOP::Attribute->has_method(' . $method_name . ')');
     }
     
-    my @attributes = qw(
-        name accessor reader writer predicate clearer
-        init_arg default associated_class associated_methods
+    my @attributes = (
+        '$!name',
+        '$!accessor',
+        '$!reader',
+        '$!writer',
+        '$!predicate',
+        '$!clearer',
+        '$!init_arg',
+        '$!default',
+        '$!associated_class',
+        '@!associated_methods',
         );
 
     is_deeply(