From 9596488298cd92f8d640a185e1cd380da07a9f8f Mon Sep 17 00:00:00 2001 From: nanardon Date: Wed, 21 Jun 2006 14:47:24 +0000 Subject: - add test on ->tag('url') git-svn-id: svn+ssh://haiku.zarb.org/home/projects/rpm4/svn/trunk@109 971eb68f-4bfb-0310-8326-d2484c010a4c --- RPM4/t/02header.t | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'RPM4/t/02header.t') 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"); -- cgit v1.2.1