Add more tests for behaviour described in bug #45054

1 files changed, 35 insertions, 1 deletions

diff --git a/t/superuser--orphans.t b/t/superuser--orphans.t
index 53c0c210..e43874ce 100644
--- a/t/superuser--orphans.t
+++ b/t/superuser--orphans.t
@@ -31,7 +31,6 @@ use Test::More 'no_plan';
 
 need_root_and_prepare();
 
-
 my $name = 'orphans';
 urpmi_addmedia("$name-1 $::pwd/media/$name-1");    
 urpmi_addmedia("$name-2 $::pwd/media/$name-2");
@@ -39,6 +38,7 @@ 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_v1(['h'], 'h', '');
 test_urpme_v1(['hh', 'h'], 'h', 'hh');
 
@@ -67,6 +67,11 @@ test_auto_select(['r', 'rr1'], 'r rr1 rr2', 'r-2 rr1-1', 'rr2-1');
 test_urpme(['g'], 'g', 'g', '');
 test_urpme(['gg', 'g'], 'g', 'g', 'gg-2');
 
+test_unorphan_v1('u1', 'u2');
+test_unorphan_v2('u1', 'u2');
+test_unorphan_v3('u1', 'u2');
+
+
 sub add_version1 { map { "$_-1-1" } split(' ', $_[0] || '') }
 sub add_version2 { map { "$_-2-1" } split(' ', $_[0] || '') }
 sub add_release  { map { "$_-1"   } split(' ', $_[0] || '') }
@@ -157,6 +162,35 @@ sub test_urpme_v1 {
     reset_unrequested_list();
 }
 
+sub test_unorphan_v1 {
+    my ($pkg1, $pkg2) = @_;
+    print "# test_unorphan_v1($pkg1, $pkg2)\n";
+    urpmi("--media $name-1 --auto $pkg1");
+    urpmi("--media $name-1 --auto $pkg2");
+    urpme("--auto --auto-orphans $pkg1");    
+    check_installed_and_remove($pkg2);
+}
+
+sub test_unorphan_v2 {
+    my ($pkg1, $pkg2) = @_;
+    print "# test_unorphan_v2($pkg1, $pkg2)\n";
+    urpmi("--media $name-1 --auto $pkg1");
+    urpme("--auto $pkg1");    
+    urpmi("--media $name-1 --auto $pkg2");
+    urpme("--auto --auto-orphans");    
+    check_installed_and_remove($pkg2);
+}
+
+sub test_unorphan_v3 {
+    my ($pkg1, $pkg2) = @_;
+    print "# test_unorphan_v3($pkg1, $pkg2)\n";
+    urpmi("--media $name-1 --auto $pkg1");
+    check_installed_and_remove($pkg2, $pkg1);
+    urpmi("--media $name-1 --auto $pkg2");
+    urpme("--auto --auto-orphans");    
+    check_installed_and_remove($pkg2);
+}
+
 sub run_and_get_suggested_orphans {
     my ($cmd, @wanted) = @_;
     my $s = run_urpm_cmd($cmd);