bar
Stevan Little [Wed, 10 May 2006 15:15:06 +0000 (15:15 +0000)]
t/000_load.t

index a636b7e..f70fd69 100644 (file)
@@ -3,13 +3,14 @@
 use strict;
 use warnings;
 
-use Test::More tests => 7;
+use Test::More tests => 8;
 
 BEGIN {
     use_ok('Class::MOP');
     use_ok('Class::MOP::Class');
     use_ok('Class::MOP::Attribute');
     use_ok('Class::MOP::Method');            
+    use_ok('Class::MOP::Instance');            
 }
 
 # make sure we are tracking metaclasses correctly
@@ -17,7 +18,8 @@ BEGIN {
 my %METAS = (
     'Class::MOP::Attribute' => Class::MOP::Attribute->meta, 
     'Class::MOP::Class'     => Class::MOP::Class->meta, 
-    'Class::MOP::Method'    => Class::MOP::Method->meta  
+    'Class::MOP::Method'    => Class::MOP::Method->meta,  
+    'Class::MOP::Instance'  => Class::MOP::Instance->meta      
 );
 
 is_deeply(
@@ -27,10 +29,10 @@ is_deeply(
 
 is_deeply(
     [ sort { $a->name cmp $b->name } Class::MOP::Class->get_all_metaclass_instances ],
-    [ Class::MOP::Attribute->meta, Class::MOP::Class->meta, Class::MOP::Method->meta ],
+    [ Class::MOP::Attribute->meta, Class::MOP::Class->meta, Class::MOP::Instance->meta, Class::MOP::Method->meta ],
     '... got all the metaclass instances');
 
 is_deeply(
     [ sort Class::MOP::Class->get_all_metaclass_names ],
-    [ 'Class::MOP::Attribute', 'Class::MOP::Class', 'Class::MOP::Method' ],
+    [ 'Class::MOP::Attribute', 'Class::MOP::Class', 'Class::MOP::Instance', 'Class::MOP::Method' ],
     '... got all the metaclass names');
\ No newline at end of file