From 4695f790cf44976b3f920bac38e046a82fceae5b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 10 Oct 2010 22:37:45 +0000
Subject: [PATCH] test-driver: Add `startJob' method.

svn path=/nixos/trunk/; revision=24210
---
 lib/test-driver/Machine.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/lib/test-driver/Machine.pm b/lib/test-driver/Machine.pm
index 9f5971d70a1..daa40f78f9f 100644
--- a/lib/test-driver/Machine.pm
+++ b/lib/test-driver/Machine.pm
@@ -330,6 +330,12 @@ sub waitForFile {
     }
 }
 
+sub startJob {
+    my ($self, $jobName) = @_;
+    $self->execute("initctl start $jobName");
+    my ($status, $out) = $self->execute("initctl status $jobName");
+    die "failed to start $jobName" unless $out =~ /start\/running/;
+}
 
 sub stopJob {
     my ($self, $jobName) = @_;