X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F000_load.t;h=0dd8492508b5c9c0cb4c6ad787dfdb9605e56cb3;hb=4d47b77fec3593e25c28c3126f9b54d7d0bae8e4;hp=8e88fc0f7a4fc95f4e5fe0593d2084195ff411e2;hpb=495af5181ab3a346f2271c3b1a981e355941e2c4;p=gitmo%2FClass-MOP.git

diff --git a/t/000_load.t b/t/000_load.t
index 8e88fc0..0dd8492 100644
--- 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,