From: Stevan Little <stevan.little@iinteractive.com>
Date: Wed, 10 May 2006 15:15:06 +0000 (+0000)
Subject: bar
X-Git-Tag: 0_29_02~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fd662d66ae039fddacc0593f1bf732fb843c3a19;p=gitmo%2FClass-MOP.git

bar
---

diff --git a/t/000_load.t b/t/000_load.t
index a636b7e..f70fd69 100644
--- a/t/000_load.t
+++ b/t/000_load.t
@@ -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