some speed gains

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

diff --git a/t/010_self_introspection.t b/t/010_self_introspection.t
index 92b7c63..a933e85 100644 (file)
--- a/t/010_self_introspection.t
+++ b/t/010_self_introspection.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 203;
+use Test::More tests => 200;
 use Test::Exception;
 
 BEGIN {
@@ -28,7 +28,6 @@ my $class_mop_module_meta = Class::MOP::Module->meta();
 isa_ok($class_mop_module_meta, 'Class::MOP::Module');
 
 my @class_mop_package_methods = qw(
-    meta
 
     initialize
 
@@ -36,19 +35,17 @@ my @class_mop_package_methods = qw(
     namespace
 
     add_package_symbol get_package_symbol has_package_symbol remove_package_symbol
-    list_all_package_symbols remove_package_glob
+    list_all_package_symbols get_all_package_symbols remove_package_glob
 
     _deconstruct_variable_name
 );
 
 my @class_mop_module_methods = qw(
-    meta
 
     version authority identifier
 );
 
 my @class_mop_class_methods = qw(
-    meta
 
     initialize reinitialize create
     
@@ -60,6 +57,7 @@ my @class_mop_class_methods = qw(
     instance_metaclass get_meta_instance
     new_object clone_object
     construct_instance construct_class_instance clone_instance
+    rebless_instance
     check_metaclass_compatability
 
     attribute_metaclass method_metaclass
@@ -127,7 +125,7 @@ foreach my $method_name (@class_mop_module_methods) {
 
 foreach my $non_method_name (qw(
     confess
-    blessed reftype
+    blessed
     subname
     svref_2object
     )) {