From ea0efef5a8e321c5950b1c27f08966fe8ed19ecd Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Thu, 19 Jan 2006 11:36:57 +0000
Subject: - add Urpm_spec2srcheader(): return header of src.rpm from a specfile

---
 t/parse.t | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 't/parse.t')

diff --git a/t/parse.t b/t/parse.t
index 9bcc24c..afe59b3 100644
--- a/t/parse.t
+++ b/t/parse.t
@@ -4,7 +4,7 @@
 
 use strict;
 use warnings;
-use Test::More tests => 24;
+use Test::More tests => 26;
 use MDV::Packdrakeng;
 use URPM;
 use URPM::Build;
@@ -62,3 +62,9 @@ ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1");
     ok($pkg->queryformat("%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}") eq "test-rpm-1.0-1mdk.noarch");
     close $hdfh;
 }
+
+{
+    my $pkg = URPM::spec2srcheader("test-rpm.spec");
+    ok(defined $pkg, "Parsing a spec works");
+    ok($pkg->get_tag(1000) eq 'test-rpm');
+}
-- 
cgit v1.2.1