Dogcows Code - chaz/p5-Dist-Zilla-PluginBundle-Author-CCM/blob - t/author-pod-no404s.t

   1 #!perl
   2
   3 BEGIN {
   4   unless ($ENV{AUTHOR_TESTING}) {
   5     print qq{1..0 # SKIP these tests are for testing by the author\n};
   6     exit
   7   }
   8 }
   9
  10
  11 use strict;
  12 use warnings;
  13 use Test::More;
  14
  15 foreach my $env_skip ( qw(
  16   SKIP_POD_NO404S
  17   AUTOMATED_TESTING
  18 ) ){
  19   plan skip_all => "\$ENV{$env_skip} is set, skipping"
  20     if $ENV{$env_skip};
  21 }
  22
  23 eval "use Test::Pod::No404s";
  24 if ( $@ ) {
  25   plan skip_all => 'Test::Pod::No404s required for testing POD';
  26 }
  27 else {
  28   all_pod_files_ok();
  29 }