[OpenAFS-Doc] doc testing script

[Jason Edgecombe]

This is a multi-part message in MIME format.
--------------010100020205000709080500
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

Hi,

Here is a quick perl script called testpod that uses the Test::Pod perl 
module. Run it using "prove testpod" and it will display all of the pod 
syntax errors in the pod documenation. I copied it from the Test::Pod 
documentation and changed a couple of lines.

Sincerely,
Jason



--------------010100020205000709080500
Content-Type: text/plain; x-mac-type="0"; x-mac-creator="0";
 name="testpod"
Content-Transfer-Encoding: 7bit
Content-Disposition: inline;
 filename="testpod"

#!/usr/bin/perl

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 );
all_pod_files_ok( all_pod_files( @poddirs ) );

--------------010100020205000709080500--