mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-25 23:33:07 +00:00
beba6426b1
We need a couple of new needles, plus the 'join domain' button has disappeared from the front page due to the very inefficient UI redesign, so we need to scroll down to find it. Signed-off-by: Adam Williamson <awilliam@redhat.com>
73 lines
2.2 KiB
Perl
73 lines
2.2 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use lockapi;
|
|
use utils;
|
|
use tapnet;
|
|
use cockpit;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# use FreeIPA server as DNS server
|
|
bypass_1691487;
|
|
assert_script_run "printf 'search domain.local\nnameserver 10.0.2.100' > /etc/resolv.conf";
|
|
# wait for the server to be ready (do it now just to make sure name
|
|
# resolution is working before we proceed)
|
|
mutex_lock "freeipa_ready";
|
|
mutex_unlock "freeipa_ready";
|
|
# do repo setup
|
|
repo_setup();
|
|
# 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";
|
|
# run firefox and login to cockpit
|
|
# note: we can't use wait_screen_change, wait_still_screen or
|
|
# check_type_string in cockpit because of that fucking constantly
|
|
# scrolling graph
|
|
start_cockpit(1);
|
|
# on cockpit 209+ we have to scroll down before the button is
|
|
# visible
|
|
if (check_screen "cockpit_join_domain_button", 5) {
|
|
click_lastmatch;
|
|
}
|
|
else {
|
|
# to activate the right pane
|
|
assert_and_click "cockpit_main";
|
|
send_key "pgdn";
|
|
# wait out scroll...
|
|
wait_still_screen 2;
|
|
assert_and_click "cockpit_join_domain_button", 5;
|
|
}
|
|
assert_screen "cockpit_join_domain";
|
|
send_key "tab";
|
|
sleep 3;
|
|
type_string("ipa001.domain.local", 4);
|
|
type_string("\t\t", 4);
|
|
type_string("admin", 4);
|
|
send_key "tab";
|
|
sleep 3;
|
|
type_string("monkeys123", 4);
|
|
sleep 3;
|
|
assert_and_click "cockpit_join_button";
|
|
# check we hit the progress screen, so we fail faster if it's
|
|
# broken
|
|
assert_screen "cockpit_join_progress";
|
|
# join involves package installs, so it may take some time
|
|
assert_screen "cockpit_join_complete", 300;
|
|
# quit browser to return to console
|
|
quit_firefox;
|
|
# we don't get back to a prompt instantly and keystrokes while X
|
|
# is still shutting down are swallowed, so wait_still_screen before
|
|
# finishing (and handing off to freeipa_client_postinstall)
|
|
wait_still_screen 5;
|
|
}
|
|
|
|
sub test_flags {
|
|
return { fatal => 1, milestone => 1 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|