27 lines
518 B
Perl
27 lines
518 B
Perl
|
package fedoradistribution;
|
||
|
|
use base 'distribution';
|
||
|
|
|
||
|
|
# Fedora distribution class
|
||
|
|
|
||
|
|
use testapi qw(send_key type_string);
|
||
|
|
|
||
|
|
sub init() {
|
||
|
|
my ($self) = @_;
|
||
|
|
|
||
|
|
$self->SUPER::init();
|
||
|
|
}
|
||
|
|
|
||
|
|
sub x11_start_program($$$) {
|
||
|
|
my ($self, $program, $timeout, $options) = @_;
|
||
|
|
# TODO: take screenshots of every goddamn 'run command' dialog in
|
||
|
|
# every goddamn desktop and keep them updated forever
|
||
|
|
send_key "alt-f2";
|
||
|
|
sleep 3;
|
||
|
|
type_string $program;
|
||
|
|
sleep 1;
|
||
|
|
send_key "ret", 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
# vim: set sw=4 et:
|