From 12ab108ac9be2fd27700ca2f92b2a73f04ac4803 Mon Sep 17 00:00:00 2001 From: Andreas Guldstrand Date: Sat, 14 Nov 2015 04:04:34 +0100 Subject: Additional Perl::Critic::Freenode fixes, and one missed prototype --- t/test.t | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 't/test.t') diff --git a/t/test.t b/t/test.t index 07b8704..deb0464 100755 --- a/t/test.t +++ b/t/test.t @@ -105,21 +105,21 @@ for my $key (keys @$installed) { } print "completed pseudo-random testing of get_installed_packages 'ALL' \n"; -# get_sbo_location tests +# get_sbo_location/get_sbo_locations tests is(get_sbo_location ('nginx'), "$sbo_home/network/nginx", 'get_sbo_location is good'); is(get_sbo_location ('omgwtfbbq'), 0, 'get_sbo_location returns false with not-an-sbo input'); my @finds = qw(nginx gmpc); -my %locs = get_sbo_location(@finds); +my %locs = get_sbo_locations(@finds); is($locs{nginx}, "$sbo_home/network/nginx", - 'get_sbo_location passed array #1 good'); -is($locs{gmpc}, "$sbo_home/audio/gmpc", 'get_sbo_location passed array #2 good'); -%locs = get_sbo_location(\@finds); + 'get_sbo_locations passed array #1 good'); +is($locs{gmpc}, "$sbo_home/audio/gmpc", 'get_sbo_locations passed array #2 good'); +%locs = get_sbo_locations(\@finds); is($locs{nginx}, "$sbo_home/network/nginx", - 'get_sbo_location passed array ref #1 good'); + 'get_sbo_locations passed array ref #1 good'); is($locs{gmpc}, "$sbo_home/audio/gmpc", - 'get_sbo_location passed array ref #2 good'); + 'get_sbo_locations passed array ref #2 good'); # get_available_updates tests my $updates = get_available_updates; -- cgit v1.2.3