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: