mirror of
https://git.openafs.org/openafs.git
synced 2025-01-19 15:30:14 +00:00
dde6f7d840
Reviewed-on: http://gerrit.openafs.org/608 Tested-by: Derrick Brashear <shadow@dementia.org> Reviewed-by: Derrick Brashear <shadow@dementia.org>
36 lines
748 B
Perl
Executable File
36 lines
748 B
Perl
Executable File
#!/usr/bin/perl
|
|
#
|
|
# Written by Jason Edgecombe based on the Test::Pod documentation. The
|
|
# best way to run it is to run:
|
|
#
|
|
# prove check-pod
|
|
#
|
|
# 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;
|
|
eval "use Test::Pod 1.00";
|
|
|
|
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
|
|
my @poddirs = qw( pod1 pod5 pod8 );
|
|
|
|
my @list;
|
|
for ( @ARGV ? @ARGV : @poddirs ) {
|
|
if ( -f ) {
|
|
push @list, $_
|
|
} elsif ( -d ) {
|
|
push @list, all_pod_files( $_ )
|
|
}
|
|
}
|
|
|
|
all_pod_files_ok( @list );
|