use Test::Requires in tests

[gitmo/Moose.git] / xt / author / pod_coverage.t

diff --git a/xt/author/pod_coverage.t b/xt/author/pod_coverage.t
index 3464180..cda0317 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,13 +15,24 @@ my @modules = all_modules();
 plan tests => scalar @modules;
 
 my %trustme = (
-    'Moose'                  => ['make_immutable'],
-    'Moose::Meta::Attribute' => [ 'interpolate_class', 'throw_error' ],
-    'Moose::Meta::Class'     => [
+    'Moose::Meta::Attribute' => [
+        qw( interpolate_class
+            throw_error
+            attach_to_class
+            )
+    ],
+    'Moose::Meta::Attribute::Native::MethodProvider::Array'   => ['.+'],
+    'Moose::Meta::Attribute::Native::MethodProvider::Bool'    => ['.+'],
+    'Moose::Meta::Attribute::Native::MethodProvider::Code'    => ['.+'],
+    'Moose::Meta::Attribute::Native::MethodProvider::Counter' => ['.+'],
+    'Moose::Meta::Attribute::Native::MethodProvider::Hash'    => ['.+'],
+    'Moose::Meta::Attribute::Native::MethodProvider::String'  => ['.+'],
+    'Moose::Meta::Class'                                      => [
         qw( check_metaclass_compatibility
             construct_instance
             create_error
             raise_error
+            reinitialize
             superclasses
             )
     ],
@@ -49,13 +61,16 @@ my %trustme = (
     'Moose::Meta::Role'               => [
         qw( alias_method
             get_method_modifier_list
+            reinitialize
             reset_package_cache_flag
             update_package_cache_flag
             wrap_method_body
             )
     ],
-    'Moose::Meta::Role::Composite' => ['add_method'],
-    'Moose::Role'                  => [
+    'Moose::Meta::Mixin::AttributeCore' => ['.+'],
+    'Moose::Meta::Role::Composite' =>
+        [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
+    'Moose::Role' => [
         qw( after
             around
             augment
@@ -63,7 +78,6 @@ my %trustme = (
             extends
             has
             inner
-            make_immutable
             override
             super
             with )
@@ -74,11 +88,14 @@ my %trustme = (
     'Moose::Meta::TypeConstraint::Class' =>
         [qw( equals is_a_type_of is_a_subtype_of )],
     'Moose::Meta::TypeConstraint::Enum' => [qw( constraint equals )],
+    'Moose::Meta::TypeConstraint::DuckType' =>
+        [qw( constraint equals get_message )],
     'Moose::Meta::TypeConstraint::Parameterizable' => ['.+'],
     'Moose::Meta::TypeConstraint::Parameterized'   => ['.+'],
     'Moose::Meta::TypeConstraint::Role'  => [qw( equals is_a_type_of )],
     'Moose::Meta::TypeConstraint::Union' => ['compile_type_constraint'],
     'Moose::Util'                        => ['add_method_modifier'],
+    'Moose::Util::MetaRole'              => ['apply_metaclass_roles'],
     'Moose::Util::TypeConstraints' => ['find_or_create_type_constraint'],
 );