From 07df264e0c617f56de871d85f70b50fef2f339d6 Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Sat, 22 May 2010 21:27:38 +0000
Subject: [PATCH] * mustSucceed -> succeed.

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

diff --git a/lib/test-driver/Machine.pm b/lib/test-driver/Machine.pm
index a832e7cab48e..ed43d8d255a4 100644
--- a/lib/test-driver/Machine.pm
+++ b/lib/test-driver/Machine.pm
@@ -255,7 +255,7 @@ sub execute {
 }
 
 
-sub mustSucceed {
+sub succeed {
     my ($self, @commands) = @_;
     my $res;
     foreach my $command (@commands) {
@@ -270,6 +270,11 @@ sub mustSucceed {
 }
 
 
+sub mustSucceed {
+    succeed @_;
+}
+
+
 sub waitUntilSucceeds {
     my ($self, $command) = @_;
     retry sub {