From 21fd97976a2b15cd0540ac69e06cfe3f12e0efbc Mon Sep 17 00:00:00 2001 From: "H.Merijn Brand" Date: Wed, 7 Sep 2011 09:20:04 +0200 Subject: [PATCH] Make minimal version checks subtests --- sandbox/genMETA.pm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/sandbox/genMETA.pm b/sandbox/genMETA.pm index 9c0a47e..7102438 100644 --- a/sandbox/genMETA.pm +++ b/sandbox/genMETA.pm @@ -2,7 +2,7 @@ package genMETA; -our $VERSION = "1.02-20110904"; +our $VERSION = "1.03-20110907"; use strict; use warnings; @@ -12,6 +12,7 @@ use List::Util qw( first ); use Encode qw( encode decode ); use Test::YAML::Meta::Version; use Test::MinimumVersion; +use Test::More (); use Parse::CPAN::Meta; use File::Find; use YAML::Syck; @@ -233,7 +234,9 @@ sub check_minimum $reqv or croak "No minimal required version for perl"; print "Checking if $reqv is still OK as minimal version for $paths\n"; # All other minimum version checks done in xt - all_minimum_version_ok ($reqv, $locs); + Test::More::subtest "Minimum perl version $reqv" => sub { + all_minimum_version_ok ($reqv, $locs); + }; } # check_minimum sub print_yaml -- 2.11.4.GIT