add a description to a test which did not have one

[gitmo/Class-MOP.git] / t / 070_immutable_metaclass.t

diff --git a/t/070_immutable_metaclass.t b/t/070_immutable_metaclass.t
index c88d914..5d199af 100644 (file)
--- a/t/070_immutable_metaclass.t
+++ b/t/070_immutable_metaclass.t
@@ -3,12 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More tests => 83;
+use Test::More tests => 84;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Class::MOP');
-}
+use Class::MOP;
 
 {
     package Foo;
@@ -62,10 +60,11 @@ BEGIN {
 
   is_deeply(
             [ $immutable_metaclass->superclasses ],
-            [ $meta->blessed ],
+            [ Scalar::Util::blessed($meta) ],
             '... immutable_metaclass superclasses are correct'
            );
-  ok($immutable_metaclass->has_method('get_mutable_metaclass_name'));
+  ok($immutable_metaclass->has_method('get_mutable_metaclass_name'),
+     'immutable metaclass has get_mutable_metaclass_name method');
 
 }
 
@@ -76,10 +75,13 @@ BEGIN {
     ok($meta->is_mutable, '... our class is mutable');
     ok(!$meta->is_immutable, '... our class is not immutable');
 
+    my $transformer = $meta->get_immutable_transformer;
+
     lives_ok {
         $meta->make_immutable();
     } '... changed Foo to be immutable';
 
+    is($transformer, $meta->get_immutable_transformer, '... immutable transformer cache works');
     ok(!$meta->make_immutable, '... make immutable now returns nothing');
 
     ok(!$meta->is_mutable, '... our class is no longer mutable');
@@ -97,6 +99,8 @@ BEGIN {
     dies_ok { $meta->add_package_symbol()    } '... exception thrown as expected';
     dies_ok { $meta->remove_package_symbol() } '... exception thrown as expected';
 
+    lives_ok { $meta->identifier() } '... no exception for get_package_symbol special case';
+
     my @supers;
     lives_ok {
         @supers = $meta->superclasses;