X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_self_introspection.t;h=cbd1afaca295156a3f1ba41d2b6f1baa68434986;hb=2243a22b2f3dd10fe1d860722e83526fa3c998b3;hp=caf532a0bf33ef12908dbd57697be990b48e5351;hpb=857f87a765627171a17f4bc588bcdf9db4da9f09;p=gitmo%2FClass-MOP.git

diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t
index caf532a..cbd1afa 100644
--- a/t/010_self_introspection.t
+++ b/t/010_self_introspection.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 152;
+use Test::More tests => 153;
 use Test::Exception;
 
 BEGIN {
@@ -166,14 +166,19 @@ is(${$meta->get_package_variable('$VERSION')},
 
 is_deeply(
     [ $meta->superclasses ], 
-    [], 
-    '... Class::MOP::Class->superclasses == []');
+    [ qw/Class::MOP::Module/ ], 
+    '... Class::MOP::Class->superclasses == [ Class::MOP::Module ]');
     
 is_deeply(
     [ $meta->class_precedence_list ], 
-    [ 'Class::MOP::Class' ], 
-    '... Class::MOP::Class->class_precedence_list == []');
+    [ qw/
+        Class::MOP::Class
+        Class::MOP::Module
+        Class::MOP::Package                
+    / ], 
+    '... Class::MOP::Class->class_precedence_list == [ Class::MOP::Class Class::MOP::Module Class::MOP::Package ]');
 
 is($meta->attribute_metaclass, 'Class::MOP::Attribute', '... got the right value for attribute_metaclass');
 is($meta->method_metaclass, 'Class::MOP::Method', '... got the right value for method_metaclass');
+is($meta->instance_metaclass, 'Class::MOP::Instance', '... got the right value for instance_metaclass');