diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-26 14:40:19 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-04-26 14:40:19 +0000 |
| commit | e3e167c6b306a2685fa6e91fe2d70f5284616984 (patch) | |
| tree | cdd4be84b21c452e0f8c4a2e84c31ff16fc0d096 | |
| parent | 43d0cd7061d89b760359919a78d8f10df6f215ed (diff) | |
| download | perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar.gz perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar.bz2 perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar.xz perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.zip | |
Silence warnings
| -rw-r--r-- | t/parse.t | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -33,12 +33,11 @@ $a->build_hdlist(start => 0, ok(-f 'hdlist.cz'); my $b = new URPM; -my ($start, $end) = $b->parse_hdlist('hdlist.cz', keep_all_tags => 1); +($start, $end) = $b->parse_hdlist('hdlist.cz', keep_all_tags => 1); ok(@{$b->{depslist}} == 1); -my $pkg = $b->{depslist}[0]; +$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'); ok($pkg->queryformat("%{NAME}-%{VERSION}-%{RELEASE}.%{ARCH}") eq "test-rpm-1.0-1mdk.noarch"); - |