mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-17 12:03:08 +00:00
511b5382ec
dnf seems to have some odd trouble with these updates. It really wants to use the older 2.rc2 builds, even though there doesn't seem to be any actual *problem* with the 3.rc2 builds. For the samba server test, passing `--best` to dnf seems to be enough to make it use the .3.rc2 builds. For the FreeIPA tests, we have to do a second pass with `--best` after the initial install. It's weird that we have to do this, but to get these updates through - because there doesn't really seem to be a problem here - let's do it. They will replace the 2.rc2 builds in the main F39 and Rawhide trees once they land in 'stable' so the problem shouldn't persist. Signed-off-by: Adam Williamson <awilliam@redhat.com>
96 lines
3.8 KiB
Perl
96 lines
3.8 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use lockapi;
|
|
use mmapi;
|
|
use tapnet;
|
|
use utils;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# use appropriate server IP, hostname, mutex and admin password
|
|
# Several tests use the 'regular' FreeIPA server, so the values
|
|
# for that are the defaults; other tests use a replica server, or
|
|
# the AD server, so they specify this in their vars.
|
|
my $server = get_var("REALMD_DNS_SERVER_HOST", 'ipa001.test.openqa.fedoraproject.org');
|
|
my $server_ip = get_var("REALMD_DNS_SERVER_IP", '172.16.2.100');
|
|
my $server_mutex = get_var("REALMD_SERVER_MUTEX", 'domain_server_ready');
|
|
my $admin_pw = get_var("REALMD_ADMIN_PASSWORD", 'monkeys123');
|
|
my $admin_user = get_var("REALMD_ADMIN_USER", 'admin');
|
|
# this gets us the name of the first connection in the list,
|
|
# which should be what we want
|
|
my $connection = script_output "nmcli --fields NAME con show | head -2 | tail -1";
|
|
assert_script_run "nmcli con mod '$connection' ipv4.dns '$server_ip'";
|
|
assert_script_run "nmcli con down '$connection'";
|
|
assert_script_run "nmcli con up '$connection'";
|
|
|
|
# wait for the server or replica to be ready (do it now just to be
|
|
# sure name resolution is working before we proceed)
|
|
mutex_lock $server_mutex;
|
|
mutex_unlock $server_mutex;
|
|
# use compose repo, disable u-t, etc. unless this is an upgrade
|
|
# test (in which case we're on the 'old' release at this point;
|
|
# one of the upgrade test modules does repo_setup later)
|
|
repo_setup() unless get_var("UPGRADE");
|
|
# do the enrolment
|
|
if (get_var("FREEIPA_REPLICA")) {
|
|
# here we're enrolling not just as a client, but as a replica
|
|
# install server packages
|
|
assert_script_run "dnf -y group install freeipa-server", 600;
|
|
my $advortask = get_var("ADVISORY_OR_TASK");
|
|
if ($advortask eq "FEDORA-2023-d21ee6d2e9" || $advortask eq "FEDORA-2023-b2095d4ea1") {
|
|
assert_script_run "dnf -y --best update samba*", 600;
|
|
}
|
|
|
|
|
|
# we need a lot of entropy for this, and we don't care how good
|
|
# it is, so let's use haveged
|
|
assert_script_run "dnf -y install haveged", 300;
|
|
assert_script_run 'systemctl start haveged.service';
|
|
|
|
# configure the firewall
|
|
for my $service (qw(freeipa-ldap freeipa-ldaps dns)) {
|
|
assert_script_run "firewall-cmd --permanent --add-service $service";
|
|
}
|
|
assert_script_run "systemctl restart firewalld.service";
|
|
|
|
# deploy as a replica
|
|
my ($ip, $hostname) = split(/ /, get_var("POST_STATIC"));
|
|
my $args = "--ip-address=$ip --setup-dns --auto-forwarders --setup-ca --allow-zone-overlap -U --principal admin --admin-password monkeys123";
|
|
assert_script_run "ipa-replica-install $args", 1500;
|
|
|
|
# enable and start the systemd service
|
|
assert_script_run "systemctl enable ipa.service";
|
|
assert_script_run "systemctl start ipa.service", 300;
|
|
|
|
# report that we're ready to go
|
|
mutex_create('domain_replica_ready');
|
|
|
|
# wait for the client test
|
|
wait_for_children;
|
|
}
|
|
else {
|
|
assert_script_run "echo '${admin_pw}' | realm join --user=${admin_user} ${server}", 300;
|
|
}
|
|
# set sssd debugging level higher (useful for debugging failures)
|
|
# optional as it's not really part of the test
|
|
script_run "dnf -y install sssd-tools", 220;
|
|
script_run "sss_debuglevel 9";
|
|
# if upgrade test, report that we're enrolled
|
|
mutex_create('client_enrolled') if get_var("UPGRADE");
|
|
# if this is an upgrade test, wait for server to be upgraded before
|
|
# continuing, as we rely on it for name resolution
|
|
if (get_var("UPGRADE")) {
|
|
mutex_lock "server_upgraded";
|
|
mutex_unlock "server_upgraded";
|
|
}
|
|
}
|
|
|
|
sub test_flags {
|
|
return {fatal => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|