further modularisation
[os-autoinst:os-autoinst.git] / x11test.d / 030_x11_login.pm
1 use base "basetest";
2 use bmwqemu;
3
4 sub is_applicable()
5 {
6         return($ENV{NOAUTOLOGIN} || ($ENV{DESKTOP} eq "xfce"));
7 }
8
9 sub run()
10 {
11         my $self=shift;
12         # log in
13         sendautotype $username."\n";
14         sleep 1;
15         sendautotype $password."\n";
16         waitidle;
17 }
18
19 sub checklist()
20 {
21         # return hashref:
22         return {qw(
23         )}
24 }
25
26 1;