d82f4ecd7f
* server-cockpit-updates tests that Cockpit can be used to update the system. * server-cockpit-autoupdate tests that users can use dnf-automatic for system updates. * cockpit functions were removed from utils.pm and put into an extra library for cockpit - cockpit.pm which all cockpit tests are now using. Review cockpit.pm Review autoupdate test. Review the update test. Fix typo in cockpit.pm Add sleep. Add missing command. Delete an unused needle.
39 lines
1.1 KiB
Perl
39 lines
1.1 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
use cockpit;
|
|
|
|
sub run {
|
|
my $self=shift;
|
|
bypass_1691487;
|
|
# run firefox and login to cockpit
|
|
start_cockpit(1);
|
|
# go to the logs screen
|
|
assert_and_click "cockpit_logs";
|
|
# the date dropdown changes and messes with the button locations, so wait
|
|
wait_still_screen 2;
|
|
assert_and_click "cockpit_logs_severity";
|
|
wait_still_screen 2;
|
|
# assume there's an entry, click it
|
|
assert_and_click "cockpit_logs_entry";
|
|
# check we get to the appropriate detail screen
|
|
assert_screen "cockpit_logs_detail";
|
|
# go to the services screen
|
|
assert_and_click "cockpit_services";
|
|
wait_still_screen 5;
|
|
# click on an entry
|
|
assert_and_click "cockpit_services_entry";
|
|
# check we get to the appropriate detail screen...but this click
|
|
# often gets lost for some reason, so retry it once
|
|
assert_and_click "cockpit_services_entry" unless (check_screen "cockpit_services_detail");
|
|
assert_screen "cockpit_services_detail";
|
|
}
|
|
|
|
sub test_flags {
|
|
return { fatal => 1 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|