lvc: vastly more patience required

Signed-off-by: Holger Levsen <holger@layer-acht.org>

2 files changed, 15 insertions, 2 deletions

diff --git a/cucumber/features/step_definitions/common_steps.rb b/cucumber/features/step_definitions/common_steps.rb
index d8611195..0783c66d 100644
--- a/cucumber/features/step_definitions/common_steps.rb
+++ b/cucumber/features/step_definitions/common_steps.rb
@@ -263,10 +263,12 @@ When /^I destroy the computer$/ do
   $vm.destroy_and_undefine
 end
 
-Given /^I boot to the d-i splash screen$/ do
+Given /^I accept that the machine is sl(o+)w$/ do |slowness|
+  @patience = 2^slowness.length
+end
 
+Given /^I boot to the d-i splash screen$/ do
   boot_timeout = 60
-  @patience = 6
 
   @screen.wait("d-i8_bootsplash.png", boot_timeout * @patience)
 end
diff --git a/cucumber/features/step_definitions/snapshots.rb b/cucumber/features/step_definitions/snapshots.rb
index 05b6282d..8b06ebd8 100644
--- a/cucumber/features/step_definitions/snapshots.rb
+++ b/cucumber/features/step_definitions/snapshots.rb
@@ -6,6 +6,7 @@ def checkpoints
       :steps => [
 	'I create a 8 GiB disk named "target"',
 	'I plug ide drive "target"',
+	'I accept that the machine is slooooow',
 	'I start the computer',
 	'I boot to the d-i splash screen',
       ],
@@ -15,6 +16,7 @@ def checkpoints
       :description => "I have started Debian Installer and stopped at the Tasksel prompt",
       :parent_checkpoint => 'boot-d-i',
       :steps => [
+	'I accept that the machine is slooooow',
 	'I select text mode and wait for the remote shell',
 	'in text mode I select British English',
 	'in text mode I accept the hostname, using "example.com" as the domain',
@@ -32,6 +34,7 @@ def checkpoints
       :description => "I have started GUI Debian Installer and stopped at the Tasksel prompt",
       :parent_checkpoint => 'boot-d-i',
       :steps => [
+	'I accept that the machine is slooooow',
 	'I select gui mode and wait for the remote shell',
 	'in gui mode I select British English',
 	'in gui mode I accept the hostname, using "example.com" as the domain',
@@ -49,6 +52,7 @@ def checkpoints
       :description => "I install a non-GUI Debian system, in text mode",
       :parent_checkpoint => 'boot-d-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in text mode I unset the Desktop task',
 	'in text mode I wait while the bulk of the packages are installed',
 	'in text mode I install GRUB',
@@ -63,6 +67,7 @@ def checkpoints
       :description => "I install a non-GUI Debian system, in gui mode",
       :parent_checkpoint => 'boot-g-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in gui mode I unset the Desktop task',
 	'in gui mode I wait while the bulk of the packages are installed',
 	'in gui mode I install GRUB',
@@ -77,6 +82,7 @@ def checkpoints
       :description => "I install a Minimal Debian system, in text mode",
       :parent_checkpoint => 'boot-d-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in text mode I unset the Desktop and Print tasks',
 	'in text mode I wait while the bulk of the packages are installed',
 	'in text mode I install GRUB',
@@ -91,6 +97,7 @@ def checkpoints
       :description => "I install a Minimal Debian system, in gui mode",
       :parent_checkpoint => 'boot-g-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in gui mode I unset the Desktop and Print tasks',
 	'in gui mode I wait while the bulk of the packages are installed',
 	'in gui mode I install GRUB',
@@ -105,6 +112,7 @@ def checkpoints
       :description => "I install a Gnome Desktop Debian system, in text mode",
       :parent_checkpoint => 'boot-d-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in text mode I select the Gnome Desktop task',
 	'in text mode I wait while the bulk of the packages are installed',
 	'in text mode I install GRUB',
@@ -119,6 +127,7 @@ def checkpoints
       :description => "I install a Gnome Desktop Debian system, in gui mode",
       :parent_checkpoint => 'boot-g-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in gui mode I select the Gnome Desktop task',
 	'in gui mode I wait while the bulk of the packages are installed',
 	'in gui mode I install GRUB',
@@ -133,6 +142,7 @@ def checkpoints
       :description => "I install a XFCE Desktop Debian system, in text mode",
       :parent_checkpoint => 'boot-d-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in text mode I select the XFCE Desktop task',
 	'in text mode I wait while the bulk of the packages are installed',
 	'in text mode I install GRUB',
@@ -147,6 +157,7 @@ def checkpoints
       :description => "I install a XFCE Desktop Debian system, in gui mode",
       :parent_checkpoint => 'boot-g-i-to-tasksel',
       :steps => [
+	'I accept that the machine is slooooow',
 	'in gui mode I select the XFCE Desktop task',
 	'in gui mode I wait while the bulk of the packages are installed',
 	'in gui mode I install GRUB',