add a cockpit realmd FreeIPA join test

Summary:
This requires a few other changes:

* turn clone_host_resolv into clone_host_file, letting you clone
  any given host file (cloning /etc/hosts seems to make both
  server deployment and client enrolment faster/more reliable)
* allow loading of multiple POSTINSTALL tests (so we can share
  the freeipa_client_postinstall test). Note this is compatible,
  existing uses will work fine
* move initial password change for the IPA test users into the
  server deployment test (so the client tests don't conflict over
  doing that)
* add GRUB_POSTINSTALL, for specifying boot parameters for boot of
  the installed system, and make it work by tweaking _console_wait
  _login (doesn't work for _graphical_wait_login yet, as I didn't
  need that)
* make the static networking config for tap tests into a library
  function so the tests can share it
* handle ABRT problem dirs showing up in /var/spool/abrt as well
  as /var/tmp/abrt (because the enrol attempt hits #1330766 and
  the crash report shows up in /var/spool/abrt, don't ask me why
  the difference, I just work here)
* specify the DNS servers from the worker host's resolv.conf as
  the forwarders for the FreeIPA server when deploying it; if we
  don't do this, rolekit defaults to using the root servers as
  forwarders(!) and thus we get the public, not phx2-appropriate,
  results for e.g. mirrors.fedoraproject.org, some of which the
  workers can't reach, so PackageKit package install always fails
  (boy, was it fun figuring THAT mess out)

Even after all that, the test still doesn't actually pass, but
I'm reasonably confident this is because it's hitting actual bugs,
not because it's broken. It runs into #1330766 nearly every time
(I think I saw *one* time the enrolment actually succeeded), and
seems to run into a subsequent bug I hadn't seen before when
trying to work around that by trying the join again (see
https://bugzilla.redhat.com/show_bug.cgi?id=1330766#c37 ).

Test Plan:
Run the test, see what happens. If you're really lucky,
it'll actually pass. But you'll probably run into #1330766#c37,
I'm mostly posting for comment. You'll need a tap-capable openQA
instance to test this.

Reviewers: jskladan, garretraziel

Reviewed By: garretraziel

Subscribers: tflink

Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D880
This commit is contained in:
Adam Williamson 2016-06-07 13:00:39 -07:00
parent 87da472f03
commit 66fc3cc7d4
19 changed files with 307 additions and 60 deletions

View File

@ -94,48 +94,53 @@ sub do_bootloader {
# 'args' is a string of extra kernel args, if desired. 'mutex' is # 'args' is a string of extra kernel args, if desired. 'mutex' is
# a parallel test mutex lock to wait for before proceeding, if # a parallel test mutex lock to wait for before proceeding, if
# desired. 'first' is whether to hit 'up' a couple of times to # desired. 'first' is whether to hit 'up' a couple of times to
# make sure we boot the first menu entry. # make sure we boot the first menu entry. 'timeout' is how long to
my ($self, $postinstall, $args, $mutex, $first, $bootloader, $uefi) = @_; # wait for the bootloader screen.
$uefi //= get_var("UEFI"); my $self = shift;
$postinstall //= 0; my %args = (
postinstall => 0,
params => "",
mutex => "",
first => 1,
timeout => 30,
uefi => get_var("UEFI"),
@_
);
# if not postinstall and not UEFI, syslinux # if not postinstall and not UEFI, syslinux
$bootloader //= ($uefi || $postinstall) ? "grub" : "syslinux"; $args{bootloader} //= ($args{uefi} || $args{postinstall}) ? "grub" : "syslinux";
$args //= ""; if ($args{uefi}) {
$mutex //= "";
$first //= 1;
if ($uefi) {
# we don't just tag all screens with 'bootloader' because we # we don't just tag all screens with 'bootloader' because we
# want to be sure we actually did a UEFI boot # want to be sure we actually did a UEFI boot
assert_screen "bootloader_uefi", 30; assert_screen "bootloader_uefi", $args{timeout};
} else { } else {
assert_screen "bootloader", 30; assert_screen "bootloader", $args{timeout};
} }
if ($mutex) { if ($args{mutex}) {
# cancel countdown # cancel countdown
send_key "left"; send_key "left";
mutex_lock $mutex; mutex_lock $args{mutex};
mutex_unlock $mutex; mutex_unlock $args{mutex};
} }
if ($first) { if ($args{first}) {
# press up a couple of times to make sure we're at first entry # press up a couple of times to make sure we're at first entry
send_key "up"; send_key "up";
send_key "up"; send_key "up";
} }
if ($args) { if ($args{params}) {
if ($bootloader eq "syslinux") { if ($args{bootloader} eq "syslinux") {
send_key "tab"; send_key "tab";
} }
else { else {
send_key "e"; send_key "e";
# ternary: 13 'downs' to reach the kernel line for installed # ternary: 13 'downs' to reach the kernel line for installed
# system, 2 for UEFI installer # system, 2 for UEFI installer
my $presses = $postinstall ? 13 : 2; my $presses = $args{postinstall} ? 13 : 2;
foreach my $i (1..$presses) { foreach my $i (1..$presses) {
send_key "down"; send_key "down";
} }
send_key "end"; send_key "end";
} }
type_string " $args"; type_string " $args{params}";
} }
# ctrl-X boots from grub editor mode # ctrl-X boots from grub editor mode
send_key "ctrl-x"; send_key "ctrl-x";
@ -162,20 +167,41 @@ sub get_milestone {
return ''; return '';
} }
sub clone_host_resolv { sub clone_host_file {
# this is pretty crazy, but SUSE do almost the same thing... # copy a given file from the host into the guest. Mainly used
# it's for openvswitch jobs to clone the host's resolv.conf, so # for networking config on tap tests. this is pretty crazy, but
# we don't have to hard code 8.8.8.8 or have the templates pass # SUSE do almost the same thing...
# in an address or something
my $self = shift; my $self = shift;
my $resolv = ''; my $file = shift;
open(FH, '<', "/etc/resolv.conf"); my $text = '';
while (<FH>) { open(my $fh, '<', $file);
$resolv .= $_; while (<$fh>) {
$text .= $_;
} }
assert_script_run "printf '$resolv' > /etc/resolv.conf"; assert_script_run "printf '$text' > $file";
# for debugging... # for debugging...
assert_script_run "cat /etc/resolv.conf"; assert_script_run "cat $file";
}
sub setup_tap_static {
# this is a common thing for tap tests, where we set up networking
# for the system with a static IP address and possibly a specific
# hostname
my $self = shift;
my $ip = shift;
my $hostname = shift || "";
if ($hostname) {
# assigning output of split to a single-item array gives us just
# the first split
my ($short) = split(/\./, $hostname);
# set hostname
assert_script_run "hostnamectl set-hostname $hostname";
# add entry to /etc/hosts
assert_script_run "echo '$ip $hostname $short' >> /etc/hosts";
}
# bring up network. DEFROUTE is *vital* here
assert_script_run "printf 'DEVICE=eth0\nBOOTPROTO=none\nIPADDR=$ip\nGATEWAY=10.0.2.2\nPREFIX=24\nDEFROUTE=yes' > /etc/sysconfig/network-scripts/ifcfg-eth0";
script_run "systemctl restart NetworkManager.service";
} }
sub console_switch_layout { sub console_switch_layout {

View File

@ -27,9 +27,15 @@ sub post_fail_hook {
# If /var/tmp/abrt directory isn't empty (ls doesn't return empty string) # If /var/tmp/abrt directory isn't empty (ls doesn't return empty string)
my $vartmp = script_output "ls /var/tmp/abrt"; my $vartmp = script_output "ls /var/tmp/abrt";
if ($vartmp ne '') { if ($vartmp ne '') {
# Upload all ABRT logs # Upload /var/tmp ABRT logs
script_run "cd /var/tmp/abrt && tar czvf abrt.tar.gz *"; script_run "cd /var/tmp/abrt && tar czvf tmpabrt.tar.gz *";
upload_logs "/var/tmp/abrt/abrt.tar.gz"; upload_logs "/var/tmp/abrt/tmpabrt.tar.gz";
}
my $varspool = script_output "ls /var/spool/abrt";
if ($varspool ne '') {
# Upload /var/spool ABRT logs
script_run "cd /var/spool/abrt && tar czvf spoolabrt.tar.gz *";
upload_logs "/var/spool/abrt/spoolabrt.tar.gz";
} }
# Upload /var/log # Upload /var/log

View File

@ -193,7 +193,10 @@ sub load_postinstall_tests() {
# generic post-install test load # generic post-install test load
if (get_var("POSTINSTALL")) { if (get_var("POSTINSTALL")) {
autotest::loadtest "tests/".get_var('POSTINSTALL')."_postinstall.pm"; my @pis = split(/ /, get_var("POSTINSTALL"));
foreach my $pi (@pis) {
autotest::loadtest "tests/${pi}_postinstall.pm";
}
} }
# we should shut down before uploading disk images # we should shut down before uploading disk images

View File

@ -0,0 +1,15 @@
{
"properties": [],
"tags": [
"cockpit_join_button"
],
"area": [
{
"xpos": 840,
"ypos": 458,
"width": 31,
"height": 18,
"type": "match"
}
]
}

Binary file not shown.

After

Width:  |  Height:  |  Size: 48 KiB

View File

@ -0,0 +1,15 @@
{
"properties": [],
"area": [
{
"xpos": 397,
"ypos": 290,
"width": 135,
"height": 17,
"type": "match"
}
],
"tags": [
"cockpit_join_complete"
]
}

Binary file not shown.

After

Width:  |  Height:  |  Size: 59 KiB

View File

@ -0,0 +1,15 @@
{
"tags": [
"cockpit_join_domain"
],
"area": [
{
"xpos": 206,
"ypos": 168,
"width": 96,
"height": 16,
"type": "match"
}
],
"properties": []
}

Binary file not shown.

After

Width:  |  Height:  |  Size: 43 KiB

View File

@ -0,0 +1,15 @@
{
"properties": [],
"tags": [
"cockpit_join_domain_button"
],
"area": [
{
"xpos": 454,
"ypos": 291,
"width": 74,
"height": 15,
"type": "match"
}
]
}

Binary file not shown.

After

Width:  |  Height:  |  Size: 49 KiB

View File

@ -0,0 +1,15 @@
{
"properties": [],
"area": [
{
"xpos": 237,
"ypos": 461,
"width": 125,
"height": 14,
"type": "match"
}
],
"tags": [
"cockpit_join_progress"
]
}

Binary file not shown.

After

Width:  |  Height:  |  Size: 47 KiB

View File

@ -347,6 +347,17 @@
}, },
test_suite => { name => "server_cockpit_basic" }, test_suite => { name => "server_cockpit_basic" },
}, },
{
machine => { name => "64bit" },
prio => 40,
product => {
arch => "x86_64",
distri => "fedora",
flavor => "Server-dvd-iso",
version => "*",
},
test_suite => { name => "realmd_join_cockpit" },
},
{ {
machine => { name => "64bit" }, machine => { name => "64bit" },
prio => 20, prio => 20,
@ -1702,6 +1713,21 @@
{ key => "HDD_1", value => "disk_%MACHINE%_cockpit.qcow2" }, { key => "HDD_1", value => "disk_%MACHINE%_cockpit.qcow2" },
], ],
}, },
{
name => "realmd_join_cockpit",
settings => [
{ key => "POSTINSTALL", value => "realmd_join_cockpit freeipa_client" },
{ key => "USER_LOGIN", value => "false" },
{ key => "ROOT_PASSWORD", value => "weakpassword" },
{ key => "START_AFTER_TEST", value => "server_cockpit_default" },
{ key => "PARALLEL_WITH", value => "server_role_deploy_domain_controller" },
{ key => "BOOTFROM", value => "c" },
{ key => "HDD_1", value => "disk_%MACHINE%_cockpit.qcow2" },
{ key => "GRUB_POSTINSTALL", value => "net.ifnames=0 biosdevname=0" },
{ key => "NICTYPE", value => "tap" },
{ key => "WORKER_CLASS", value => "tap" },
],
},
{ {
name => "desktop_terminal", name => "desktop_terminal",
settings => [ settings => [

View File

@ -4,29 +4,29 @@ use testapi;
sub run { sub run {
my $self = shift; my $self = shift;
# construct the kernel args. the trick here is to wind up with # construct the kernel params. the trick here is to wind up with
# spaced args if GRUB or GRUBADD is set, and just spaces if not, # spaced params if GRUB or GRUBADD is set, and just spaces if not,
# then check if we got all spaces. We wind up with a harmless # then check if we got all spaces. We wind up with a harmless
# extra space if GRUBADD is set but GRUB is not. # extra space if GRUBADD is set but GRUB is not.
my $args = ""; my $params = "";
$args .= get_var("GRUB", "") . " "; $params .= get_var("GRUB", "") . " ";
$args .= get_var("GRUBADD", "") . " "; $params .= get_var("GRUBADD", "") . " ";
# Construct inst.repo arg for REPOSITORY_VARIATION # Construct inst.repo arg for REPOSITORY_VARIATION
my $repourl = get_var("REPOSITORY_VARIATION"); my $repourl = get_var("REPOSITORY_VARIATION");
if ($repourl) { if ($repourl) {
my $version = lc(get_var("VERSION", "")); my $version = lc(get_var("VERSION", ""));
my $arch = get_var("ARCH", ""); my $arch = get_var("ARCH", "");
$repourl .= "/$version/Everything/$arch/os"; $repourl .= "/$version/Everything/$arch/os";
$args .= "inst.repo=$repourl"; $params .= "inst.repo=$repourl";
} }
# ternary: set $args to "" if it contains only spaces # ternary: set $params to "" if it contains only spaces
$args = $args =~ /^\s+$/ ? "" : $args; $params = $params =~ /^\s+$/ ? "" : $params;
# set mutex wait if necessary # set mutex wait if necessary
my $mutex = get_var("INSTALL_UNLOCK"); my $mutex = get_var("INSTALL_UNLOCK");
# call do_bootloader with postinstall=0, the args, and the mutex # call do_bootloader with postinstall=0, the params, and the mutex
$self->do_bootloader(0, $args, $mutex); $self->do_bootloader(postinstall=>0, params=>$params, mutex=>$mutex);
# proceed to installer # proceed to installer
unless (get_var("KICKSTART")) unless (get_var("KICKSTART"))

View File

@ -10,6 +10,12 @@ sub run {
$wait_time = 1800 if (get_var("KICKSTART")); $wait_time = 1800 if (get_var("KICKSTART"));
$wait_time = 6000 if (get_var("UPGRADE")); $wait_time = 6000 if (get_var("UPGRADE"));
# handle bootloader, if requested
if (get_var("GRUB_POSTINSTALL")) {
$self->do_bootloader(postinstall=>1, params=>get_var("GRUB_POSTINSTALL"), timeout=>$wait_time);
$wait_time = 180;
}
# Wait for the text login # Wait for the text login
assert_screen "text_console_login", $wait_time; assert_screen "text_console_login", $wait_time;

View File

@ -9,12 +9,11 @@ sub run {
# check we can see the admin user in getent # check we can see the admin user in getent
assert_script_run 'getent passwd admin@DOMAIN.LOCAL'; assert_script_run 'getent passwd admin@DOMAIN.LOCAL';
# check keytab entries # check keytab entries
validate_script_output 'klist -k', sub { $_ =~ m/client001\.domain\.local\@DOMAIN.LOCAL/ }; my $hostname = script_output 'hostname';
my $qhost = quotemeta($hostname);
validate_script_output 'klist -k', sub { $_ =~ m/$qhost\@DOMAIN\.LOCAL/ };
# check we can kinit with the host principal # check we can kinit with the host principal
assert_script_run 'kinit -k host/client001.domain.local@DOMAIN.LOCAL'; assert_script_run "kinit -k host/$hostname\@DOMAIN.LOCAL";
# kinit as each user and set a new password
assert_script_run 'printf "correcthorse\nbatterystaple\nbatterystaple" | kinit test1@DOMAIN.LOCAL';
assert_script_run 'printf "correcthorse\nbatterystaple\nbatterystaple" | kinit test2@DOMAIN.LOCAL';
# switch to tty3 # switch to tty3
send_key "ctrl-alt-f3"; send_key "ctrl-alt-f3";
# try and login as test1, should work # try and login as test1, should work

View File

@ -0,0 +1,62 @@
use base "installedtest";
use strict;
use testapi;
use lockapi;
sub run {
my $self=shift;
# clone host's /etc/hosts (for phx2 internal routing to work)
# must come *before* setup_tap_static or else it would overwrite
# its changes
$self->clone_host_file("/etc/hosts");
# set up networking
$self->setup_tap_static("10.0.2.102", "client002.domain.local");
# test
$self->clone_host_file("/etc/resolv.conf");
# use FreeIPA server as DNS server
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";
# run firefox and login to cockpit
$self->start_cockpit(1);
assert_and_click "cockpit_join_domain_button";
assert_screen "cockpit_join_domain";
send_key "tab";
wait_still_screen 1;
type_string "ipa001.domain.local";
wait_still_screen 1;
send_key "tab";
send_key "tab";
wait_still_screen 1;
type_string "admin";
wait_still_screen 1;
send_key "tab";
type_string "monkeys123";
wait_still_screen 1;
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
send_key "ctrl-q";
# 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 {
# without anything - rollback to 'lastgood' snapshot if failed
# 'fatal' - whole test suite is in danger if this fails
# 'milestone' - after this test succeeds, update 'lastgood'
# 'important' - if this fails, set the overall state to 'fail'
return { fatal => 1 };
}
1;
# vim: set sw=4 et:

View File

@ -8,27 +8,68 @@ sub run {
my $self=shift; my $self=shift;
# boot with kernel params to ensure interface is 'eth0' and not whatever # boot with kernel params to ensure interface is 'eth0' and not whatever
# systemd feels like calling it today # systemd feels like calling it today
$self->do_bootloader(1, "net.ifnames=0 biosdevname=0"); $self->do_bootloader(postinstall=>1, params=>"net.ifnames=0 biosdevname=0");
$self->boot_to_login_screen("text_console_login", 5, 60); $self->boot_to_login_screen("text_console_login", 5, 60);
# login # login
$self->root_console(); $self->root_console();
# set hostname # clone host's /etc/hosts (for phx2 internal routing to work)
assert_script_run 'hostnamectl set-hostname ipa001.domain.local'; # must come *before* setup_tap_static or else it would overwrite
# add entry to /etc/hosts # its changes
assert_script_run 'echo "10.0.2.100 ipa001.domain.local ipa001" >> /etc/hosts'; $self->clone_host_file("/etc/hosts");
# bring up network. DEFROUTE is *vital* here # set up networking
assert_script_run 'printf "DEVICE=eth0\nBOOTPROTO=none\nIPADDR=10.0.2.100\nGATEWAY=10.0.2.2\nPREFIX=24\nDEFROUTE=yes" > /etc/sysconfig/network-scripts/ifcfg-eth0'; $self->setup_tap_static("10.0.2.100", "ipa001.domain.local");
script_run "systemctl restart NetworkManager.service";
# clone host's resolv.conf to get name resolution # clone host's resolv.conf to get name resolution
$self->clone_host_resolv(); $self->clone_host_file("/etc/resolv.conf");
# we don't want updates-testing for validation purposes # we don't want updates-testing for validation purposes
assert_script_run 'dnf config-manager --set-disabled updates-testing'; assert_script_run 'dnf config-manager --set-disabled updates-testing';
# we need a lot of entropy for this, and we don't care how good # we need a lot of entropy for this, and we don't care how good
# it is, so let's use haveged # it is, so let's use haveged
assert_script_run 'dnf -y install haveged', 120; assert_script_run 'dnf -y install haveged', 120;
assert_script_run 'systemctl start haveged.service'; assert_script_run 'systemctl start haveged.service';
# deploy the domain controller role # read DNS server IPs from host's /etc/resolv.conf for passing to
assert_script_run 'echo \'{"admin_password":"monkeys123"}\' | rolectl deploy domaincontroller --name=domain.local --settings-stdin', 1200; # rolectl
my @forwards;
open(FH, '<', "/etc/resolv.conf");
while (<FH>) {
if ($_ =~ m/^nameserver +(.+)/) {
push @forwards, $1;
}
}
# we are now gonna work around a stupid bug in rolekit. we want to
# pass it a list of ipv4 DNS forwarders and have no ipv6 DNS
# forwarders. but it won't allow you to have a dns_forwarders array
# with a "ipv4" list but no "ipv6" list, any values in the "ipv6"
# list must be contactable (so we can't use real IPv6 DNS servers
# as we have no IPv6 connectivity), and if you use an empty list
# as the "ipv6" value you often hit a weird DBus error "unable to
# guess signature from an empty list". Fortunately, rolekit doesn't
# actually check that the values in the lists are really IPv6 /
# IPv4, it just turns all the values in each list into --forwarder
# args for ipa-server-install. So we can just stuff IPv4 values
# into both lists. rolekit bug:
# https://github.com/libre-server/rolekit/issues/64
# it should be fixed relatively soon.
my $fourlist;
my $sixlist;
if (scalar @forwards == 1) {
# we've only got one server, so dupe it, best we can do
$fourlist = '["' . $forwards[0] . '"]';
$sixlist = $fourlist;
}
else {
# put the first value in the 'IPv4' list and all the others in
# the 'IPv6' list
$fourlist = '["' . shift(@forwards) . '"]';
$sixlist = '["' . join('","', @forwards) . '"]';
}
# deploy the domain controller role, specifying an admin password
# and the list of DNS server IPs as JSON via stdin. If we don't do
# this, rolectl defaults to using the root servers as forwarders
# (it does not copy the settings from resolv.conf), which give the
# public results for mirrors.fedoraproject.org, some of which
# things running in phx2 cannot reach; we must make sure the phx2
# deployments use the phx2 nameservers.
assert_script_run 'echo \'{"admin_password":"monkeys123","dns_forwarders":{"ipv4":' . $fourlist . ',"ipv6":' . $sixlist .'}}\' | rolectl deploy domaincontroller --name=domain.local --settings-stdin', 1200;
# check the role status, should be 'running' # check the role status, should be 'running'
validate_script_output 'rolectl status domaincontroller/domain.local', sub { $_ =~ m/^running/ }; validate_script_output 'rolectl status domaincontroller/domain.local', sub { $_ =~ m/^running/ };
# check the admin password is listed in 'settings' # check the admin password is listed in 'settings'
@ -50,6 +91,9 @@ sub run {
assert_script_run 'ipa hbacrule-add-user testrule --users=test1'; assert_script_run 'ipa hbacrule-add-user testrule --users=test1';
# disable the default 'everyone everywhere' rule # disable the default 'everyone everywhere' rule
assert_script_run 'ipa hbacrule-disable allow_all'; assert_script_run 'ipa hbacrule-disable allow_all';
# kinit as each user and set a new password
assert_script_run 'printf "correcthorse\nbatterystaple\nbatterystaple" | kinit test1@DOMAIN.LOCAL';
assert_script_run 'printf "correcthorse\nbatterystaple\nbatterystaple" | kinit test2@DOMAIN.LOCAL';
# we're all ready for other jobs to run! # we're all ready for other jobs to run!
mutex_create('freeipa_ready'); mutex_create('freeipa_ready');
wait_for_children; wait_for_children;