use base "installedtest";
use strict;
use lockapi;
use testapi;
use utils;

sub run {
    my $self = shift;
    # set up an ssh key
    type_string "ssh-keygen\n";
    sleep 2;
    # confirm directory
    send_key "ret";
    sleep 2;
    # empty passphrase
    send_key "ret";
    sleep 2;
    # confirm empty passphrase
    send_key "ret";
    my $sshpub = script_output "cat /root/.ssh/id_rsa.pub";
    # launch Firefox
    type_string "startx /usr/bin/firefox -width 1024 -height 768 http://172.16.2.118\n";
    # log in as admin
    assert_screen "zezere_login";
    type_string "admin";
    send_key "tab";
    type_string "weakpassword\n";
    # allow for UI to stabilize
    wait_still_screen 10;
    # add our ssh key
    assert_and_click "zezere_ssh_key";
    assert_and_click "zezere_ssh_key_contents";
    type_string "$sshpub";
    send_key "tab";
    send_key "ret";
    wait_still_screen 3;
    # claim the device
    assert_and_click "zezere_claim_unowned";
    assert_and_click "zezere_claim_button";
    # provision it
    assert_and_click "zezere_device_management";
    assert_and_click "zezere_submit_provision";
    assert_and_click "zezere_provision_menu";
    send_key_until_needlematch("zezere_provision_installed", "down", 3, 3);
    send_key "ret";
    assert_and_click "zezere_provision_schedule";
    # exit
    quit_firefox;
    # time before the provision request goes through is kinda hard to
    # predict, so we'll just try over and over for up to 10 minutes
    # and bail as soon as it works
    assert_script_run 'until ssh -o StrictHostKeyChecking=no -o PasswordAuthentication=no root@172.16.2.119 touch /tmp/zezerekeyfile; do sleep 10; done', 600;
}


sub test_flags {
    return {fatal => 1};
}

1;

# vim: set sw=4 et: