From eeb6d2d32ad8e5d2f9eee184c6ca7bffea3df1a1 Mon Sep 17 00:00:00 2001 From: xocel Date: Sat, 5 Jan 2013 00:37:29 +1300 Subject: replaced get_installed_sbos with get_installed_packages 'SBO' in test.t --- t/test.t | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 't/test.t') diff --git a/t/test.t b/t/test.t index daa9d1c..b00d02e 100755 --- a/t/test.t +++ b/t/test.t @@ -53,10 +53,10 @@ move("$sbo_home/SLACKBUILDS.TXT.moved", "$sbo_home/SLACKBUILDS.TXT"); # slackbuilds_or_fetch test is(slackbuilds_or_fetch, 1, 'slackbuilds_or_fetch is good'); -# get_installed_sbos test -print "pseudo-random sampling of get_installed_sbos output...\n"; +# get_installed_packages 'SBO' test +print "pseudo-random sampling of get_installed_packages 'SBO' output...\n"; $SBO::Lib::pkg_db = "$pwd/packages"; -my $installed = get_installed_sbos; +my $installed = get_installed_packages 'SBO'; for my $key (keys @$installed) { is($$installed[$key]{version}, '1.13') if $$installed[$key]{name} eq 'OpenAL'; @@ -71,7 +71,7 @@ for my $key (keys @$installed) { is($$installed[$key]{version}, '2.6.0') if $$installed[$key]{name} eq 'zdoom'; } -print "completed pseudo-random testing of get_installed_sbos \n"; +print "completed pseudo-random testing of get_installed_packages 'SBO' \n"; # get_sbo_location tests is(get_sbo_location ('nginx'), "$sbo_home/network/nginx", @@ -294,7 +294,7 @@ for my $found (@$findings) { } # get_inst_names test -$installed = get_installed_sbos; +$installed = get_installed_packages 'SBO'; my $inst_names = get_inst_names $installed; ok('zdoom' ~~ @$inst_names, 'get_inst_names is good'); -- cgit v1.2.3 From 6b3ec41c846d45782b3e9402f1ba6b2108810c61 Mon Sep 17 00:00:00 2001 From: xocel Date: Sat, 5 Jan 2013 00:58:10 +1300 Subject: added tests for get_installed_packages 'ALL', added native slackware package logs to packages for tests --- t/test.t | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) (limited to 't/test.t') diff --git a/t/test.t b/t/test.t index b00d02e..3c67108 100755 --- a/t/test.t +++ b/t/test.t @@ -73,6 +73,26 @@ for my $key (keys @$installed) { } print "completed pseudo-random testing of get_installed_packages 'SBO' \n"; +# get_installed_packages 'ALL' test +print "pseudo-random sampling of get_installed_packages 'ALL' output...\n"; +$SBO::Lib::pkg_db = "$pwd/packages"; +$installed = get_installed_packages 'ALL'; +for my $key (keys @$installed) { + is($$installed[$key]{version}, '1.13') if $$installed[$key]{name} eq + 'OpenAL'; + is($$installed[$key]{version}, '2.8.2') if $$installed[$key]{name} eq + 'gimp'; + is($$installed[$key]{version}, '4.1.3') if $$installed[$key]{name} eq + 'libdvdnav'; + is($$installed[$key]{version}, '5.16.1') if $$installed[$key]{name} eq + 'perl'; + is($$installed[$key]{version}, '575') if $$installed[$key]{name} eq + 'unetbootin'; + is($$installed[$key]{version}, '1.2.6') if $$installed[$key]{name} eq + 'zlib'; +} +print "completed pseudo-random testing of get_installed_packages 'ALL' \n"; + # get_sbo_location tests is(get_sbo_location ('nginx'), "$sbo_home/network/nginx", 'get_sbo_location is good'); -- cgit v1.2.3 From 271cb97ce0ae30f7fe75d305983a084b17bd691e Mon Sep 17 00:00:00 2001 From: xocel Date: Sat, 5 Jan 2013 01:09:23 +1300 Subject: added native logs to packages (woops), added sbo-compat32 logs to packages, added sbo-compat32 packages to get_installed_packages tests --- t/test.t | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 't/test.t') diff --git a/t/test.t b/t/test.t index 3c67108..d834d76 100755 --- a/t/test.t +++ b/t/test.t @@ -70,6 +70,10 @@ for my $key (keys @$installed) { 'unetbootin'; is($$installed[$key]{version}, '2.6.0') if $$installed[$key]{name} eq 'zdoom'; + is($$installed[$key]{version}, '9.20.1') if $$installed[$key]{name} eq + 'p7zip-compat32'; + is($$installed[$key]{version}, '3.99.5') if $$installed[$key]{name} eq + 'lame-compat32'; } print "completed pseudo-random testing of get_installed_packages 'SBO' \n"; @@ -90,6 +94,10 @@ for my $key (keys @$installed) { 'unetbootin'; is($$installed[$key]{version}, '1.2.6') if $$installed[$key]{name} eq 'zlib'; + is($$installed[$key]{version}, '9.20.1') if $$installed[$key]{name} eq + 'p7zip-compat32'; + is($$installed[$key]{version}, '3.99.5') if $$installed[$key]{name} eq + 'lame-compat32'; } print "completed pseudo-random testing of get_installed_packages 'ALL' \n"; -- cgit v1.2.3