X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F070_immutable_metaclass.t;h=8d57f5d8ee843f7db1b1202d449f14ad198ae862;hb=78f6e9c6a73ff3dd985a1cebaafd0b81e543beb8;hp=b2ee906c101ad889b2401d50485533c0125bc614;hpb=f5d080227b5fe6c95712defbf9212e94673ad4d2;p=gitmo%2FClass-MOP.git

diff --git a/t/070_immutable_metaclass.t b/t/070_immutable_metaclass.t
index b2ee906..8d57f5d 100644
--- a/t/070_immutable_metaclass.t
+++ b/t/070_immutable_metaclass.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 75;
+use Test::More tests => 73;
 use Test::Exception;
 
 use Class::MOP;
@@ -42,21 +42,16 @@ use Class::MOP;
 
     $meta->make_immutable;
 
-    my $immutable_metaclass = $meta->immutable_metaclass->meta;
+    my $immutable_metaclass = $meta->_immutable_metaclass->meta;
 
-    #I don't understand why i need to ->meta here...
-    my $obj = $immutable_metaclass->name;
+    my $immutable_class_name = $immutable_metaclass->name;
 
-    ok( !$obj->is_mutable,  '... immutable_metaclass is not mutable' );
-    ok( $obj->is_immutable, '... immutable_metaclass is immutable' );
-    ok( !$obj->make_immutable,
-        '... immutable_metaclass make_mutable is noop' );
-    is( $obj->meta, $immutable_metaclass,
+    ok( !$immutable_class_name->is_mutable,  '... immutable_metaclass is not mutable' );
+    ok( $immutable_class_name->is_immutable, '... immutable_metaclass is immutable' );
+    is( $immutable_class_name->meta, $immutable_metaclass,
         '... immutable_metaclass meta hack works' );
 
-    isa_ok( $meta, "Class::MOP::Class::Immutable::Trait" );
     isa_ok( $meta, "Class::MOP::Class" );
-
 }
 
 {