summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2006-06-21 14:54:50 +0000
committernanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c>2006-06-21 14:54:50 +0000
commite9f0a49388ee960eb3e8e0ac0adc6b2430442baa (patch)
tree29db797427318139e1103cc41ca12cc8be458054
parent9596488298cd92f8d640a185e1cd380da07a9f8f (diff)
downloadperl-RPM4-e9f0a49388ee960eb3e8e0ac0adc6b2430442baa.tar
perl-RPM4-e9f0a49388ee960eb3e8e0ac0adc6b2430442baa.tar.gz
perl-RPM4-e9f0a49388ee960eb3e8e0ac0adc6b2430442baa.tar.bz2
perl-RPM4-e9f0a49388ee960eb3e8e0ac0adc6b2430442baa.tar.xz
perl-RPM4-e9f0a49388ee960eb3e8e0ac0adc6b2430442baa.zip
- add test for URL
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@110 971eb68f-4bfb-0310-8326-d2484c010a4c
-rw-r--r--RPM4/t/04spec.t3
1 files changed, 2 insertions, 1 deletions
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");