X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_self_introspection.t;h=ff2e2c596882fbb910bc57f70d27298b3779d835;hb=d004c8d565f9b314da7652e9368aeb4587ffaa3d;hp=889c9cfa1cf37deffdcb53c7dd28ea95dc15454a;hpb=4920ae3d35826dd83c5332b996d8780bc77c6b2d;p=gitmo%2FClass-MOP.git

diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t
index 889c9cf..ff2e2c5 100644
--- a/t/010_self_introspection.t
+++ b/t/010_self_introspection.t
@@ -2,7 +2,7 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
+use Test::Fatal;
 
 use Class::MOP;
 use Class::MOP::Class;
@@ -31,10 +31,11 @@ my @class_mop_package_methods = qw(
     name
     namespace
 
-    add_package_symbol get_package_symbol has_package_symbol remove_package_symbol
+    add_package_symbol get_package_symbol has_package_symbol
+    remove_package_symbol get_or_add_package_symbol
     list_all_package_symbols get_all_package_symbols remove_package_glob
 
-    _deconstruct_variable_name
+    _package_stash
 
     get_method_map
 );
@@ -52,35 +53,44 @@ my @class_mop_class_methods = qw(
 
     is_pristine
 
-    initialize create
-
-    update_package_cache_flag
-    reset_package_cache_flag
+    initialize reinitialize create
 
     create_anon_class is_anon_class
 
     instance_metaclass get_meta_instance
+    _inline_create_instance
+    _inline_rebless_instance
+    _inline_get_mop_slot _inline_set_mop_slot _inline_clear_mop_slot
     create_meta_instance _create_meta_instance
     new_object clone_object
+    _inline_new_object _inline_default_value _inline_preserve_weak_metaclasses
+    _inline_slot_initializer _inline_extra_init _inline_fallback_constructor
+    _inline_generate_instance _inline_params _inline_slot_initializers
+    _inline_init_attr_from_constructor _inline_init_attr_from_default
+    _generate_fallback_constructor
     construct_instance _construct_instance
     construct_class_instance _construct_class_instance
     clone_instance _clone_instance
     rebless_instance rebless_instance_back rebless_instance_away
+    _force_rebless_instance _fixup_attributes_after_rebless
     check_metaclass_compatibility _check_metaclass_compatibility
     _check_class_metaclass_compatibility _check_single_metaclass_compatibility
+    _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
+
+    _remove_generated_metaobjects
+    _restore_metaobjects_from
 
     add_meta_instance_dependencies remove_meta_instance_dependencies update_meta_instance_dependencies
     add_dependent_meta_instance remove_dependent_meta_instance
     invalidate_meta_instances invalidate_meta_instance
 
     superclasses subclasses direct_subclasses class_precedence_list
-    linearized_isa _superclasses_updated
+    linearized_isa _superclasses_updated _superclass_metas
 
     alias_method get_all_method_names get_all_methods compute_all_applicable_methods
         find_method_by_name find_all_methods_by_name find_next_method_by_name
@@ -99,8 +109,8 @@ my @class_mop_class_methods = qw(
     is_mutable is_immutable make_mutable make_immutable
     _initialize_immutable _install_inlined_code _inlined_methods
     _add_inlined_method _inline_accessors _inline_constructor
-    _inline_destructor _immutable_options _rebless_as_immutable
-    _rebless_as_mutable _remove_inlined_code
+    _inline_destructor _immutable_options _real_ref_name
+    _rebless_as_immutable _rebless_as_mutable _remove_inlined_code
 
     _immutable_metaclass
     immutable_trait immutable_options