[r389]: / SOAP-Transport-TCP / trunk / t / 098_pod.t  Maximize  Restore  History

Download this file

34 lines (28 with data), 670 Bytes

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
use strict;
if ( not $ENV{TEST_AUTHOR} ) {
my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.';
print "1..0
# $msg";
exit 0;
}
require Test::More;
Test::More->import();
eval "use Test::Pod 1.00";
if ($@) {
print "# Test::Pod 1.00 required for testing POD";
plan(tests => 0);
exit 0;
}
my @directories;
# perl Build test or make test run from top-level dir.
if ( -d '../t/' ) {
@directories = ('../lib/', '../bin');
}
else {
@directories = (); # empty - will work automatically
}
my @files = all_pod_files(@directories);
plan(tests => scalar(@files) );
foreach my $module (@files){
pod_file_ok( $module )
}