testing/os-autoinst-distri-rocky-migrated
10
0
Fork 0
Code Issues 12 Pull Requests 1 Packages Projects Releases Wiki Activity

updates for modularity_tests

Browse Source 
- currently passes when _console_wait_login follows 
_do_install_and_reboot
- when _graphical_wait_login is fixed for 
PACKAGE_SET={graphical-server|workstation} then 
modularity_module_list.pm must be validated
This commit is contained in:
Trevor Cooper 2021-09-15 21:50:48 -07:00
parent a3b90cc863
commit 84264ec6fc
2 changed files with 27 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lib/modularity.pm
View File

@ -23,7 +23,7 @@ sub parse_module_list {
foreach my $line (@output_lines) { foreach my $line (@output_lines) {
my ($module, $stream, $profile) = split(/\s+/, $line); my ($module, $stream, $profile) = split(/\s+/, $line);
unless ($module =~ /Fedora|Last|Hint|Name|^$/) { unless ($module =~ /Rocky|Last|Hint|Name|^$/) {
$profile =~ s/,$//; $profile =~ s/,$//;
my %module = ("module" => $module, "stream" => $stream, "profile" => $profile); my %module = ("module" => $module, "stream" => $stream, "profile" => $profile);
push(@parsed_list, \%module); push(@parsed_list, \%module);

37
tests/modularity_module_list.pm
View File

@ -19,19 +19,34 @@ sub run {
# packages this will need to assume what appears to be the default in minimal. # packages this will need to assume what appears to be the default in minimal.
my $modules = script_output('dnf module list --enabled', timeout => 270); my $modules = script_output('dnf module list --enabled', timeout => 270);
my @modules = parse_module_list($modules); my @modules = parse_module_list($modules);
die "Enabled modules is less than the default (3)." unless (scalar @modules < 3); my $module_count = scalar @modules;
die "Enabled modules is greater than the default (3)." unless (scalar @modules > 3);
# More advanced... loop over default modules and check them directly. The is_listed my $flavor = get_var('FLAVOR', 'minimal-iso');
# bit comes from modularity_enable_disable_module.pm my $packageset = get_var('PACKAGE_SET', 'minimal');
#perl 5.26 [d][e] if ($flavor eq 'boot-iso') {
#perl-IO-Socket-SSL 2.066 [d][e] die "There seem to be enabled modules when the list should be empty." unless ($module_count == 0);
#perl-libwww-perl 6.34 [d][e] } elsif ($flavor eq 'minimal-iso') {
#my @enabled_modules = parse_module_list($enabled); if ($packageset eq 'minimal') {
#unless (is_listed($name, $stream, \@enabled_modules)) { die "There seem to be enabled modules when the list should be empty." unless ($module_count == 0);
# die "The enabled module is not listed in the list of enabled modules but it should be."; } elsif ($packageset eq 'server') {
#} die "There seem to be enabled modules when the list should be empty." unless ($module_count == 0);
}
} elsif ($flavor eq 'dvd-iso' || $flavor eq 'universal') {
if ($packageset eq 'minimal') {
die "Enabled modules ($module_count) is not equal to the default (1)." unless (scalar @modules == 1);
} elsif ($packageset eq 'server') {
die "Enabled modules ($module_count) is not equal to the default (2)." unless (scalar @modules == 2);
} elsif ($packageset eq 'graphical-server') {
die "Enabled modules ($module_count) is not equal to the default (9)." unless (scalar @modules == 9);
} elsif ($packageset eq 'workstation') {
die "Enabled modules ($module_count) is not equal to the default (6)." unless (scalar @modules == 6);
} elsif ($packageset eq 'virtualization-host') {
die "Enabled modules ($module_count) is not equal to the default (2)." unless (scalar @modules == 2);
}
} else {
die "Enabled modules ($module_count) is not equal to the default (2)." unless (scalar @modules == 2);
}
# Check that dnf lists the disabled modules. # Check that dnf lists the disabled modules.
$modules = script_output('dnf module list --disabled', timeout => 270); $modules = script_output('dnf module list --disabled', timeout => 270);