summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--t/superuser--orphans.t21
1 files changed, 21 insertions, 0 deletions
diff --git a/t/superuser--orphans.t b/t/superuser--orphans.t
index c713d2d6..b4275b16 100644
--- a/t/superuser--orphans.t
+++ b/t/superuser--orphans.t
@@ -24,6 +24,7 @@ use strict;
use lib '.', 't';
use helper;
use urpm::util;
+use urpm::orphans;
use Test::More 'no_plan';
need_root_and_prepare();
@@ -36,6 +37,8 @@ urpmi_addmedia("$name-2 $::pwd/media/$name-2");
# we want urpmi --auto-select to always check orphans (when not using --auto-orphans)
set_urpmi_cfg_global_options({ 'nb-of-new-unrequested-pkgs-between-auto-select-orphans-check' => 0 });
+test_urpme(['h'], 'h', '');
+test_urpme(['hh', 'h'], 'h', 'hh');
test_auto_select_both('a', '', 'a-2');
test_auto_select_both('b', '', 'bb-2');
@@ -86,6 +89,7 @@ sub test_urpme1 {
urpmi("--media $name-1 --auto $pkg");
urpme("--auto --auto-orphans $pkg");
check_nothing_installed();
+ reset_unrequested_list();
}
sub test_urpme2 {
my ($pkg, $wanted) = @_;
@@ -97,6 +101,7 @@ sub test_urpme2 {
run_and_get_suggested_orphans("urpme $pkg", add_version1($wanted));
urpme("--auto --auto-orphans");
check_nothing_installed();
+ reset_unrequested_list();
}
sub test_auto_select {
@@ -115,6 +120,7 @@ sub test_auto_select_raw_urpmq_urpme {
is(run_urpm_cmd('urpmq -r --auto-orphans'), join('', sort map { "$_\n" } split ' ', $orphans_v2));
urpme("--auto --auto-orphans");
check_installed_fullnames_and_remove(split ' ', $wanted_v2);
+ reset_unrequested_list();
}
sub test_auto_select_raw_auto_orphans {
@@ -124,6 +130,7 @@ sub test_auto_select_raw_auto_orphans {
check_installed_fullnames(split ' ', $wanted_v1);
urpmi("--media $name-2 --auto --auto-select --auto-orphans");
check_installed_fullnames_and_remove(split ' ', $wanted_v2);
+ reset_unrequested_list();
}
sub test_auto_select_urpme {
@@ -133,6 +140,16 @@ sub test_auto_select_urpme {
urpmi("--media $name-2 --auto --auto-select");
urpme("--auto --auto-orphans $remove_v2");
check_installed_fullnames_and_remove(split ' ', $remaining_v2);
+ reset_unrequested_list();
+}
+
+sub test_urpme {
+ my ($req_v1, $remove_v1, $remaining_v1) = @_;
+ print "# test_auto_select_urpme(@$req_v1, $remaining_v1)\n";
+ urpmi("--media $name-1 --auto $_") foreach @$req_v1;
+ urpme("--auto --auto-orphans $remove_v1");
+ check_installed_and_remove(split ' ', $remaining_v1);
+ reset_unrequested_list();
}
sub run_and_get_suggested_orphans {
@@ -147,3 +164,7 @@ sub run_and_get_suggested_orphans {
my $wanted = join(" -- ", sort @wanted);
ok($msg eq $wanted, "wanted:$wanted, got:$msg");
}
+
+sub reset_unrequested_list() {
+ output_safe(urpm::orphans::unrequested_list__file({ root => 'root' }), '');
+}