[Reproducible-commits] [libextutils-depends-perl] 152/187: Tests all have names.

Maria Valentina Marin Rodrigues akira-guest at moszumanska.debian.org
Wed Jan 21 21:16:59 UTC 2015


This is an automated email from the git hooks/post-receive script.

akira-guest pushed a commit to branch pu/reproducible_builds
in repository libextutils-depends-perl.

commit 0fc66e04d27b66b30ad16cdef9f9c34263e841e3
Author: Ed J <mohawk2 at users.noreply.github.com>
Date:   Sun Aug 3 20:01:08 2014 +0100

    Tests all have names.
---
 Makefile.PL      |  2 +-
 t/02_save_load.t | 40 +++++++++++++++++++++-------------------
 2 files changed, 22 insertions(+), 20 deletions(-)

diff --git a/Makefile.PL b/Makefile.PL
index e8ee529..9e3e608 100644
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -42,7 +42,7 @@ my %meta_merge = (
         },
         build => {
             requires => {
-                'Test::More' => 0,
+                'Test::More' => 0.88,
             },
         },
         test => {
diff --git a/t/02_save_load.t b/t/02_save_load.t
index 3e6c4b1..70935f5 100644
--- a/t/02_save_load.t
+++ b/t/02_save_load.t
@@ -2,7 +2,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 29;
+use Test::More;
 
 use FindBin;
 use lib "$FindBin::Bin/lib";
@@ -47,28 +47,28 @@ $dep_info->save_config (catfile $tmp_inc, qw(DepTest Install Files.pm));
 # --------------------------------------------------------------------------- #
 
 my %vars = $dep_info->get_makefile_vars;
-is_deeply ($vars{TYPEMAPS}, \@typemaps);
-is ($vars{INC}, $inc);
-is ($vars{LIBS}, $libs);
+is_deeply ($vars{TYPEMAPS}, \@typemaps, 'makefile vars typemaps');
+is ($vars{INC}, $inc, 'makefile vars inc');
+is ($vars{LIBS}, $libs, 'makefile vars libs');
 
 foreach my $pm (keys %pm_mapping) {
-  like ($vars{PM}{$pm}, qr/\Q$pm_mapping{$pm}\E/);
+  like ($vars{PM}{$pm}, qr/\Q$pm_mapping{$pm}\E/, 'makefile vars PM');
 }
 
-ok (exists $vars{PM}{catfile $tmp_inc, qw(DepTest Install Files.pm)});
+ok (exists $vars{PM}{catfile $tmp_inc, qw(DepTest Install Files.pm)}, 'PM');
 
 foreach my $file (@installed_files) {
-  like ($vars{PM}{$file}, qr/\Q$file\E/);
+  like ($vars{PM}{$file}, qr/\Q$file\E/, "PM $file");
 }
 
 foreach my $xs_file (@xs_files) {
-  ok (exists $vars{XS}{$xs_file});
+  ok (exists $vars{XS}{$xs_file}, "XS $xs_file");
 }
 
 foreach my $file (@c_files, @xs_files) {
   (my $stem = $file) =~ s/\.(?:c|xs)\z//;
-  like ($vars{OBJECT}, qr/\Q$stem\E/);
-  like ($vars{clean}{FILES}, qr/\Q$stem\E/);
+  like ($vars{OBJECT}, qr/\Q$stem\E/, "OBJECT $stem");
+  like ($vars{clean}{FILES}, qr/\Q$stem\E/, "FILES $stem");
 }
 
 # --------------------------------------------------------------------------- #
@@ -76,8 +76,8 @@ foreach my $file (@c_files, @xs_files) {
 my $info = ExtUtils::Depends::load ('DepTest');
 
 my $install_part = qr|DepTest.Install|;
-like ($info->{inc}, $install_part);
-isnt (index($info->{inc}, $inc), -1);
+like ($info->{inc}, $install_part, "loaded inc");
+isnt (index($info->{inc}, $inc), -1, "loaded inc content");
 
 my @typemaps_expected = map { my $t = $_; $t =~ s#build/##; $t } @typemaps;
 sub strip_typemap { my $t = $_; my $tmp = catfile('DepTest','Install',' '); $tmp =~ s# $##; $t =~ s#.*\Q$tmp\E##; $t }
@@ -87,23 +87,23 @@ is_deeply (
   'check typemaps actually saved/loaded'
 );
 
-like ($info->{instpath}, $install_part);
+like ($info->{instpath}, $install_part, 'instpath');
 
-is_deeply ($info->{deps}, []);
+is_deeply ($info->{deps}, [], 'basic deps');
 
-is ($info->{libs}, $libs);
+is ($info->{libs}, $libs, 'basic libs');
 
 # now check package vars are set, per the ::load doc!
 {
 no warnings qw(once);
-is ($DepTest::Install::Files::inc, $inc);
+is ($DepTest::Install::Files::inc, $inc, 'package inc');
 is_deeply (
   [ map { strip_typemap($_) } @DepTest::Install::Files::typemaps ],
   \@typemaps_expected,
-  'api check typemaps'
+  'package typemaps'
 );
-is_deeply (\@DepTest::Install::Files::deps, []);
-is ($DepTest::Install::Files::libs, $libs);
+is_deeply (\@DepTest::Install::Files::deps, [], 'package deps');
+is ($DepTest::Install::Files::libs, $libs, 'package libs');
 }
 
 # test Inline class method
@@ -118,3 +118,5 @@ is_deeply (
 );
 
 # --------------------------------------------------------------------------- #
+
+done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/reproducible/libextutils-depends-perl.git



More information about the Reproducible-commits mailing list