make lack of a meta method testable

[gitmo/Class-MOP.git] / xt / author / pod_coverage.t

diff --git a/xt/author/pod_coverage.t b/xt/author/pod_coverage.t
index 9f29d53..c4edf97 100644 (file)
--- a/xt/author/pod_coverage.t
+++ b/xt/author/pod_coverage.t
@@ -5,8 +5,9 @@ use warnings;
 
 use Test::More;
 
-eval "use Test::Pod::Coverage 1.04";
-plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+use Test::Requires {
+    'Test::Pod::Coverage' => '1.04', # skip all if not installed
+};
 
 # This is a stripped down version of all_pod_coverage_ok which lets us
 # vary the trustme parameter per module.
@@ -14,10 +15,14 @@ my @modules = all_modules();
 plan tests => scalar @modules;
 
 my %trustme = (
-    'Class::MOP'            => ['HAVE_ISAREV'],
+    'Class::MOP' => [
+        'DEBUG_NO_META',
+        'HAVE_ISAREV',
+        'subname',
+        'in_global_destruction',
+    ],
     'Class::MOP::Attribute' => ['process_accessors'],
     'Class::MOP::Class'     => [
-
         # deprecated
         'alias_method',
         'compute_all_applicable_attributes',
@@ -38,16 +43,18 @@ my %trustme = (
         'construct_class_instance',
         'construct_instance',
         'create_meta_instance',
-        'get_immutable_options',
         'reset_package_cache_flag',
         'update_package_cache_flag',
-        'wrap_method_body',
 
         # doc'd with rebless_instance
         'rebless_instance_away',
+
+        # deprecated
+        'get_attribute_map',
     ],
     'Class::MOP::Class::Immutable::Trait'             => ['.+'],
     'Class::MOP::Class::Immutable::Class::MOP::Class' => ['.+'],
+    'Class::MOP::Deprecated'                          => ['.+'],
     'Class::MOP::Instance'                            => [
         qw( BUILDARGS
             bless_instance_structure
@@ -88,7 +95,11 @@ my %trustme = (
             initialize_body
             )
     ],
-    'Class::MOP::Module' => ['create'],
+    'Class::MOP::Mixin::AttributeCore' => ['.+'],
+    'Class::MOP::Mixin::HasAttributes' => ['.+'],
+    'Class::MOP::Mixin::HasMethods'    => ['.+'],
+    'Class::MOP::Module'               => ['create'],
+    'Class::MOP::Package' => [ 'get_method_map', 'wrap_method_body' ],
 );
 
 for my $module ( sort @modules ) {