aboutsummaryrefslogtreecommitdiff
path: root/t/test.t
diff options
context:
space:
mode:
Diffstat (limited to 't/test.t')
-rwxr-xr-xt/test.t14
1 files changed, 7 insertions, 7 deletions
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;