This code belogs in Storage::DBI
[dbsrgits/DBIx-Class-Historic.git] / t / 02pod.t
1 use warnings;
2 use strict;
3
4 use Test::More;
5 use lib qw(t/lib);
6 use DBICTest;
7
8 my @MODULES = (
9   'Test::Pod 1.26',
10 );
11
12 # Don't run tests for installs
13 unless ( DBICTest::AuthorCheck->is_author || $ENV{AUTOMATED_TESTING} || $ENV{RELEASE_TESTING} ) {
14   plan( skip_all => "Author tests not required for installation" );
15 }
16
17 # Load the testing modules
18 foreach my $MODULE ( @MODULES ) {
19   eval "use $MODULE";
20   if ( $@ ) {
21     $ENV{RELEASE_TESTING}
22     ? die( "Failed to load required release-testing module $MODULE" )
23     : plan( skip_all => "$MODULE not available for testing" );
24   }
25 }
26
27 all_pod_files_ok();