diff options
| -rwxr-xr-x | t/test.t | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -69,14 +69,14 @@ is (get_sbo_location ('nginx'), "$sbo_home/network/nginx", is (get_sbo_location ('omgwtfbbq'), undef, 'get_sbo_location returns false with not-an-sbo input'); my @finds = qw(nginx gmpc); -my @locs = get_sbo_location (@finds); -is ($locs[0], "$sbo_home/network/nginx", +my %locs = get_sbo_location (@finds); +is ($locs{nginx}, "$sbo_home/network/nginx", 'get_sbo_location passed array #1 good'); -is ($locs[1], "$sbo_home/audio/gmpc", 'get_sbo_location passed array #2 good'); -@locs = get_sbo_location (\@finds); -is ($locs[0], "$sbo_home/network/nginx", +is ($locs{gmpc}, "$sbo_home/audio/gmpc", 'get_sbo_location passed array #2 good'); +%locs = get_sbo_location (\@finds); +is ($locs{nginx}, "$sbo_home/network/nginx", 'get_sbo_location passed array ref #1 good'); -is ($locs[1], "$sbo_home/audio/gmpc", +is ($locs{gmpc}, "$sbo_home/audio/gmpc", 'get_sbo_location passed array ref #2 good'); # 21-22, get_available_updates tests |