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

* mustFail -> fail.

Browse Source 
* Added a function to crash a VM.

svn path=/nixos/branches/boot-order/; revision=22200
This commit is contained in:
Eelco Dolstra 2010-06-09 13:46:52 +00:00
parent b56b4c22d5
commit 483c322a62
1 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -294,7 +294,7 @@ sub waitUntilFails {
} }
sub mustFail { sub fail {
my ($self, $command) = @_; my ($self, $command) = @_;
my ($status, $out) = $self->execute($command); my ($status, $out) = $self->execute($command);
die "command `$command' unexpectedly succeeded" die "command `$command' unexpectedly succeeded"
@ -302,6 +302,11 @@ sub mustFail {
} }
sub mustFail {
fail @_;
}
# Wait for an Upstart job to reach the "running" state. # Wait for an Upstart job to reach the "running" state.
sub waitForJob { sub waitForJob {
my ($self, $jobName) = @_; my ($self, $jobName) = @_;
@ -360,6 +365,16 @@ sub shutdown {
} }
sub crash {
my ($self) = @_;
return unless $self->{booted};
$self->sendMonitorCommand("quit");
$self->waitForShutdown;
}
# Make the machine unreachable by shutting down eth1 (the multicast # Make the machine unreachable by shutting down eth1 (the multicast
# interface used to talk to the other VMs). We keep eth0 up so that # interface used to talk to the other VMs). We keep eth0 up so that
# the test driver can continue to talk to the machine. # the test driver can continue to talk to the machine.