make construct_class_instance a private method

[gitmo/Class-MOP.git] / t / 010_self_introspection.t

diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t
index 2fee9f8..3d21424 100644 (file)
--- a/t/010_self_introspection.t
+++ b/t/010_self_introspection.t
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 244;
+use Test::More tests => 246;
 use Test::Exception;
 
 use Class::MOP;
@@ -57,7 +57,9 @@ my @class_mop_class_methods = qw(
 
     instance_metaclass get_meta_instance create_meta_instance
     new_object clone_object
-    construct_instance construct_class_instance clone_instance
+    construct_instance
+    construct_class_instance _construct_class_instance
+    clone_instance
     rebless_instance
     check_metaclass_compatibility