29 lines
593 B
Perl
29 lines
593 B
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use lockapi;
|
|
use utils;
|
|
use tapnet;
|
|
use cockpit;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
$self->root_console(tty=>3);
|
|
assert_script_run "printf 'KRB5_TRACE=/dev/stdout\n' > /etc/environment";
|
|
type_string "reboot\n";
|
|
do_bootloader(postinstall=>1, params=>"gnome.initial-setup=1", timeout=>60);
|
|
gnome_initial_setup(prelogin=>1, freeipa=>1, timeout=>300);
|
|
handle_welcome_screen;
|
|
mouse_set(300, 800);
|
|
check_desktop;
|
|
$self->root_console(tty=>3);
|
|
}
|
|
|
|
sub test_flags {
|
|
return {fatal => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|