From e2ea33bdd06c4b5e1f2dfdc624e370086ea2e7bc Mon Sep 17 00:00:00 2001
From: Guillem Jover <guillem@debian.org>
Date: Wed, 19 Jun 2013 21:14:11 +0200
Subject: test: Only scan perl module files that will ever contain POD markup

This should reduce the check time significantly, as it stops checking
the program files by duplicate (for <script> and <script>.pl), and does
not scan the .git directory any longer.
---
 test/000_pod.t | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'test')

diff --git a/test/000_pod.t b/test/000_pod.t
index 40032779e..902a793de 100644
--- a/test/000_pod.t
+++ b/test/000_pod.t
@@ -20,5 +20,13 @@ use Test::More;
 
 eval 'use Test::Pod 1.00';
 plan skip_all => 'Test::Pod 1.00 required for testing POD' if $@;
-my @poddirs = ( $ENV{srcdir} || '.' );
-all_pod_files_ok( all_pod_files( @poddirs ) );
+
+if (defined $ENV{srcdir}) {
+    chdir $ENV{srcdir} or die "cannot chdir to source directory: $!";
+}
+
+my @dirs = qw(scripts/Dpkg);
+my @files = qw(scripts/Dpkg.pm);
+push @files, all_pod_files(@dirs);
+
+all_pod_files_ok(@files);
-- 
cgit v1.2.3