aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-08-24 16:14:26 +0000
committerThierry Vignaud <tv@mageia.org>2012-08-24 16:14:26 +0000
commit89738ec7ae14c19f69a9abef87954cec4b950f3e (patch)
treebebc0d435900e307f0ff4faf28c9a1ed2b014416 /t
parentece9cd944665ddf42be2542d851cdd2b736b5ca0 (diff)
downloadperl-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')
-rw-r--r--t/parse.t3
1 files changed, 2 insertions, 1 deletions
diff --git a/t/parse.t b/t/parse.t
index 92159e8..f734894 100644
--- a/t/parse.t
+++ b/t/parse.t
@@ -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");