The great Class::MOP::Instance refactoring

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

diff --git a/t/014_attribute_introspection.t b/t/014_attribute_introspection.t
index 2fb3acb..5084f79 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 => 38;
+use Test::More tests => 43;
 use Test::Exception;
 
 BEGIN {
@@ -11,12 +11,20 @@ BEGIN {
 }
 
 {
+    my $attr = Class::MOP::Attribute->new('$test');
+    is($attr->meta, Class::MOP::Attribute->meta, '... instance and class both lead to the same meta');
+}
+
+{
     my $meta = Class::MOP::Attribute->meta();
     isa_ok($meta, 'Class::MOP::Class');
     
     my @methods = qw(
         meta
         new clone
+        
+        initialize_instance_slot
+        
         name
         has_accessor  accessor
         has_writer    writer
@@ -36,6 +44,10 @@ BEGIN {
         process_accessors
         install_accessors
         remove_accessors
+
+               slot_name
+               allocate_slots
+               deallocate_slots
         );
         
     is_deeply(
@@ -67,4 +79,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
+}