develooper Front page | perl.qpsmtpd | Postings from May 2012

[PATCH] only test POD for developers

Thread Next
From:
Matt Simerson
Date:
May 6, 2012 14:04
Subject:
[PATCH] only test POD for developers
Message ID:
C0EA59D3-26F7-470B-B5DA-3592C40F9F51@tnpi.net
only test POD for developers

---
t/02-pod.t |   12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/t/02-pod.t b/t/02-pod.t
index 3a06a23..e989b93 100644
--- a/t/02-pod.t
+++ b/t/02-pod.t
@@ -1,8 +1,18 @@
#!perl

use Test::More;
+
+if ( ! $ENV{'QPSMTPD_DEVELOPER'} ) {
+    plan skip_all => "not a developer, skipping POD tests";
+    exit;
+}
+
eval "use Test::Pod 1.14";
-plan skip_all => "Test::Pod 1.14 required for testing POD" if $@;
+if ( $@ ) {
+    plan skip_all => "Test::Pod 1.14 required for testing POD";
+    exit;
+};

my @poddirs = qw( lib plugins );
all_pod_files_ok( all_pod_files( @poddirs ) );
+done_testing();
-- 
1.7.9.6


Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About