further modularisation
[os-autoinst:os-autoinst.git] / x11test.d / 050_xfce_close_hint_popup.pm
1 use base "basetest";
2 use bmwqemu;
3
4 sub is_applicable()
5 {
6         return($ENV{DESKTOP} eq "xfce");
7 }
8
9 sub run()
10 {
11         my $self=shift;
12         waitinststage "XFCE";
13         sendkey "alt-f4"; # close hint popup
14         waitidle;
15 }
16
17 sub checklist()
18 {
19         # return hashref:
20         return {qw(
21         )}
22 }
23
24 1;