[Moose-commits] r7538 - in Moose/trunk: t xt

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-02-04 09:28:07 -0800 (Wed, 04 Feb 2009)
New Revision: 7538

Added:
   Moose/trunk/xt/pod.t
   Moose/trunk/xt/pod_coverage.t
Removed:
   Moose/trunk/t/pod.t
   Moose/trunk/t/pod_coverage.t
Log:
might as well move all the pod tests to xt

Deleted: Moose/trunk/t/pod.t
===================================================================
--- Moose/trunk/t/pod.t	2009-02-04 17:27:17 UTC (rev 7537)
+++ Moose/trunk/t/pod.t	2009-02-04 17:28:07 UTC (rev 7538)
@@ -1,11 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-
-eval "use Test::Pod 1.14";
-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
-
-all_pod_files_ok();

Deleted: Moose/trunk/t/pod_coverage.t
===================================================================
--- Moose/trunk/t/pod_coverage.t	2009-02-04 17:27:17 UTC (rev 7537)
+++ Moose/trunk/t/pod_coverage.t	2009-02-04 17:28:07 UTC (rev 7538)
@@ -1,37 +0,0 @@
-#!/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 = (
-    'Moose' => ['make_immutable'],
-    'Moose::Meta::Method::Constructor' =>
-        [qw( initialize_body intialize_body)],
-    'Moose::Meta::Method::Destructor' => ['initialize_body'],
-    'Moose::Role'                     => [
-        qw( after around augment before extends has inner make_immutable override super with )
-    ],
-);
-
-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"
-    );
-}

Copied: Moose/trunk/xt/pod.t (from rev 2836, Moose/trunk/t/pod.t)
===================================================================
--- Moose/trunk/xt/pod.t	                        (rev 0)
+++ Moose/trunk/xt/pod.t	2009-02-04 17:28:07 UTC (rev 7538)
@@ -0,0 +1,11 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+
+eval "use Test::Pod 1.14";
+plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+
+all_pod_files_ok();

Copied: Moose/trunk/xt/pod_coverage.t (from rev 5197, Moose/trunk/t/pod_coverage.t)
===================================================================
--- Moose/trunk/xt/pod_coverage.t	                        (rev 0)
+++ Moose/trunk/xt/pod_coverage.t	2009-02-04 17:28:07 UTC (rev 7538)
@@ -0,0 +1,37 @@
+#!/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 = (
+    'Moose' => ['make_immutable'],
+    'Moose::Meta::Method::Constructor' =>
+        [qw( initialize_body intialize_body)],
+    'Moose::Meta::Method::Destructor' => ['initialize_body'],
+    'Moose::Role'                     => [
+        qw( after around augment before extends has inner make_immutable override super with )
+    ],
+);
+
+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"
+    );
+}