aboutsummaryrefslogtreecommitdiffstats
path: root/t/parse.t
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-26 14:40:19 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-04-26 14:40:19 +0000
commite3e167c6b306a2685fa6e91fe2d70f5284616984 (patch)
treecdd4be84b21c452e0f8c4a2e84c31ff16fc0d096 /t/parse.t
parent43d0cd7061d89b760359919a78d8f10df6f215ed (diff)
downloadperl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar
perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar.gz
perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar.bz2
perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.tar.xz
perl-URPM-e3e167c6b306a2685fa6e91fe2d70f5284616984.zip
Silence warnings
Diffstat (limited to 't/parse.t')
-rw-r--r--t/parse.t5
1 files changed, 2 insertions, 3 deletions
diff --git a/t/parse.t b/t/parse.t
index 85cbe1c..92d14d0 100644
--- a/t/parse.t
+++ b/t/parse.t
@@ -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");
-