tests/t/pod.t

   1
   2 use warnings;
   3 use strict;
   4
   5 use Getopt::Long;
   6 use Test::More;
   7
   8 eval "use Test::Pod 1.00";
   9 plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
  10
  11 my %config;
  12 GetOptions(\%config, 'pod_dir|pod-dir|poddir|p=s@')
  13   or exit 1;
  14
  15 my @dirs = @{$config{pod_dir}} if $config{pod_dir};
  16 plan skip_all => "Nothing to test" if scalar @dirs == 0;
  17
  18 all_pod_files_ok(all_pod_files(@dirs));
  19
  20 # vim: set ts=2 sw=2 tw=72 expandtab: