From 3e13816918e42d1a2946f2bd2b6f9b93e865eb16 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Sun, 4 Nov 2012 11:06:40 -0600 Subject: fix so that new get_sbo_location tests are actually done correctly - fixes two of the four --- t/test.t | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 't/test.t') diff --git a/t/test.t b/t/test.t index d3e2017..c52669d 100755 --- a/t/test.t +++ b/t/test.t @@ -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 -- cgit v1.2.3