mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-16 19:53:09 +00:00
492fcf62e4
Remove a whole chunk of needles that haven't matched for more than 3 months. Also move a few needles to appropriate locations, simplify some code chunks that relied on removed needles (if we're not matching the needles, we don't need those chunks any more), and drop some other no-longer-needed conditionals for older releases. Signed-off-by: Adam Williamson <awilliam@redhat.com>
74 lines
2.4 KiB
Perl
74 lines
2.4 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
|
|
assert_script_run "printf 'search test.openqa.fedoraproject.org\nnameserver 172.16.2.100' > /etc/resolv.conf";
|
|
# 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 '172.16.2.100'";
|
|
assert_script_run "nmcli con down '$connection'";
|
|
assert_script_run "nmcli con up '$connection'";
|
|
# 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);
|
|
# we may 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";
|
|
type_string("\t\t", 4);
|
|
type_string("ipa001.test.openqa.fedoraproject.org", 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";
|
|
# 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 be careful before
|
|
# finishing (and handing off to next test)
|
|
assert_screen "root_console";
|
|
wait_still_screen 5;
|
|
}
|
|
|
|
sub test_flags {
|
|
return { fatal => 1, milestone => 1 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|