From e9f0a49388ee960eb3e8e0ac0adc6b2430442baa Mon Sep 17 00:00:00 2001
From: nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>
Date: Wed, 21 Jun 2006 14:54:50 +0000
Subject: - add test for URL

git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@110 971eb68f-4bfb-0310-8326-d2484c010a4c
---
 RPM4/t/04spec.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'RPM4')

diff --git a/RPM4/t/04spec.t b/RPM4/t/04spec.t
index b1019eb..2fbbb04 100644
--- a/RPM4/t/04spec.t
+++ b/RPM4/t/04spec.t
@@ -1,7 +1,7 @@
 # $Id$
 
 use strict;
-use Test::More tests => 23;
+use Test::More tests => 24;
 use FindBin qw($Bin);
 use File::Temp qw(tempdir);
 use RPM4;
@@ -55,6 +55,7 @@ ok($spec->build([ qw(RMBUILD RMSOURCE) ]) == 0, "simulate cleaning spec, source,
 
 ok(defined($h = $spec->srcheader()), "Geting source header after build");
 ok($h->queryformat("%{NAME}") eq "test-rpm", "can querying header give by spec");
+is($h->tag("URL"), "http://rpm4.zarb.org/", "can get url give by spec");
 
 my ($bh) = $spec->binheader();
 ok(defined($bh), "Can get binary header from spec");
-- 
cgit v1.2.1