[p5sagit/Devel-Size.git] / t / pod_cov.t

#!/usr/bin/perl -w

use Test::More;
use strict;

my $tests;

BEGIN
   {
   $tests = 1;
   plan tests => $tests;
   chdir 't' if -d 't';
   use lib '../lib';
   };

SKIP:
  {
  skip("Test::Pod::Coverage 1.08 required for testing POD coverage", $tests)
    unless do {
    eval "use Test::Pod::Coverage 1.08";
    $@ ? 0 : 1;
    };
  for my $m (qw/
    Devel::Size
   /)
    {
    pod_coverage_ok( $m, "$m is covered" );
    }
  }
Commit	Line	Data
0430b7f7	1	#!/usr/bin/perl -w
	2
	3	use Test::More;
	4	use strict;
	5
	6	my $tests;
	7
	8	BEGIN
	9	{
	10	$tests = 1;
	11	plan tests => $tests;
	12	chdir 't' if -d 't';
	13	use lib '../lib';
	14	};
	15
	16	SKIP:
	17	{
c8db37d3	18	skip("Test::Pod::Coverage 1.08 required for testing POD coverage", $tests)
0430b7f7	19	unless do {
c8db37d3	20	eval "use Test::Pod::Coverage 1.08";
0430b7f7	21	$@ ? 0 : 1;
	22	};
	23	for my $m (qw/
	24	Devel::Size
	25	/)
	26	{
	27	pod_coverage_ok( $m, "$m is covered" );
	28	}
	29	}
	30