2015-03-18 21:28:03 +00:00
|
|
|
package fedoradistribution;
|
|
|
|
use base 'distribution';
|
|
|
|
|
|
|
|
# Fedora distribution class
|
|
|
|
|
2015-08-05 06:23:59 +00:00
|
|
|
# Distro-specific functions, that are actually part of the API
|
|
|
|
# (and it's completely up to us to implement them) should be here
|
|
|
|
|
|
|
|
# functions that can be reimplemented:
|
|
|
|
# ensure_installed
|
|
|
|
# x11_start_program
|
|
|
|
# become_root
|
|
|
|
# script_run
|
|
|
|
# script_sudo
|
|
|
|
# type_password
|
|
|
|
|
2016-02-10 08:42:56 +00:00
|
|
|
# importing whole testapi creates circular dependency, so import inly
|
|
|
|
# necessary functions from testapi
|
|
|
|
use testapi qw(send_key type_string wait_idle assert_screen);
|
2015-03-18 21:28:03 +00:00
|
|
|
|
|
|
|
sub init() {
|
|
|
|
my ($self) = @_;
|
|
|
|
|
|
|
|
$self->SUPER::init();
|
|
|
|
}
|
|
|
|
|
2016-02-10 08:42:56 +00:00
|
|
|
sub x11_start_program {
|
2015-03-18 21:28:03 +00:00
|
|
|
my ($self, $program, $timeout, $options) = @_;
|
|
|
|
send_key "alt-f2";
|
2015-09-17 07:49:55 +00:00
|
|
|
assert_screen "desktop_runner";
|
2016-09-12 17:24:30 +00:00
|
|
|
type_string $program, 20;
|
2015-09-14 06:52:37 +00:00
|
|
|
wait_idle 5; # because of KDE dialog - SUSE guys are doing the same!
|
2015-03-18 21:28:03 +00:00
|
|
|
send_key "ret", 1;
|
|
|
|
}
|
|
|
|
|
2015-11-04 13:38:36 +00:00
|
|
|
sub script_run {
|
|
|
|
my ($self, $program, $timeout) = @_;
|
|
|
|
|
|
|
|
type_string $program;
|
|
|
|
send_key "ret", $timeout;
|
|
|
|
}
|
|
|
|
|
2015-03-18 21:28:03 +00:00
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|