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+'"', ] } ['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