make CMOP::Class->clone_instance private

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

diff --git a/t/070_immutable_metaclass.t b/t/070_immutable_metaclass.t
index 6a1c356..3814526 100644 (file)
--- a/t/070_immutable_metaclass.t
+++ b/t/070_immutable_metaclass.t
@@ -1,14 +1,10 @@
-#!/usr/bin/perl
-
 use strict;
 use warnings;
 
-use Test::More tests => 85;
+use Test::More tests => 86;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Class::MOP');
-}
+use Class::MOP;
 
 {
     package Foo;
@@ -51,6 +47,7 @@ BEGIN {
 
   my $immutable_metaclass = $transformer->immutable_metaclass;
   is($transformer->metaclass, $meta,      '... transformer has correct metaclass');
+  ok(!$transformer->inlined_constructor,  '... transformer says it did not inline the constructor');
   ok($immutable_metaclass->is_anon_class, '... immutable_metaclass is an anonymous class');
 
   #I don't understand why i need to ->meta here...
@@ -65,7 +62,8 @@ BEGIN {
             [ 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');
 
 }
 
@@ -82,6 +80,7 @@ BEGIN {
         $meta->make_immutable();
     } '... changed Foo to be immutable';
 
+    ok($transformer->inlined_constructor,  '... transformer says it did inline the constructor');
     is($transformer, $meta->get_immutable_transformer, '... immutable transformer cache works');
     ok(!$meta->make_immutable, '... make immutable now returns nothing');