49 lines
943 B
Perl
49 lines
943 B
Perl
package fedoralog;
|
|
use base 'basetest';
|
|
|
|
use testapi;
|
|
|
|
sub login_as_root {
|
|
my $self = shift;
|
|
my $tty = shift || 1;
|
|
my $password = get_var("ROOT_PASSWORD", "weakpassword");
|
|
|
|
send_key "ctrl-alt-f$tty";
|
|
assert_screen "text_console_login", 20;
|
|
|
|
type_string "root";
|
|
send_key "ret";
|
|
assert_screen "console_password_required", 10;
|
|
type_string $password;
|
|
send_key "ret";
|
|
|
|
assert_screen "root_logged_in", 10;
|
|
}
|
|
|
|
sub boot_and_login {
|
|
my $self = shift;
|
|
wait_still_screen 10;
|
|
|
|
$self->login_as_root(3);
|
|
}
|
|
|
|
sub post_fail_hook {
|
|
my $self = shift;
|
|
|
|
$self->login_as_root(2);
|
|
|
|
# Upload all ABRT logs
|
|
type_string "cd /var/tmp/abrt && tar czvf abrt.tar.gz *";
|
|
send_key "ret";
|
|
upload_logs "/var/tmp/abrt/abrt.tar.gz";
|
|
|
|
# Upload /var/log
|
|
type_string "tar czvf /tmp/var_log.tar.gz /var/log";
|
|
send_key "ret";
|
|
upload_logs "/tmp/var_log.tar.gz";
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|