More direction

[gitmo/moose-presentations.git] / moose-class / exercises / t / 00-prereq.t

use strict;
use warnings;

use lib 't/lib';

use Test::More tests => 1;

my %prereqs = (
    'Moose'      => '0.85',
    'Class::MOP' => '0.88',
);

my @missing;
for my $mod ( keys %prereqs ) {
    eval "require $mod";

    if ($@) {
        push @missing, "$mod is not installed";
        next;
    }

    if ( $mod->VERSION < $prereqs{$mod} ) {
        push @missing, "$mod must be version $prereqs{$mod} or greater";
    }
}

if (@missing) {
    diag "\n***********************************************************\n";
    diag "\n";
    diag " Found the following prereq problems ...\n";
    diag "   $_\n" for @missing;
    diag "\n";
    diag " ***********************************************************\n";
}

ok( ! @missing, 'Checking for prereqs' );