diff options
author | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 11:06:40 -0600 |
---|---|---|
committer | Jacob Pipkin <j@dawnrazor.net> | 2012-11-04 11:06:40 -0600 |
commit | 3e13816918e42d1a2946f2bd2b6f9b93e865eb16 (patch) | |
tree | 109a828ccaf7237146e535a0bc1b858b9e2b8d26 | |
parent | 9d47b96f516e9418edf2ed2db39c56faff62fd02 (diff) | |
download | sbotools2-3e13816918e42d1a2946f2bd2b6f9b93e865eb16.tar.xz |
fix so that new get_sbo_location tests are actually done correctly - fixes two of the four
-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 |