From 9d47b96f516e9418edf2ed2db39c56faff62fd02 Mon Sep 17 00:00:00 2001 From: Jacob Pipkin Date: Sun, 4 Nov 2012 11:02:10 -0600 Subject: tests added for new get_sbo_location capabilities (all fail) --- t/test.t | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 't') diff --git a/t/test.t b/t/test.t index 92dc410..d3e2017 100755 --- a/t/test.t +++ b/t/test.t @@ -63,11 +63,21 @@ for my $key (keys @$installed) { } print "completed pseudo-random testing of get_installed_sbos \n"; -# 19-20, get_sbo_location tests +# get_sbo_location tests is (get_sbo_location ('nginx'), "$sbo_home/network/nginx", 'get_sbo_location is good'); 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", + '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", + 'get_sbo_location passed array ref #1 good'); +is ($locs[1], "$sbo_home/audio/gmpc", + 'get_sbo_location passed array ref #2 good'); # 21-22, get_available_updates tests my $updates = get_available_updates; -- cgit v1.2.3