diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-08-24 16:14:26 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-08-24 16:14:26 +0000 |
| commit | 89738ec7ae14c19f69a9abef87954cec4b950f3e (patch) | |
| tree | bebc0d435900e307f0ff4faf28c9a1ed2b014416 /t/parse.t | |
| parent | ece9cd944665ddf42be2542d851cdd2b736b5ca0 (diff) | |
| download | perl-URPM-89738ec7ae14c19f69a9abef87954cec4b950f3e.tar perl-URPM-89738ec7ae14c19f69a9abef87954cec4b950f3e.tar.gz perl-URPM-89738ec7ae14c19f69a9abef87954cec4b950f3e.tar.bz2 perl-URPM-89738ec7ae14c19f69a9abef87954cec4b950f3e.tar.xz perl-URPM-89738ec7ae14c19f69a9abef87954cec4b950f3e.zip | |
test ->arch on a spec file header
Diffstat (limited to 't/parse.t')
| -rw-r--r-- | t/parse.t | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4,7 +4,7 @@ use strict; use warnings; -use Test::More tests => 38; +use Test::More tests => 39; use MDV::Packdrakeng; use URPM; use URPM::Build; @@ -99,6 +99,7 @@ ok(URPM::rpmvercmp("1:1-1mdk", "2:1-1mdk") == -1, "epoch 1 vs 2 = -1"); { my $pkg = URPM::spec2srcheader("test-rpm.spec"); ok(defined $pkg, "Parsing a spec works"); + is($pkg->arch, 'src', 'spec file arch is "src"'); is($pkg->get_tag(1000), 'test-rpm', 'parsed correctly'); $pkg = URPM::spec2srcheader("doesnotexist.spec"); ok(!defined $pkg, "non-existent spec"); |