blob: d3fee6b30545361e2945eefb1c39a380b2dbc24e (
plain)
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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
################################################################################
#
# Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz <mhx@cpan.org>.
# Version 1.x, Copyright (C) 1999, Graham Barr <gbarr@pobox.com>.
#
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
################################################################################
use strict;
use warnings;
our %Config;
BEGIN {
if ($ENV{'PERL_CORE'}) {
chdir 't' if -d 't';
@INC = '../lib' if -d '../lib' && -d '../ext';
}
require Test::More; Test::More->import;
require Config; Config->import;
if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) {
plan(skip_all => 'IPC::SysV was not built');
}
}
my @pods;
# find all potential pod files
if (open F, "MANIFEST") {
chomp(my @files = <F>);
close F;
for my $f (@files) {
next if $f =~ /ppport/;
if (open F, $f) {
while (<F>) {
if (/^=\w+/) {
push @pods, $f;
last;
}
}
close F;
}
}
}
# load Test::Pod if possible, otherwise load Test::More
eval {
require Test::Pod;
$Test::Pod::VERSION >= 0.95
or die "Test::Pod version only $Test::Pod::VERSION";
Test::Pod->import( tests => scalar @pods );
};
if ($@) {
require Test::More;
Test::More->import( skip_all => "testing pod requires Test::Pod" );
}
else {
for my $pod (@pods) {
pod_file_ok($pod);
}
}
|
