diff options
Diffstat (limited to 't/superuser--orphans-kernels.t')
| -rw-r--r-- | t/superuser--orphans-kernels.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/t/superuser--orphans-kernels.t b/t/superuser--orphans-kernels.t new file mode 100644 index 00000000..2b6e00dd --- /dev/null +++ b/t/superuser--orphans-kernels.t @@ -0,0 +1,32 @@ +#!/usr/bin/perl + +# kernel-desktop-latest request latest kernel-desktop-foobar +# +use strict; +use lib '.', 't'; +use helper; +use urpm::orphans; +use Test::More 'no_plan'; + +need_root_and_prepare(); + +my $name = 'kernel'; +urpmi_addmedia("$name-1 $::pwd/media/$name-1"); +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 }); + +# old naming, each kernel NVR is N=kernel-desktop-5.6.2-1, V=1 R=1.mga8 +test_unorphan_kernels("$name-1", 'kernel-desktop-latest'); + +sub test_unorphan_kernels { + my ($medium, $pkg) = @_; + my $base_kversion = '5.15.4'; + print "# test_unorphan_kernels($pkg) ($base_kversion)\n"; + urpmi("--media $medium --auto $pkg-${base_kversion}$_-1") foreach 1..4; + urpmi("--media $medium --auto $pkg"); + urpme("--auto --auto-orphans"); + check_installed_and_remove($pkg, "kernel-desktop-${base_kversion}5-1.mga8"); +} + |