From: gfx <gfuji@cpan.org>
Date: Wed, 18 Nov 2009 06:57:56 +0000 (+0900)
Subject: Add pod coverage test, but it does not test yet
X-Git-Tag: 0.40_08~12
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=commitdiff_plain;h=c20736cffb9436de5c5927d4d80926e34b4654c9;hp=5b5be19aadd9f80ef88f5d0c8f726bdfeeec79eb

Add pod coverage test, but it does not test yet
---

diff --git a/xt/03_pod_coverage.t b/xt/03_pod_coverage.t
new file mode 100644
index 0000000..6cdb126
--- /dev/null
+++ b/xt/03_pod_coverage.t
@@ -0,0 +1,97 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+plan skip_all => 'TODO';
+
+eval "use Test::Pod::Coverage 1.04";
+plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@;
+
+# This is a stripped down version of all_pod_coverage_ok which lets us
+# vary the trustme parameter per module.
+my @modules = all_modules();
+plan tests => scalar @modules;
+
+my %trustme = (
+    'Mouse::Meta::Module' => [
+    ],
+
+    'Mouse::Meta::Class'  => [
+        qw(
+            get_method_body
+            superclasses
+            clone_instance
+         )
+    ],
+    'Mouse::Meta::Attribute' => [
+        qw(
+            interpolate_class
+            throw_error
+            create
+            get_parent_args
+            verify_type_constraint
+            canonicalize_args
+            coerce_constraint
+         )
+    ],
+    'Mouse::Meta::Method'                  => [],
+    'Mouse::Meta::Method::Accessor'        => [],
+    'Mouse::Meta::Method::Constructor'     => [],
+    'Mouse::Meta::Method::Destructor'      => [],
+    'Mouse::Meta::Role'                    => [],
+    'Mouse::Meta::Role::Composite' =>
+        [ 'get_method', 'get_method_list', 'has_method', 'add_method' ],
+    'Mouse::Role' => [
+        qw( after
+            around
+            augment
+            before
+            extends
+            has
+            inner
+            override
+            super
+            with )
+    ],
+    'Mouse::Meta::TypeConstraint'      => [
+        qw(
+            compile_type_constraint
+            parameterize
+        )
+    ],
+    'Mouse::Util'                      => [
+        qw(
+            generate_isa_predicate_for
+            does dump meta
+        )
+    ],
+    'Mouse::Util::TypeConstraints'     => [
+        qw(typecast_constraints)
+     ],
+
+    'Mouse::Exporter' => [
+        qw(
+            do_import do_unimport
+        )
+    ],
+    'Mouse::Spec'         => ['.+'],
+    'Squirrel'            => ['.+'],
+    'Squirrel::Role'      => ['.+'],
+    'Mouse::TypeRegistry' => ['.+'],
+);
+
+for my $module ( sort @modules ) {
+    my $trustme = [];
+    if ( $trustme{$module} ) {
+        my $methods = join '|', @{ $trustme{$module} };
+        $trustme = [qr/^(?:$methods)$/];
+    }
+
+    pod_coverage_ok(
+        $module, { trustme => $trustme },
+        "Pod coverage for $module"
+    );
+}