diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-21 14:54:50 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-21 14:54:50 +0000 |
| commit | e9f0a49388ee960eb3e8e0ac0adc6b2430442baa (patch) | |
| tree | 29db797427318139e1103cc41ca12cc8be458054 | |
| parent | 9596488298cd92f8d640a185e1cd380da07a9f8f (diff) | |
| download | perl-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.t | 3 |
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"); |