From 43d0cd7061d89b760359919a78d8f10df6f215ed Mon Sep 17 00:00:00 2001
From: Olivier Thauvin <nanardon@mandriva.org>
Date: Sun, 25 Apr 2004 21:33:47 +0000
Subject: - make parse.t pass all test - add $pkg->queryformat test

---
 URPM.xs   |  2 --
 t/parse.t | 13 +++++++------
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/URPM.xs b/URPM.xs
index 307512f..7980c6f 100644
--- a/URPM.xs
+++ b/URPM.xs
@@ -3201,8 +3201,6 @@ Urpm_list_rpm_tag(urpm=Nullsv)
    PPCODE:
        read_config_files(0);
       
-	
-       
        for (i = 0; i < rpmTagTableSize; i++) {
 	XPUSHs(sv_2mortal(newSVpv(rpmTagTable[i].name + 7, 0)));
 	XPUSHs(sv_2mortal(newSViv(rpmTagTable[i].val)));
diff --git a/t/parse.t b/t/parse.t
index 2d5e077..85cbe1c 100644
--- a/t/parse.t
+++ b/t/parse.t
@@ -4,7 +4,7 @@
 
 use strict ;
 use warnings ;
-use Test::More tests => 13;
+use Test::More tests => 15;
 use URPM;
 use URPM::Build;
 use URPM::Query;
@@ -12,14 +12,18 @@ use URPM::Query;
 my $a = new URPM;
 ok($a);
 
+END { unlink 'hdlist.cz' }
+
 my ($start, $end) = $a->parse_rpms_build_headers(rpms => [ "test-rpm-1.0-1mdk.noarch.rpm" ], keep_all_tags => 1);
 ok(@{$a->{depslist}} == 1);
 my $pkg = $a->{depslist}[0];
 ok($pkg);
-ok($a->list_rpm_tag);
+my %tags = $a->list_rpm_tag;
+ok(keys %tags);
 ok($pkg->get_tag(1000) eq 'test-rpm');
 ok($pkg->get_tag(1001) eq '1.0');
 ok($pkg->get_tag(1002) eq '1mdk');
+ok($pkg->queryformat("%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}") eq "test-rpm-1.0-1mdk.noarch");
 
 $a->build_hdlist(start  => 0,
                     end    => $#{$a->{depslist}},
@@ -36,8 +40,5 @@ ok($pkg);
 ok($pkg->get_tag(1000) eq 'test-rpm');
 ok($pkg->get_tag(1001) eq '1.0');
 ok($pkg->get_tag(1002) eq '1mdk');
-
-
-
-
+ok($pkg->queryformat("%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}") eq "test-rpm-1.0-1mdk.noarch");
 
-- 
cgit v1.2.1