1################################################################################ 2# 3# Version 2.x, Copyright (C) 2007-2013, Marcus Holland-Moritz <mhx@cpan.org>. 4# Version 1.x, Copyright (C) 1999, Graham Barr <gbarr@pobox.com>. 5# 6# This program is free software; you can redistribute it and/or 7# modify it under the same terms as Perl itself. 8# 9################################################################################ 10 11use strict; 12use warnings; 13 14our %Config; 15BEGIN { 16 if ($ENV{'PERL_CORE'}) { 17 chdir 't' if -d 't'; 18 @INC = '../lib' if -d '../lib' && -d '../ext'; 19 } 20 21 require Test::More; Test::More->import; 22 require Config; Config->import; 23 24 if ($ENV{'PERL_CORE'} && $Config{'extensions'} !~ m[\bIPC/SysV\b]) { 25 plan(skip_all => 'IPC::SysV was not built'); 26 } 27} 28 29my @modules = qw( IPC::SysV IPC::Msg IPC::Semaphore IPC::SharedMem ); 30 31eval 'use Pod::Coverage 0.10'; 32plan skip_all => "testing pod coverage requires Pod::Coverage 0.10" if $@; 33 34eval 'use Test::Pod::Coverage 1.08'; 35plan skip_all => "testing pod coverage requires Test::Pod::Coverage 1.08" if $@; 36 37plan tests => scalar @modules; 38 39my $mod = shift @modules; 40pod_coverage_ok($mod, { trustme => [qw( dl_load_flags )] }, "$mod is covered"); 41 42for my $mod (@modules) { 43 pod_coverage_ok($mod, "$mod is covered"); 44} 45