From a684773347534dae69c29f4a3e6006b2b6541a2a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 15 Nov 2006 12:21:29 +0000
Subject: do display on which pkgs the 2 sorted lists disagree

---
 t/rpmdb.t | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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');
-- 
cgit v1.2.1