From 303c1a457e142968d06ac966705dfc58dca32e44 Mon Sep 17 00:00:00 2001 From: Olivier Thauvin Date: Thu, 22 Apr 2004 09:54:05 +0000 Subject: - test rpm parsing and hdlist generation --- t/parse.t | 24 +++++++++++++++++++++++- 1 file changed, 23 insertions(+), 1 deletion(-) diff --git a/t/parse.t b/t/parse.t index 16dfc94..2d5e077 100644 --- a/t/parse.t +++ b/t/parse.t @@ -1,8 +1,10 @@ #!/usr/bin/perl +# $Id$ + use strict ; use warnings ; -use Test::More tests => 4; +use Test::More tests => 13; use URPM; use URPM::Build; use URPM::Query; @@ -14,7 +16,27 @@ my ($start, $end) = $a->parse_rpms_build_headers(rpms => [ "test-rpm-1.0-1mdk.no ok(@{$a->{depslist}} == 1); my $pkg = $a->{depslist}[0]; ok($pkg); +ok($a->list_rpm_tag); ok($pkg->get_tag(1000) eq 'test-rpm'); +ok($pkg->get_tag(1001) eq '1.0'); +ok($pkg->get_tag(1002) eq '1mdk'); + +$a->build_hdlist(start => 0, + end => $#{$a->{depslist}}, + hdlist => 'hdlist.cz', + ratio => 9); + +ok(-f 'hdlist.cz'); + +my $b = new URPM; +my ($start, $end) = $b->parse_hdlist('hdlist.cz', keep_all_tags => 1); +ok(@{$b->{depslist}} == 1); +my $pkg = $b->{depslist}[0]; +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'); + -- cgit v1.2.1