aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2006-11-15 12:21:29 +0000
committerPascal Rigaux <pixel@mandriva.com>2006-11-15 12:21:29 +0000
commita684773347534dae69c29f4a3e6006b2b6541a2a (patch)
tree9f5fe42e6f5dc053d6fefb8678b3a946be88e863
parent2a353c054d97436a52ac5d558558da7a7d5d45f3 (diff)
downloadperl-URPM-a684773347534dae69c29f4a3e6006b2b6541a2a.tar
perl-URPM-a684773347534dae69c29f4a3e6006b2b6541a2a.tar.gz
perl-URPM-a684773347534dae69c29f4a3e6006b2b6541a2a.tar.bz2
perl-URPM-a684773347534dae69c29f4a3e6006b2b6541a2a.tar.xz
perl-URPM-a684773347534dae69c29f4a3e6006b2b6541a2a.zip
do display on which pkgs the 2 sorted lists disagree
-rw-r--r--t/rpmdb.t4
1 files changed, 3 insertions, 1 deletions
diff --git a/t/rpmdb.t b/t/rpmdb.t
index edf2cf8..512ce10 100644
--- a/t/rpmdb.t
+++ b/t/rpmdb.t
@@ -40,6 +40,8 @@ is($pkg_perl, $pkg_perl_extern, '... with the correct fullname');
my @all_pkgs_sorted = sort { $a cmp $b } @all_pkgs;
my $bad_pkgs = 0;
foreach (0..$#all_pkgs_sorted) {
- $all_pkgs_sorted[$_] eq $all_pkgs_extern[$_] or ++$bad_pkgs;
+ $all_pkgs_sorted[$_] eq $all_pkgs_extern[$_] and next;
+ diag($all_pkgs_extern[$_] . " vs " . $all_pkgs_sorted[$_]);
+ ++$bad_pkgs;
}
is($bad_pkgs, 0, 'no mismatch between package lists');