1use strict; 2use warnings; 3 4# this test was generated with Dist::Zilla::Plugin::Test::CheckBreaks 0.019 5 6use Test::More tests => 4; 7 8SKIP: { 9 eval { +require Module::Runtime::Conflicts; Module::Runtime::Conflicts->check_conflicts }; 10 skip('no Module::Runtime::Conflicts module found', 1) if not $INC{'Module/Runtime/Conflicts.pm'}; 11 12 diag $@ if $@; 13 pass 'conflicts checked via Module::Runtime::Conflicts'; 14} 15 16SKIP: { 17 eval { +require Moose::Conflicts; Moose::Conflicts->check_conflicts }; 18 skip('no Moose::Conflicts module found', 1) if not $INC{'Moose/Conflicts.pm'}; 19 20 diag $@ if $@; 21 pass 'conflicts checked via Moose::Conflicts'; 22} 23 24SKIP: { 25 eval { +require Package::Stash::Conflicts; Package::Stash::Conflicts->check_conflicts }; 26 skip('no Package::Stash::Conflicts module found', 1) if not $INC{'Package/Stash/Conflicts.pm'}; 27 28 diag $@ if $@; 29 pass 'conflicts checked via Package::Stash::Conflicts'; 30} 31 32# this data duplicates x_breaks in META.json 33my $breaks = { 34 "Class::MOP" => "<= 1.08", 35 "MooseX::Method::Signatures" => "<= 0.36", 36 "MooseX::Role::WithOverloading" => "<= 0.08", 37 "namespace::clean" => "<= 0.18" 38}; 39 40use CPAN::Meta::Requirements; 41use CPAN::Meta::Check 0.011; 42 43my $reqs = CPAN::Meta::Requirements->new; 44$reqs->add_string_requirement($_, $breaks->{$_}) foreach keys %$breaks; 45 46our $result = CPAN::Meta::Check::check_requirements($reqs, 'conflicts'); 47 48if (my @breaks = grep { defined $result->{$_} } keys %$result) 49{ 50 diag 'Breakages found with Package-Stash:'; 51 diag "$result->{$_}" for sort @breaks; 52 diag "\n", 'You should now update these modules!'; 53} 54 55pass 'checked x_breaks data'; 56