mirror of
https://git.openafs.org/openafs.git
synced 2025-01-18 15:00:12 +00:00
Allow check-pod to work on specific files or dirs
Reviewed-on: http://gerrit.openafs.org/608 Tested-by: Derrick Brashear <shadow@dementia.org> Reviewed-by: Derrick Brashear <shadow@dementia.org>
This commit is contained in:
parent
f387806bd4
commit
dde6f7d840
@ -7,6 +7,14 @@
|
||||
#
|
||||
# from the doc/man-pages directory, which will show any errors found in
|
||||
# any of the POD files.
|
||||
#
|
||||
# Extended by Davor Ocelic to support explicit list of POD files or
|
||||
# sections to check:
|
||||
#
|
||||
# check-pod pod1/fs.pod
|
||||
# check-pod pod5
|
||||
# check-pod pod1 pod8/volserver.pod
|
||||
#
|
||||
|
||||
use strict;
|
||||
use Test::More;
|
||||
@ -14,4 +22,14 @@ eval "use Test::Pod 1.00";
|
||||
|
||||
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
|
||||
my @poddirs = qw( pod1 pod5 pod8 );
|
||||
all_pod_files_ok( all_pod_files( @poddirs ) );
|
||||
|
||||
my @list;
|
||||
for ( @ARGV ? @ARGV : @poddirs ) {
|
||||
if ( -f ) {
|
||||
push @list, $_
|
||||
} elsif ( -d ) {
|
||||
push @list, all_pod_files( $_ )
|
||||
}
|
||||
}
|
||||
|
||||
all_pod_files_ok( @list );
|
||||
|
Loading…
Reference in New Issue
Block a user