"Fossies" - the Fresh Open Source Software Archive

Member "MIME-Base64-3.16/xt/author/pod-coverage.t" (27 Sep 2020, 1242 Bytes) of package /linux/privat/MIME-Base64-3.16.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.

    1 #!perl
    2 # This file was automatically generated by Dist::Zilla::Plugin::Test::Pod::Coverage::Configurable 0.07.
    3 
    4 use Test::Pod::Coverage 1.08;
    5 use Test::More 0.88;
    6 
    7 BEGIN {
    8     if ( $] <= 5.008008 ) {
    9         plan skip_all => 'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+';
   10     }
   11 }
   12 use Pod::Coverage::TrustPod;
   13 
   14 my %skip = map { $_ => 1 } qw(  );
   15 
   16 my @modules;
   17 for my $module ( all_modules() ) {
   18     next if $skip{$module};
   19 
   20     push @modules, $module;
   21 }
   22 
   23 plan skip_all => 'All the modules we found were excluded from POD coverage test.'
   24     unless @modules;
   25 
   26 plan tests => scalar @modules;
   27 
   28 my %trustme = (
   29              'MIME::Base64' => [
   30                                  qr/^(?:en|de)code$/
   31                                ],
   32              'MIME::QuotedPrint' => [
   33                                       qr/^(?:en|de)code$/
   34                                     ]
   35            );
   36 
   37 my @also_private;
   38 
   39 for my $module ( sort @modules ) {
   40     pod_coverage_ok(
   41         $module,
   42         {
   43             coverage_class => 'Pod::Coverage::TrustPod',
   44             also_private   => \@also_private,
   45             trustme        => $trustme{$module} || [],
   46         },
   47         "pod coverage for $module"
   48     );
   49 }
   50 
   51 done_testing();