public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* mustSucceed -> succeed.

Browse Source 
svn path=/nixos/trunk/; revision=21943
This commit is contained in:
Eelco Dolstra 2010-05-22 21:27:38 +00:00
parent dd81311714
commit 07df264e0c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/test-driver/Machine.pm
View File

@ -255,7 +255,7 @@ sub execute {
} }
sub mustSucceed { sub succeed {
my ($self, @commands) = @_; my ($self, @commands) = @_;
my $res; my $res;
foreach my $command (@commands) { foreach my $command (@commands) {
@ -270,6 +270,11 @@ sub mustSucceed {
} }
sub mustSucceed {
succeed @_;
}
sub waitUntilSucceeds { sub waitUntilSucceeds {
my ($self, $command) = @_; my ($self, $command) = @_;
retry sub { retry sub {