From 89738ec7ae14c19f69a9abef87954cec4b950f3e Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 24 Aug 2012 16:14:26 +0000
Subject: test ->arch on a spec file header

---
 t/parse.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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");
-- 
cgit v1.2.1