cpan/IPC-SysV/t/podcov.t

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