basically works now for an initial install
[os-autoinst:os-autoinst.git] / distri / mageia / consoletest.d / 010_consoletest_setup.pm
1 use base "basetest";
2 use bmwqemu;
3
4
5 sub run()
6 { my $self=shift;
7         waitstillimage(120,1000);
8         sendkey "ctrl-alt-f4";
9         sleep 2;
10         sendautotype "$username\n";
11         waitidle;
12         sleep 5;
13         sendpassword;
14         sendkey "ret";
15         sleep 10;
16         $self->take_screenshot;
17         sleep 1;
18         sendautotype "su -\n";
19         sleep 10;
20         sendpassword; 
21         sendkey "ret";
22         script_run("echo 010_consoletest_setup OK > /dev/$serialdev");
23         # it is only a waste of time, if this does not work
24         alarm 3 unless waitserial("010_consoletest_setup OK", 30);
25 }
26
27 sub checklist()
28 {
29         # return hashref:
30         return {qw(
31         )}
32 }
33
34 1;