From 1be9a83c49f1a2650fd9fc896f39c6d4d9c9c93d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 25 Feb 2008 21:13:21 +0000 Subject: do not do "uniq" on "fullname" since gpg-pubkey-xxxxxxxx-xxxxxxxx can be installed twice --- t/rpmdb.t | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 't') diff --git a/t/rpmdb.t b/t/rpmdb.t index 512ce10..b263013 100644 --- a/t/rpmdb.t +++ b/t/rpmdb.t @@ -5,7 +5,7 @@ use warnings ; use Test::More tests => 7; use URPM; -my ($count, @all_pkgs_extern, %all_pkgs, @all_pkgs); +my ($count, @all_pkgs_extern, @all_pkgs); my ($pkg_perl, $count_perl, $pkg_perl_extern); { my $db; @@ -19,10 +19,9 @@ my ($pkg_perl, $count_perl, $pkg_perl_extern); my ($name, $version, $release, $arch) = $pkg->fullname; #- arch is void for -pubkey- package. my $fullname = "$name-$version-$release"; - $all_pkgs{$fullname}++; + push @all_pkgs, $fullname; if ($name eq 'perl') { $pkg_perl_extern = $fullname } }); - @all_pkgs = keys %all_pkgs; $count_perl = $db->traverse_tag('name', ['perl'], sub { my ($pkg) = @_; -- cgit v1.2.1