"Fossies" - the Fresh Open Source Software Archive

Member "Archive-Tar-2.38/t/99_pod.t" (25 Jun 2020, 638 Bytes) of package /linux/privat/Archive-Tar-2.38.tar.gz:


As a special service "Fossies" has tried to format the requested text file into HTML format (style: standard) with prefixed line numbers. Alternatively you can here view or download the uninterpreted source code file. See also the latest Fossies "Diffs" side-by-side code changes report for "99_pod.t": 2.36_vs_2.38.

    1 use Test::More;
    2 use File::Spec;
    3 use File::Find;
    4 use strict;
    5 
    6 BEGIN { chdir 't' if -d 't' };
    7 
    8 eval 'use Test::Pod';
    9 plan skip_all => "Test::Pod v0.95 required for testing POD"
   10     if $@ || $Test::Pod::VERSION < 0.95;
   11 
   12 plan skip_all => "Pod tests disabled under perl core" if $ENV{PERL_CORE};
   13 
   14 my @files;
   15 find( sub { push @files, File::Spec->catfile(
   16                     File::Spec->splitdir( $File::Find::dir ), $_
   17                 ) if /\.p(?:l|m|od)$/ }, File::Spec->catdir(qw(.. blib lib) ));
   18 
   19 plan skip_all => "No tests to run" unless scalar @files;
   20 
   21 plan tests => scalar @files;
   22 for my $file ( @files ) {
   23     pod_file_ok( $file );
   24 }
   25 
   26