45 lines
1.3 KiB
Perl
45 lines
1.3 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use lockapi;
|
|
use mmapi;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# make sure ipa.service actually came up successfully
|
|
my $count = 40;
|
|
while (1) {
|
|
$count -= 1;
|
|
die "Waited too long for samba.service to show up!" if ($count == 0);
|
|
sleep 3;
|
|
# if it's active, we're done here
|
|
last unless script_run 'systemctl is-active samba.service';
|
|
# if it's not...fail if it's failed
|
|
assert_script_run '! systemctl is-failed samba.service';
|
|
# if we get here, it's activating, so loop around
|
|
}
|
|
# if this is an update, notify clients that we're now up again
|
|
mutex_create('server_upgraded') if get_var("UPGRADE");
|
|
# once child jobs are done, stop the server
|
|
# debug debug
|
|
type_string "journalctl -f\n";
|
|
wait_for_children;
|
|
send_key "ctrl-c";
|
|
# run post-fail hook to upload logs - even when this test passes
|
|
# there are often cases where we need to see the logs (e.g. client
|
|
# test failed due to server issue)
|
|
$self->post_fail_hook();
|
|
assert_script_run 'systemctl stop samba.service';
|
|
# check server is stopped
|
|
assert_script_run '! systemctl is-active samba.service';
|
|
}
|
|
|
|
|
|
sub test_flags {
|
|
return {fatal => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|