| Commit | Line | Data |
|---|
| 8f85282b |
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 | } |
projects / p5sagit/p5-mst-13.2.git / blame