From 6517cd197971687e4e3ae0452b5da1d48772acbd Mon Sep 17 00:00:00 2001
From: cturner <devnull@localhost>
Date: Mon, 8 Dec 2003 21:36:50 +0000
Subject: add bindings and test case to load hdlist files like the python
 bindings

CVS patchset: 6965
CVS date: 2003/12/08 21:36:50
---
 perl-RPM2/test.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-RPM2/test.pl')

diff --git a/perl-RPM2/test.pl b/perl-RPM2/test.pl
index ff3229f01..089c9aa6f 100644
--- a/perl-RPM2/test.pl
+++ b/perl-RPM2/test.pl
@@ -11,7 +11,7 @@ use strict;
 
 use Test;
 use strict;
-BEGIN { plan tests => 35 };
+BEGIN { plan tests => 59 };
 use RPM2;
 ok(1); # If we made it this far, we're ok.
 
@@ -182,3 +182,7 @@ ok(scalar(@rpms) == 1);
 ok($t->run());
 # Test closing the database
 ok($t->close_db());
+
+my @headers = RPM2->open_hdlist("hdlist-test.hdr");
+ok(scalar @headers, 3, 'found three headers in hdlist-test.hdr');
+ok(grep { $_->tag('name') eq 'mod_perl' } @headers);
-- 
cgit v1.2.3