diff options
Diffstat (limited to 'lib/test-driver/test-driver.pl')
-rw-r--r-- | lib/test-driver/test-driver.pl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/test-driver/test-driver.pl b/lib/test-driver/test-driver.pl index 6bac1f1dd39..2ccc6bd4b9a 100644 --- a/lib/test-driver/test-driver.pl +++ b/lib/test-driver/test-driver.pl @@ -52,6 +52,15 @@ sub runTests { } +# Create an empty qcow2 virtual disk with the given name and size (in +# MiB). +sub createDisk { + my ($name, $size) = @_; + system("qemu-img create -f qcow2 $name ${size}M") == 0 + or die "cannot create image of size $size"; +} + + END { foreach my $vm (values %vms) { if ($vm->{pid}) { |