Blame t/z_perl_minimum_version.t
|
Packit |
e3b616 |
# -*- perl -*-
|
|
Packit |
e3b616 |
|
|
Packit |
e3b616 |
# Test that our declared minimum Perl version matches our syntax
|
|
Packit |
e3b616 |
use strict;
|
|
Packit |
e3b616 |
BEGIN {
|
|
Packit |
e3b616 |
$| = 1;
|
|
Packit |
e3b616 |
$^W = 1;
|
|
Packit |
e3b616 |
}
|
|
Packit |
e3b616 |
|
|
Packit |
e3b616 |
my @MODULES = (
|
|
Packit |
e3b616 |
'Perl::MinimumVersion 1.20',
|
|
Packit |
e3b616 |
'Test::MinimumVersion 0.008',
|
|
Packit |
e3b616 |
);
|
|
Packit |
e3b616 |
|
|
Packit |
e3b616 |
# Don't run tests during end-user installs
|
|
Packit |
e3b616 |
use Test::More;
|
|
Packit |
e3b616 |
unless (-d '.git' || $ENV{IS_MAINTAINER}) {
|
|
Packit |
e3b616 |
plan( skip_all => "Author tests not required for installation" );
|
|
Packit |
e3b616 |
}
|
|
Packit |
e3b616 |
|
|
Packit |
e3b616 |
# Load the testing modules
|
|
Packit |
e3b616 |
foreach my $MODULE ( @MODULES ) {
|
|
Packit |
e3b616 |
eval "use $MODULE";
|
|
Packit |
e3b616 |
if ( $@ ) {
|
|
Packit |
e3b616 |
plan( skip_all => "$MODULE not available for testing" );
|
|
Packit |
e3b616 |
die "Failed to load required release-testing module $MODULE"
|
|
Packit |
e3b616 |
if -d '.git' || $ENV{IS_MAINTAINER};
|
|
Packit |
e3b616 |
}
|
|
Packit |
e3b616 |
}
|
|
Packit |
e3b616 |
|
|
Packit |
e3b616 |
all_minimum_version_ok("5.006");
|
|
Packit |
e3b616 |
|
|
Packit |
e3b616 |
1;
|