Docs, small fixes, find_method_by_name and the get_value/set_value abstraction for...

[gitmo/Class-MOP.git] / t / 014_attribute_introspection.t

diff --git a/t/014_attribute_introspection.t b/t/014_attribute_introspection.t
index 12f8c94..56467d6 100644 (file)
--- a/t/014_attribute_introspection.t
+++ b/t/014_attribute_introspection.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 39;
+use Test::More tests => 48;
 use Test::Exception;
 
 BEGIN {
@@ -22,13 +22,20 @@ BEGIN {
     my @methods = qw(
         meta
         new clone
+        
+        initialize_instance_slot
+        
         name
         has_accessor  accessor
         has_writer    writer
         has_reader    reader
         has_predicate predicate
         has_init_arg  init_arg
-        has_default   default
+        has_default   default    is_default_a_coderef
+        
+        slots
+        get_value
+        set_value
         
         associated_class
         attach_to_class detach_from_class
@@ -38,6 +45,11 @@ BEGIN {
         generate_writer_method
         generate_predicate_method
         
+        generate_accessor_method_inline
+        generate_reader_method_inline
+        generate_writer_method_inline
+        generate_predicate_method_inline    
+        
         process_accessors
         install_accessors
         remove_accessors
@@ -72,4 +84,4 @@ BEGIN {
     # but that is getting a little excessive so I  
     # wont worry about it for now. Maybe if I get 
     # bored I will do it.
-}
\ No newline at end of file
+}