changelog
[gitmo/Moose.git] / t / cmop / immutable_metaclass.t
index 5071daa..e674f34 100644 (file)
@@ -45,9 +45,11 @@ use Class::MOP;
         'immutable_options is empty before a class is made_immutable'
     );
 
-    $meta->make_immutable;
+    ok( $meta->make_immutable, 'make_immutable returns true' );
     my $line = __LINE__ - 1;
 
+    ok( $meta->make_immutable, 'make_immutable still returns true' );
+
     my $immutable_metaclass = $meta->_immutable_metaclass->meta;
 
     my $immutable_class_name = $immutable_metaclass->name;
@@ -145,7 +147,7 @@ use Class::MOP;
         $meta->make_immutable();
     }, undef, '... changed Bar to be immutable' );
 
-    ok( !$meta->make_immutable, '... make immutable now returns nothing' );
+    ok( $meta->make_immutable, '... make immutable returns true' );
 
     ok( !$meta->is_mutable,  '... our class is no longer mutable' );
     ok( $meta->is_immutable, '... our class is now immutable' );
@@ -209,7 +211,7 @@ use Class::MOP;
         $meta->make_immutable();
     }, undef, '... changed Baz to be immutable' );
 
-    ok( !$meta->make_immutable, '... make immutable now returns nothing' );
+    ok( $meta->make_immutable, '... make immutable returns true' );
 
     ok( !$meta->is_mutable,  '... our class is no longer mutable' );
     ok( $meta->is_immutable, '... our class is now immutable' );