f28cb27fb1
This is primarily for EC2 and other cloud environments, where the disk
may be bigger than the original image.
(cherry picked from commit 9d92bd7845)
37 lines
1.2 KiB
Nix
37 lines
1.2 KiB
Nix
import ./make-test.nix ({ pkgs, lib, ...} : {
|
|
|
|
meta.maintainers = [ lib.maintainers.eelco ];
|
|
|
|
machine = { config, pkgs, ... }: {
|
|
virtualisation.diskSize = 512;
|
|
fileSystems = lib.mkVMOverride {
|
|
"/".autoResize = true;
|
|
};
|
|
};
|
|
|
|
testScript =
|
|
''
|
|
# Create a VM with a 512 MiB disk.
|
|
$machine->start;
|
|
$machine->waitForUnit("multi-user.target");
|
|
my $blocks = $machine->succeed("stat -c %b -f /");
|
|
my $bsize = $machine->succeed("stat -c %S -f /");
|
|
my $size = $blocks * $bsize;
|
|
die "wrong free space $size" if $size < 480 * 1024 * 1024 || $size > 512 * 1024 * 1024;
|
|
$machine->succeed("touch /marker");
|
|
$machine->shutdown;
|
|
|
|
# Grow the disk to 1024 MiB.
|
|
system("qemu-img resize vm-state-machine/machine.qcow2 1024M") == 0 or die;
|
|
|
|
# Start the VM again and check whether the initrd has correctly
|
|
# grown the root filesystem.
|
|
$machine->start;
|
|
$machine->waitForUnit("multi-user.target");
|
|
$machine->succeed("[ -e /marker ]");
|
|
my $blocks = $machine->succeed("stat -c %b -f /");
|
|
my $size = $blocks * $bsize;
|
|
die "wrong free space $size" if $size < 980 * 1024 * 1024 || $size > 1024 * 1024 * 1024;
|
|
'';
|
|
})
|