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

diff --git a/t/014_attribute_introspection.t b/t/014_attribute_introspection.t
index a85e087..30af573 100644
--- a/t/014_attribute_introspection.t
+++ b/t/014_attribute_introspection.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 53;
+use Test::More tests => 49;
 use Test::Exception;
 
 BEGIN {
@@ -37,21 +37,16 @@ BEGIN {
         slots
         get_value
         set_value
+        has_value
+        clear_value
         
         associated_class
-        attach_to_class detach_from_class
+        attach_to_class detach_from_class 
         
-        generate_accessor_method
-        generate_reader_method
-        generate_writer_method
-        generate_predicate_method
-        generate_clearer_method
+        accessor_metaclass
         
-        generate_accessor_method_inline
-        generate_reader_method_inline
-        generate_writer_method_inline
-        generate_predicate_method_inline    
-        generate_clearer_method_inline    
+        associated_methods
+        associate_method
         
         process_accessors
         install_accessors
@@ -69,7 +64,7 @@ BEGIN {
     
     my @attributes = qw(
         name accessor reader writer predicate clearer
-        init_arg default associated_class
+        init_arg default associated_class associated_methods
         );
 
     is_deeply(