diff options
| author | Olivier Thauvin <nanardon@mandriva.org> | 2006-01-19 11:36:57 +0000 |
|---|---|---|
| committer | Olivier Thauvin <nanardon@mandriva.org> | 2006-01-19 11:36:57 +0000 |
| commit | ea0efef5a8e321c5950b1c27f08966fe8ed19ecd (patch) | |
| tree | e4cd8fcf9e1501d4faa6414b7c08af86fe9a46f2 /t/parse.t | |
| parent | c15e844f1a386540669911b7155de90c8e705c13 (diff) | |
| download | perl-URPM-ea0efef5a8e321c5950b1c27f08966fe8ed19ecd.tar perl-URPM-ea0efef5a8e321c5950b1c27f08966fe8ed19ecd.tar.gz perl-URPM-ea0efef5a8e321c5950b1c27f08966fe8ed19ecd.tar.bz2 perl-URPM-ea0efef5a8e321c5950b1c27f08966fe8ed19ecd.tar.xz perl-URPM-ea0efef5a8e321c5950b1c27f08966fe8ed19ecd.zip | |
- add Urpm_spec2srcheader(): return header of src.rpm from a specfile
Diffstat (limited to 't/parse.t')
| -rw-r--r-- | t/parse.t | 8 |
1 files changed, 7 insertions, 1 deletions
@@ -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'); +} |