moved pod tests to xt dir
Dave Rolsky [Sat, 14 Mar 2009 18:00:46 +0000 (13:00 -0500)]
t/pod_coverage.t [deleted file]
xt/pod.t [moved from t/pod.t with 100% similarity]
xt/pod_coverage.t [new file with mode: 0644]

diff --git a/t/pod_coverage.t b/t/pod_coverage.t
deleted file mode 100644 (file)
index eb119fd..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-use strict;
-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 $@;
-
-all_pod_coverage_ok( { trustme => [ qr/compatability/ ] } );
similarity index 100%
rename from t/pod.t
rename to xt/pod.t
diff --git a/xt/pod_coverage.t b/xt/pod_coverage.t
new file mode 100644 (file)
index 0000000..e6858d0
--- /dev/null
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+use strict;
+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 $@;
+
+# 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 = (
+    'Class::MOP::Attribute' => ['process_accessors'],
+);
+
+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"
+    );
+}