1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
def checkpoints
cp = Hash.new
cp['disk-for-d-i'] = {
:description => "a disk is created for Debian Installer tests",
:parent_checkpoint => nil,
:steps => [
'I create a 8 GiB disk named "'+JOB_NAME+'"',
'I plug ide drive "'+JOB_NAME+'"',
]
}
cp['disk-for-deb-edu'] = {
:description => "a disk is created for Debian Edu tests",
:parent_checkpoint => nil,
:steps => [
'I create a 25 GiB disk named "'+JOB_NAME+'"',
'I plug ide drive "'+JOB_NAME+'"',
]
}
['text', 'gui'].each do |m|
cp["boot-d-i-#{m}-to-tasksel"] = {
:description => "I have started Debian Installer in #{m} mode and stopped at the Tasksel prompt",
:parent_checkpoint => 'disk-for-d-i',
:steps => [
"I intend to use #{m} mode",
'I start the computer',
'I select the install mode',
'I select British English',
'I accept the hostname, using "example.com" as the domain',
'I set the root password to "rootme"',
'I set the password for "Philip Hands" to be "verysecret"',
'I select full-disk, single-filesystem partitioning',
'I note that the Base system is being installed',
'I accept the default mirror',
'I ignore Popcon',
'we reach the Tasksel prompt',
]
}
['minimal', 'non-GUI', 'Gnome', 'XFCE', 'LXDE', 'KDE'].each do |de|
cp["debian-#{m}-#{de}-install"] = {
:temporary => 'XFCE' != de,
:description => "I install a #{de} Debian system, in #{m} mode",
:parent_checkpoint => "boot-d-i-#{m}-to-tasksel",
:steps => [
"I intend to use #{m} mode",
"I select the #{de} task",
'I wait while the bulk of the packages are installed',
'I install GRUB',
'I allow reboot after the install is complete',
'I wait for the reboot',
'I power off the computer',
'the computer is set to boot from ide drive',
]
}
end
end
return cp
end
def reach_checkpoint(name)
scenario_indent = " "*4
step_indent = " "*6
step "a computer"
if VM.snapshot_exists?(name)
$vm.restore_snapshot(name)
post_snapshot_restore_hook
else
checkpoint = checkpoints[name]
checkpoint_description = checkpoint[:description]
parent_checkpoint = checkpoint[:parent_checkpoint]
steps = checkpoint[:steps]
if parent_checkpoint
if VM.snapshot_exists?(parent_checkpoint)
$vm.restore_snapshot(parent_checkpoint)
else
reach_checkpoint(parent_checkpoint)
end
post_snapshot_restore_hook
end
debug_log(scenario_indent + "Checkpoint: #{checkpoint_description}",
:color => :white)
step_action = "Given"
if parent_checkpoint
parent_description = checkpoints[parent_checkpoint][:description]
debug_log(step_indent + "#{step_action} #{parent_description}",
:color => :green)
step_action = "And"
end
steps.each do |s|
begin
step(s)
rescue Exception => e
debug_log(scenario_indent +
"Step failed while creating checkpoint: #{s}",
:color => :red)
raise e
end
debug_log(step_indent + "#{step_action} #{s}", :color => :green)
step_action = "And"
end
$vm.save_snapshot(name)
end
end
# For each checkpoint we generate a step to reach it.
checkpoints.each do |name, desc|
step_regex = Regexp.new("^#{Regexp.escape(desc[:description])}$")
Given step_regex do
reach_checkpoint(name)
end
end
|