closed

[gitmo/Class-MOP.git] / t / 000_load.t

diff --git a/t/000_load.t b/t/000_load.t
index 8e88fc0..0dd8492 100644 (file)
--- a/t/000_load.t
+++ b/t/000_load.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 8;
+use Test::More tests => 14;
 
 BEGIN {
     use_ok('Class::MOP');
@@ -24,6 +24,8 @@ my %METAS = (
     'Class::MOP::Instance'  => Class::MOP::Instance->meta,      
 );
 
+ok($_->is_immutable(), '... ' . $_->name . ' is immutable') for values %METAS;
+
 is_deeply(
     { Class::MOP::Class->get_all_metaclasses },
     \%METAS,