diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2008-12-09 15:49:17 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2008-12-09 15:49:17 +0000 |
commit | 3c49691941ee8eac2acb437146b1e96fe9f1b3ee (patch) | |
tree | 6efbb256b03f48024df3f0b75495a4f430ed1e64 | |
parent | 86b15291cca2753b2f80683a29c41988461b5c3b (diff) | |
download | perl-URPM-3c49691941ee8eac2acb437146b1e96fe9f1b3ee.tar perl-URPM-3c49691941ee8eac2acb437146b1e96fe9f1b3ee.tar.gz perl-URPM-3c49691941ee8eac2acb437146b1e96fe9f1b3ee.tar.bz2 perl-URPM-3c49691941ee8eac2acb437146b1e96fe9f1b3ee.tar.xz perl-URPM-3c49691941ee8eac2acb437146b1e96fe9f1b3ee.zip |
- list_rpm_tag() is no more
- remove a failing test (old)
-rw-r--r-- | t/parse.t | 9 |
1 files changed, 1 insertions, 8 deletions
@@ -4,7 +4,7 @@ use strict; use warnings; -use Test::More tests => 41; +use Test::More tests => 39; use MDV::Packdrakeng; use URPM; use URPM::Build; @@ -24,16 +24,9 @@ my ($start, $end) = $a->parse_rpms_build_headers(rpms => [ "RPMS/noarch/test-rpm ok(@{$a->{depslist}} == 1); my $pkg = $a->{depslist}[0]; ok($pkg); -my %tags = $a->list_rpm_tag; -ok(keys %tags); is($pkg->get_tag(1000), 'test-rpm', 'name'); is($pkg->get_tag(1001), '1.0', 'version'); is($pkg->get_tag(1002), '1mdk', 'release'); -TODO: { - local $TODO = "not implemented"; - is($pkg->queryformat("%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}"), "test-rpm-1.0-1mdk.noarch", - q/get headers from parsing rpm/); -} mkdir 'headers'; system('touch headers/empty'); |