aboutsummaryrefslogtreecommitdiffstats
path: root/t/rpmdb.t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-01-06 11:12:11 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2006-01-06 11:12:11 +0000
commitef5e77fbec9251f101585f25097f9c41a909391f (patch)
treeba7c8ca24d339186d4fab4d9ab44e6da852c94a9 /t/rpmdb.t
parent8463ce4a7bd1694873abade672f9b048b949563a (diff)
downloadperl-URPM-ef5e77fbec9251f101585f25097f9c41a909391f.tar
perl-URPM-ef5e77fbec9251f101585f25097f9c41a909391f.tar.gz
perl-URPM-ef5e77fbec9251f101585f25097f9c41a909391f.tar.bz2
perl-URPM-ef5e77fbec9251f101585f25097f9c41a909391f.tar.xz
perl-URPM-ef5e77fbec9251f101585f25097f9c41a909391f.zip
Use --qf in test to accomodate variations in %_query_all_fmt values
Diffstat (limited to 't/rpmdb.t')
-rw-r--r--t/rpmdb.t4
1 files changed, 3 insertions, 1 deletions
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');