124
by louis_bouchard
First development version |
1 |
#!/usr/bin/perl
|
2 |
||
3 |
use warnings; |
|
4 |
use strict; |
|
5 |
use crashdctestlib; |
|
125
by louis_bouchard
First complete working test |
6 |
use Test::More tests => 28; |
7 |
||
8 |
my $prompt_timeout=600; |
|
124
by louis_bouchard
First development version |
9 |
|
10 |
ok ( revert_snapshot("rhel5"), "Reverted to original snapshot"); |
|
11 |
ok ( start_vm("rhel5"), "Started RHEL5 vm"); |
|
12 |
sleep 5; |
|
125
by louis_bouchard
First complete working test |
13 |
ok (wait_for_prompt("rhel5",$prompt_timeout), "Got the login prompt"); |
124
by louis_bouchard
First development version |
14 |
ok (prepare_for_test("rhel5"), "VM is prepared for tests"); |
15 |
ok (crash_vm("rhel5"), "Trigggered a kernel crash"); |
|
125
by louis_bouchard
First complete working test |
16 |
ok (wait_for_prompt("rhel5",$prompt_timeout), "Got the login prompt"); |
17 |
like ( check_service("rhel5","status"), qr/exists$/,'service crashdc status'); |
|
18 |
sleep 60; |
|
19 |
like ( check_service("rhel5","generate"), qr/has been generated$/,'rhel5 : service crashdc generate'); |
|
20 |
like ( check_service("rhel5","advanced"), qr/has been generated$/,'rhel5 : service crashdc advanced'); |
|
21 |
like ( check_service("rhel5","custom"), qr/has been generated$/,'rhel5 : service crashdc custom'); |
|
124
by louis_bouchard
First development version |
22 |
|
23 |
ok (switch_grub("rhel5","xen"), "VM setup to boot on XEN kernel"); |
|
24 |
ok (reboot_vm("rhel5"), "Rebooted VM with XEN kernel"); |
|
125
by louis_bouchard
First complete working test |
25 |
ok (wait_for_prompt("rhel5",$prompt_timeout), "Got the login prompt"); |
26 |
ok (crash_vm("rhel5"), "Trigggered a kernel crash"); |
|
27 |
ok (wait_for_prompt("rhel5",$prompt_timeout), "Got the login prompt"); |
|
28 |
like ( check_service("rhel5","status"), qr/exists$/,'rhel5 : service crashdc status'); |
|
29 |
sleep 60; |
|
30 |
like ( check_service("rhel5","generate"), qr/has been generated$/,'rhel5 : service crashdc generate'); |
|
31 |
like ( check_service("rhel5","advanced"), qr/has been generated$/,'rhel5 : service crashdc advanced'); |
|
32 |
like ( check_service("rhel5","custom"), qr/has been generated$/,'rhel5 : service crashdc custom'); |
|
33 |
ok (switch_grub("rhel5","pae"), "VM setup to boot on PAE kernel"); |
|
34 |
ok (reboot_vm("rhel5"), "Rebooted VM with PAE kernel"); |
|
35 |
||
36 |
ok (wait_for_prompt("rhel5",$prompt_timeout), "Got the login prompt"); |
|
37 |
ok (crash_vm("rhel5"), "Trigggered a kernel crash"); |
|
38 |
ok (wait_for_prompt("rhel5",$prompt_timeout), "Got the login prompt"); |
|
39 |
like ( check_service("rhel5","status"), qr/exists$/,'rhel5 : service crashdc status'); |
|
40 |
sleep 60; |
|
41 |
like ( check_service("rhel5","generate"), qr/has been generated$/,'rhel5 : service crashdc generate'); |
|
42 |
like ( check_service("rhel5","advanced"), qr/has been generated$/,'rhel5 : service crashdc advanced'); |
|
43 |
like ( check_service("rhel5","custom"), qr/has been generated$/,'rhel5 : service crashdc custom'); |