From 6d00e4754013dfcae066a729b8843ec970119c11 Mon Sep 17 00:00:00 2001 From: rjray Date: Sun, 6 Aug 2000 08:57:09 +0000 Subject: [PATCH] Changed some tests to fit new RPM::Header behavior. CVS patchset: 4017 CVS date: 2000/08/06 08:57:09 --- Perl-RPM/t/01_database.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Perl-RPM/t/01_database.t b/Perl-RPM/t/01_database.t index c55aab6..08e1f8f 100755 --- a/Perl-RPM/t/01_database.t +++ b/Perl-RPM/t/01_database.t @@ -56,12 +56,12 @@ print "ok 7\n"; print "not " unless (@matches == 1); print "ok 8\n"; -print "not " unless ($matches[0]->{name}->[0] eq 'rpm'); +print "not " unless ($matches[0]->{name} eq 'rpm'); print "ok 9\n"; # There may be more than one package that depends on rpm @matches = $rpm->find_by_required_by('rpm'); -for (@matches) { $_ = $_->{name}->[0] } +for (@matches) { $_ = $_->{name} } # As long as we see this one (it has to be present to build this package) print "not " unless (grep 'rpm-devel', @matches); print "ok 10\n"; -- 2.7.4