[SCM] libcpan-meta-check-perl Debian packaging branch, master, updated. debian/0.004-1-39-g7d96c48
Karen Etheridge
ether at cpan.org
Wed Apr 24 12:40:42 UTC 2013
The following commit has been merged in the master branch:
commit db81cc1b9c618ea79dc432a9204d64f94ef39ff5
Author: Karen Etheridge <ether at cpan.org>
Date: Sun Apr 21 13:45:49 2013 -0700
convert to Test::Deep
diff --git a/t/10-basics.t b/t/10-basics.t
index 029d3b5..6ce867d 100644
--- a/t/10-basics.t
+++ b/t/10-basics.t
@@ -3,7 +3,7 @@
use strict;
use warnings;
use Test::More 0.88;
-use Test::Differences;
+use Test::Deep;
use CPAN::Meta;
use CPAN::Meta::Check qw/check_requirements verify_dependencies/;
@@ -31,14 +31,14 @@ my %prereq_struct = (
my $meta = CPAN::Meta->create({ prereqs => \%prereq_struct, version => 1, name => 'Foo' }, { lazy_validation => 1 });
-eq_or_diff([ verify_dependencies($meta, 'runtime', 'requires') ], [], 'Requirements are verified');
+cmp_deeply([ verify_dependencies($meta, 'runtime', 'requires') ], [], 'Requirements are verified');
my $pre_req = $meta->effective_prereqs->requirements_for('runtime', 'requires');
is($pre_req->required_modules, 4, 'Requires 4 modules');
-eq_or_diff(check_requirements($pre_req, 'requires'), { map { ( $_ => undef ) } qw/Config File::Spec IO::File perl/ }, 'Requirements are satisfied ');
+cmp_deeply(check_requirements($pre_req, 'requires'), { map { ( $_ => undef ) } qw/Config File::Spec IO::File perl/ }, 'Requirements are satisfied ');
my $pre_rec = $meta->effective_prereqs->requirements_for('runtime', 'recommends');
-eq_or_diff([ sort +$pre_rec->required_modules ], [ qw/Carp Pod::Text This::Should::Be::NonExistent/ ], 'The right recommendations are present');
-eq_or_diff(check_requirements($pre_rec, 'recommends'), { Carp => "Installed version ($Carp::VERSION) of Carp is not in range '99999'", 'Pod::Text' => undef, 'This::Should::Be::NonExistent' => 'Module \'This::Should::Be::NonExistent\' is not installed' }, 'Recommendations give the right errors');
+cmp_deeply([ sort +$pre_rec->required_modules ], [ qw/Carp Pod::Text This::Should::Be::NonExistent/ ], 'The right recommendations are present');
+cmp_deeply(check_requirements($pre_rec, 'recommends'), { Carp => "Installed version ($Carp::VERSION) of Carp is not in range '99999'", 'Pod::Text' => undef, 'This::Should::Be::NonExistent' => 'Module \'This::Should::Be::NonExistent\' is not installed' }, 'Recommendations give the right errors');
done_testing();
--
libcpan-meta-check-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list