X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F000_load.t;h=b9edef27a3b44d62cdc43af968c9edec2f45fee1;hb=b1897d4d804dc11f86868052ecb6997a04821df3;hp=57bfebf81065f89de4cb8747e767b7752b1ac06f;hpb=ced555a9ceb78adcb278dbb1bedc8e36e17b03c0;p=gitmo%2FClass-MOP.git

diff --git a/t/000_load.t b/t/000_load.t
index 57bfebf..b9edef2 100644
--- a/t/000_load.t
+++ b/t/000_load.t
@@ -63,4 +63,21 @@ is_deeply(
         Class::MOP::Object        
         Class::MOP::Package                      
     / ],
-    
\ No newline at end of file
+    '... got all the metaclass names');
+    
+is_deeply(
+    [ map { $_->meta->identifier } sort { $a cmp $b } Class::MOP::get_all_metaclass_names() ],
+    [ 
+       "Class::MOP::Attribute-"           . $Class::MOP::Attribute::VERSION           . "-cpan:STEVAN",  
+       "Class::MOP::Attribute::Accessor-" . $Class::MOP::Attribute::Accessor::VERSION . "-cpan:STEVAN",          
+       "Class::MOP::Class-"               . $Class::MOP::Class::VERSION               . "-cpan:STEVAN",
+       "Class::MOP::Instance-"            . $Class::MOP::Instance::VERSION            . "-cpan:STEVAN",
+       "Class::MOP::Method-"              . $Class::MOP::Method::VERSION              . "-cpan:STEVAN",
+       "Class::MOP::Method::Wrapped-"     . $Class::MOP::Method::Wrapped::VERSION     . "-cpan:STEVAN",       
+       "Class::MOP::Module-"              . $Class::MOP::Module::VERSION              . "-cpan:STEVAN",
+       "Class::MOP::Object-"              . $Class::MOP::Object::VERSION              . "-cpan:STEVAN",
+       "Class::MOP::Package-"             . $Class::MOP::Package::VERSION             . "-cpan:STEVAN",
+    ],
+    '... got all the metaclass identifiers');    
+    
+