lvc: publish live-screenshots on each checkpoint

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

1 files changed, 17 insertions, 0 deletions

diff --git a/cucumber/features/step_definitions/snapshots.rb b/cucumber/features/step_definitions/snapshots.rb
index 1604ddae..05b6282d 100644
--- a/cucumber/features/step_definitions/snapshots.rb
+++ b/cucumber/features/step_definitions/snapshots.rb
@@ -159,11 +159,27 @@ def checkpoints
   }
 end
 
+def live_screenshot()
+  debug_log("debug: publishing live screenshot.")
+  screen_capture = @screen.capture
+  p = screen_capture.getFilename
+  if File.exist?(p)
+    s = ENV['WORKSPACE']
+    s_path = "#{s}/screenshot.png"
+    FileUtils.mv(p, s_path)
+    convert = IO.popen(['convert',
+                      s_path, '-adaptive-resize', '128x96', "#{s}/screenshot-thumb.png",
+                      :err => ['/dev/null', 'w'],
+                     ])
+  end
+end
+
 def reach_checkpoint(name)
   scenario_indent = " "*4
   step_indent = " "*6
 
   step "a computer"
+  live_screenshot
   if VM.snapshot_exists?(name)
     $vm.restore_snapshot(name)
     post_snapshot_restore_hook
@@ -203,6 +219,7 @@ def reach_checkpoint(name)
     end
     $vm.save_snapshot(name)
   end
+  live_screenshot
 end
 
 # For each checkpoint we generate a step to reach it.