factor out meta method generation

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

diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t
index 4e3f2cf..93ac3c5 100644 (file)
--- a/t/010_self_introspection.t
+++ b/t/010_self_introspection.t
@@ -75,15 +75,10 @@ my @class_mop_class_methods = qw(
     _class_metaclass_is_compatible _single_metaclass_is_compatible
     _fix_metaclass_incompatibility _fix_class_metaclass_incompatibility
     _fix_single_metaclass_incompatibility _base_metaclasses
-    _can_fix_class_metaclass_incompatibility_by_subclassing
-    _can_fix_single_metaclass_incompatibility_by_subclassing
-    _can_fix_metaclass_incompatibility_by_subclassing
     _can_fix_metaclass_incompatibility
+    _class_metaclass_can_be_made_compatible
+    _single_metaclass_can_be_made_compatible
 
-    _get_associated_single_metaclass
-    _get_compatible_single_metaclass_by_subclassing
-    _get_compatible_single_metaclass
-    _make_metaobject_compatible
     _remove_generated_metaobjects
     _restore_metaobjects_from
 
@@ -98,6 +93,7 @@ my @class_mop_class_methods = qw(
         find_method_by_name find_all_methods_by_name find_next_method_by_name
 
         add_before_method_modifier add_after_method_modifier add_around_method_modifier
+        _add_meta_method
 
     _attach_attribute
     _post_add_attribute