2012-04-19 19:56:35 +01:00
|
|
|
# Miscellaneous small tests that don't warrant their own VM run.
|
|
|
|
|
|
|
|
{ pkgs, ... }:
|
|
|
|
|
|
|
|
{
|
|
|
|
|
2012-06-12 15:05:11 +01:00
|
|
|
machine =
|
|
|
|
{ config, pkgs, ... }:
|
|
|
|
{ swapDevices = pkgs.lib.mkOverride 0
|
|
|
|
[ { device = "/root/swapfile"; size = 128; } ];
|
|
|
|
};
|
2012-04-19 19:56:35 +01:00
|
|
|
|
|
|
|
testScript =
|
|
|
|
''
|
|
|
|
subtest "nixos-version", sub {
|
|
|
|
$machine->succeed("[ `nixos-version | wc -w` = 1 ]");
|
|
|
|
};
|
|
|
|
|
2012-04-20 13:55:09 +01:00
|
|
|
# Sanity check for uid/gid assignment.
|
|
|
|
subtest "users-groups", sub {
|
|
|
|
$machine->succeed("[ `id -u messagebus` = 4 ]");
|
|
|
|
$machine->succeed("[ `id -g messagebus` = 4 ]");
|
|
|
|
$machine->succeed("[ `getent group users` = 'users:x:100:' ]");
|
|
|
|
};
|
|
|
|
|
2012-04-19 19:56:35 +01:00
|
|
|
# Regression test for GMP aborts on QEMU.
|
|
|
|
subtest "gmp", sub {
|
|
|
|
$machine->succeed("expr 1 + 2");
|
|
|
|
};
|
2012-06-12 15:05:11 +01:00
|
|
|
|
|
|
|
# Test that the swap file got created.
|
|
|
|
subtest "swapfile", sub {
|
|
|
|
$machine->waitUntilSucceeds("cat /proc/swaps | grep /root/swapfile");
|
|
|
|
$machine->succeed("ls -l /root/swapfile | grep 134217728");
|
|
|
|
};
|
2012-04-19 19:56:35 +01:00
|
|
|
'';
|
|
|
|
|
|
|
|
}
|