|
Packit |
106d3f |
#!/usr/bin/perl
|
|
Packit |
106d3f |
|
|
Packit |
106d3f |
use strict;
|
|
Packit |
106d3f |
use warnings;
|
|
Packit |
106d3f |
|
|
Packit |
106d3f |
use vars qw( @files );
|
|
Packit |
106d3f |
|
|
Packit |
106d3f |
BEGIN {
|
|
Packit |
106d3f |
eval "require File::Find::Rule";
|
|
Packit |
106d3f |
if ($@)
|
|
Packit |
106d3f |
{
|
|
Packit |
106d3f |
print "1..1\nok 1 # skip File::Find::Rule not installed\n";
|
|
Packit |
106d3f |
exit;
|
|
Packit |
106d3f |
}
|
|
Packit |
106d3f |
@files = File::Find::Rule->file()->name( '*.pm', '*.pod' )->in( 'blib/lib' );
|
|
Packit |
106d3f |
}
|
|
Packit |
106d3f |
|
|
Packit |
106d3f |
use Test::More tests => scalar @files;
|
|
Packit |
106d3f |
|
|
Packit |
106d3f |
eval "use Test::Pod 0.95";
|
|
Packit |
106d3f |
SKIP: {
|
|
Packit |
106d3f |
skip "Test::Pod 0.95 not installed.", scalar @files if $@;
|
|
Packit |
106d3f |
pod_file_ok( $_ ) for @files;
|
|
Packit |
106d3f |
}
|