diff options
| -rw-r--r-- | t/parse.t | 24 |
1 files changed, 23 insertions, 1 deletions
@@ -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'); + |