Use --qf in test to accomodate variations in %_query_all_fmt values

2 files changed, 11 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index fbbc301..e437a94 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2005-12-08 10:29  Rafael Garcia-Suarez <rgarciasuarez at mandriva.com>
+
+	* URPM.pm, URPM.xs: Update copyrights
+
+2005-12-07 17:54  Rafael Garcia-Suarez <rgarciasuarez at mandriva.com>
+
+	* URPM.pm, perl-URPM.spec: 1.30
+
 2005-12-07 17:48  Rafael Garcia-Suarez <rgarciasuarez at mandriva.com>
 
 	* perl-URPM.spec, URPM/Resolve.pm: Fix longstanding epoch promotion
diff --git a/t/rpmdb.t b/t/rpmdb.t
index cae396c..a745611 100644
--- a/t/rpmdb.t
+++ b/t/rpmdb.t
@@ -11,7 +11,7 @@ my ($pkg_perl, $count_perl, $pkg_perl_extern);
     my $db;
     ok($db = URPM::DB::open, 'DB opened');
 
-    @all_pkgs_extern = sort { $a cmp $b } split '\n', `rpm -qa`;
+    @all_pkgs_extern = sort { $a cmp $b } split /\n/ => qx(rpm -qa --qf '%{name}-%{version}-%{release}\n');
     ok(@all_pkgs_extern > 0, 'There are RPMs');
 
     $count = $db->traverse(sub {
@@ -42,4 +42,6 @@ my $bad_pkgs = 0;
 foreach (0..$#all_pkgs_sorted) {
     $all_pkgs_sorted[$_] eq $all_pkgs_extern[$_] or ++$bad_pkgs;
 }
+warn "# ".@all_pkgs_extern[0..3]."\n";
+warn "# ".@all_pkgs_sorted[0..3]."\n";
 is($bad_pkgs, 0, 'no mismatch between package lists');