Blame t/00-report-prereqs.t

Packit 03f954
#!perl
Packit 03f954
Packit 03f954
use strict;
Packit 03f954
use warnings;
Packit 03f954
Packit 03f954
# This test was generated by Dist::Zilla::Plugin::Test::ReportPrereqs 0.027
Packit 03f954
Packit 03f954
use Test::More tests => 1;
Packit 03f954
Packit 03f954
use ExtUtils::MakeMaker;
Packit 03f954
use File::Spec;
Packit 03f954
Packit 03f954
# from $version::LAX
Packit 03f954
my $lax_version_re =
Packit 03f954
    qr/(?: undef | (?: (?:[0-9]+) (?: \. | (?:\.[0-9]+) (?:_[0-9]+)? )?
Packit 03f954
            |
Packit 03f954
            (?:\.[0-9]+) (?:_[0-9]+)?
Packit 03f954
        ) | (?:
Packit 03f954
            v (?:[0-9]+) (?: (?:\.[0-9]+)+ (?:_[0-9]+)? )?
Packit 03f954
            |
Packit 03f954
            (?:[0-9]+)? (?:\.[0-9]+){2,} (?:_[0-9]+)?
Packit 03f954
        )
Packit 03f954
    )/x;
Packit 03f954
Packit 03f954
# hide optional CPAN::Meta modules from prereq scanner
Packit 03f954
# and check if they are available
Packit 03f954
my $cpan_meta = "CPAN::Meta";
Packit 03f954
my $cpan_meta_pre = "CPAN::Meta::Prereqs";
Packit 03f954
my $HAS_CPAN_META = eval "require $cpan_meta; $cpan_meta->VERSION('2.120900')" && eval "require $cpan_meta_pre"; ## no critic
Packit 03f954
Packit 03f954
# Verify requirements?
Packit 03f954
my $DO_VERIFY_PREREQS = 1;
Packit 03f954
Packit 03f954
sub _max {
Packit 03f954
    my $max = shift;
Packit 03f954
    $max = ( $_ > $max ) ? $_ : $max for @_;
Packit 03f954
    return $max;
Packit 03f954
}
Packit 03f954
Packit 03f954
sub _merge_prereqs {
Packit 03f954
    my ($collector, $prereqs) = @_;
Packit 03f954
Packit 03f954
    # CPAN::Meta::Prereqs object
Packit 03f954
    if (ref $collector eq $cpan_meta_pre) {
Packit 03f954
        return $collector->with_merged_prereqs(
Packit 03f954
            CPAN::Meta::Prereqs->new( $prereqs )
Packit 03f954
        );
Packit 03f954
    }
Packit 03f954
Packit 03f954
    # Raw hashrefs
Packit 03f954
    for my $phase ( keys %$prereqs ) {
Packit 03f954
        for my $type ( keys %{ $prereqs->{$phase} } ) {
Packit 03f954
            for my $module ( keys %{ $prereqs->{$phase}{$type} } ) {
Packit 03f954
                $collector->{$phase}{$type}{$module} = $prereqs->{$phase}{$type}{$module};
Packit 03f954
            }
Packit 03f954
        }
Packit 03f954
    }
Packit 03f954
Packit 03f954
    return $collector;
Packit 03f954
}
Packit 03f954
Packit 03f954
my @include = qw(
Packit 03f954
Packit 03f954
);
Packit 03f954
Packit 03f954
my @exclude = qw(
Packit 03f954
Packit 03f954
);
Packit 03f954
Packit 03f954
# Add static prereqs to the included modules list
Packit 03f954
my $static_prereqs = do './t/00-report-prereqs.dd';
Packit 03f954
Packit 03f954
# Merge all prereqs (either with ::Prereqs or a hashref)
Packit 03f954
my $full_prereqs = _merge_prereqs(
Packit 03f954
    ( $HAS_CPAN_META ? $cpan_meta_pre->new : {} ),
Packit 03f954
    $static_prereqs
Packit 03f954
);
Packit 03f954
Packit 03f954
# Add dynamic prereqs to the included modules list (if we can)
Packit 03f954
my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
Packit 03f954
my $cpan_meta_error;
Packit 03f954
if ( $source && $HAS_CPAN_META
Packit 03f954
    && (my $meta = eval { CPAN::Meta->load_file($source) } )
Packit 03f954
) {
Packit 03f954
    $full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
Packit 03f954
}
Packit 03f954
else {
Packit 03f954
    $cpan_meta_error = $@;    # capture error from CPAN::Meta->load_file($source)
Packit 03f954
    $source = 'static metadata';
Packit 03f954
}
Packit 03f954
Packit 03f954
my @full_reports;
Packit 03f954
my @dep_errors;
Packit 03f954
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;
Packit 03f954
Packit 03f954
# Add static includes into a fake section
Packit 03f954
for my $mod (@include) {
Packit 03f954
    $req_hash->{other}{modules}{$mod} = 0;
Packit 03f954
}
Packit 03f954
Packit 03f954
for my $phase ( qw(configure build test runtime develop other) ) {
Packit 03f954
    next unless $req_hash->{$phase};
Packit 03f954
    next if ($phase eq 'develop' and not $ENV{AUTHOR_TESTING});
Packit 03f954
Packit 03f954
    for my $type ( qw(requires recommends suggests conflicts modules) ) {
Packit 03f954
        next unless $req_hash->{$phase}{$type};
Packit 03f954
Packit 03f954
        my $title = ucfirst($phase).' '.ucfirst($type);
Packit 03f954
        my @reports = [qw/Module Want Have/];
Packit 03f954
Packit 03f954
        for my $mod ( sort keys %{ $req_hash->{$phase}{$type} } ) {
Packit 03f954
            next if $mod eq 'perl';
Packit 03f954
            next if grep { $_ eq $mod } @exclude;
Packit 03f954
Packit 03f954
            my $file = $mod;
Packit 03f954
            $file =~ s{::}{/}g;
Packit 03f954
            $file .= ".pm";
Packit 03f954
            my ($prefix) = grep { -e File::Spec->catfile($_, $file) } @INC;
Packit 03f954
Packit 03f954
            my $want = $req_hash->{$phase}{$type}{$mod};
Packit 03f954
            $want = "undef" unless defined $want;
Packit 03f954
            $want = "any" if !$want && $want == 0;
Packit 03f954
Packit 03f954
            my $req_string = $want eq 'any' ? 'any version required' : "version '$want' required";
Packit 03f954
Packit 03f954
            if ($prefix) {
Packit 03f954
                my $have = MM->parse_version( File::Spec->catfile($prefix, $file) );
Packit 03f954
                $have = "undef" unless defined $have;
Packit 03f954
                push @reports, [$mod, $want, $have];
Packit 03f954
Packit 03f954
                if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
Packit 03f954
                    if ( $have !~ /\A$lax_version_re\z/ ) {
Packit 03f954
                        push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
Packit 03f954
                    }
Packit 03f954
                    elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) {
Packit 03f954
                        push @dep_errors, "$mod version '$have' is not in required range '$want'";
Packit 03f954
                    }
Packit 03f954
                }
Packit 03f954
            }
Packit 03f954
            else {
Packit 03f954
                push @reports, [$mod, $want, "missing"];
Packit 03f954
Packit 03f954
                if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
Packit 03f954
                    push @dep_errors, "$mod is not installed ($req_string)";
Packit 03f954
                }
Packit 03f954
            }
Packit 03f954
        }
Packit 03f954
Packit 03f954
        if ( @reports ) {
Packit 03f954
            push @full_reports, "=== $title ===\n\n";
Packit 03f954
Packit 03f954
            my $ml = _max( map { length $_->[0] } @reports );
Packit 03f954
            my $wl = _max( map { length $_->[1] } @reports );
Packit 03f954
            my $hl = _max( map { length $_->[2] } @reports );
Packit 03f954
Packit 03f954
            if ($type eq 'modules') {
Packit 03f954
                splice @reports, 1, 0, ["-" x $ml, "", "-" x $hl];
Packit 03f954
                push @full_reports, map { sprintf("    %*s %*s\n", -$ml, $_->[0], $hl, $_->[2]) } @reports;
Packit 03f954
            }
Packit 03f954
            else {
Packit 03f954
                splice @reports, 1, 0, ["-" x $ml, "-" x $wl, "-" x $hl];
Packit 03f954
                push @full_reports, map { sprintf("    %*s %*s %*s\n", -$ml, $_->[0], $wl, $_->[1], $hl, $_->[2]) } @reports;
Packit 03f954
            }
Packit 03f954
Packit 03f954
            push @full_reports, "\n";
Packit 03f954
        }
Packit 03f954
    }
Packit 03f954
}
Packit 03f954
Packit 03f954
if ( @full_reports ) {
Packit 03f954
    diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
Packit 03f954
}
Packit 03f954
Packit 03f954
if ( $cpan_meta_error || @dep_errors ) {
Packit 03f954
    diag "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n";
Packit 03f954
}
Packit 03f954
Packit 03f954
if ( $cpan_meta_error ) {
Packit 03f954
    my ($orig_source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
Packit 03f954
    diag "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n";
Packit 03f954
}
Packit 03f954
Packit 03f954
if ( @dep_errors ) {
Packit 03f954
    diag join("\n",
Packit 03f954
        "\nThe following REQUIRED prerequisites were not satisfied:\n",
Packit 03f954
        @dep_errors,
Packit 03f954
        "\n"
Packit 03f954
    );
Packit 03f954
}
Packit 03f954
Packit 03f954
pass;
Packit 03f954
Packit 03f954
# vim: ts=4 sts=4 sw=4 et: