diff options
| author | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-21 14:47:24 +0000 |
|---|---|---|
| committer | nanardon <nanardon@971eb68f-4bfb-0310-8326-d2484c010a4c> | 2006-06-21 14:47:24 +0000 |
| commit | 9596488298cd92f8d640a185e1cd380da07a9f8f (patch) | |
| tree | 8516d70a3fe6234923fe32112e9573fc09d1eeb4 /RPM4/t/02header.t | |
| parent | 63bce8500996311f50f008f9eedae8b7112a2378 (diff) | |
| download | perl-RPM4-9596488298cd92f8d640a185e1cd380da07a9f8f.tar perl-RPM4-9596488298cd92f8d640a185e1cd380da07a9f8f.tar.gz perl-RPM4-9596488298cd92f8d640a185e1cd380da07a9f8f.tar.bz2 perl-RPM4-9596488298cd92f8d640a185e1cd380da07a9f8f.tar.xz perl-RPM4-9596488298cd92f8d640a185e1cd380da07a9f8f.zip | |
- add test on ->tag('url')
git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@109 971eb68f-4bfb-0310-8326-d2484c010a4c
Diffstat (limited to 'RPM4/t/02header.t')
| -rw-r--r-- | RPM4/t/02header.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/RPM4/t/02header.t b/RPM4/t/02header.t index 2fff439..e8fdb28 100644 --- a/RPM4/t/02header.t +++ b/RPM4/t/02header.t @@ -1,7 +1,7 @@ # $Id$ use strict; -use Test::More tests => 40; +use Test::More tests => 41; use FindBin qw($Bin); use RPM4; @@ -22,6 +22,7 @@ ok($hdr->hastag(1044) eq 0, "Has tag 1044 (SOURCERPM), yes"); ok($hdr->listtag(), "can list tag"); is($hdr->tag(1000), "test-rpm", "accessing tag by id works"); is($hdr->tag("NAME"), "test-rpm", "accessing tag by name works"); +is($hdr->tag("URL"), "http://rpm4.zarb.org/", "accessing tag by name works"); is($hdr->NAME(), "test-rpm", "accessing tag directly works"); ok($hdr->queryformat("%{NAME}-%{VERSION}-%{RELEASE}") eq "test-rpm-1.0-1mdk", "Queryformat is ok"); ok($hdr->nevr() eq "test-rpm-1.0-1mdk", "header->nevr works"); |