2014-04-03 15:26:03 +01:00
|
|
|
|
# Test for NixOS' container support.
|
|
|
|
|
|
2015-07-12 11:09:40 +01:00
|
|
|
|
import ./make-test.nix ({ pkgs, ...} : {
|
2016-03-18 14:29:45 +00:00
|
|
|
|
name = "containers-imperative";
|
2015-07-12 11:09:40 +01:00
|
|
|
|
meta = with pkgs.stdenv.lib.maintainers; {
|
2016-05-16 12:06:40 +01:00
|
|
|
|
maintainers = [ aristid aszlig eelco chaoflow kampfschlaefer ];
|
2015-07-12 11:09:40 +01:00
|
|
|
|
};
|
2014-04-03 15:26:03 +01:00
|
|
|
|
|
|
|
|
|
machine =
|
2016-05-04 19:44:55 +01:00
|
|
|
|
{ config, pkgs, lib, ... }:
|
2014-04-03 15:26:03 +01:00
|
|
|
|
{ imports = [ ../modules/installer/cd-dvd/channel.nix ];
|
|
|
|
|
virtualisation.writableStore = true;
|
|
|
|
|
virtualisation.memorySize = 768;
|
2016-05-04 18:53:43 +01:00
|
|
|
|
# Make sure we always have all the required dependencies for creating a
|
|
|
|
|
# container available within the VM, because we don't have network access.
|
|
|
|
|
virtualisation.pathsInNixDB = let
|
|
|
|
|
emptyContainer = import ../lib/eval-config.nix {
|
|
|
|
|
inherit (config.nixpkgs) system;
|
|
|
|
|
modules = lib.singleton {
|
|
|
|
|
containers.foo.config = {};
|
|
|
|
|
};
|
|
|
|
|
};
|
|
|
|
|
in [ pkgs.stdenv emptyContainer.config.containers.foo.path ];
|
2014-04-03 15:26:03 +01:00
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
testScript =
|
|
|
|
|
''
|
|
|
|
|
# Make sure we have a NixOS tree (required by ‘nixos-container create’).
|
2015-08-05 16:29:08 +01:00
|
|
|
|
$machine->succeed("PAGER=cat nix-env -qa -A nixos.hello >&2");
|
2014-04-03 15:26:03 +01:00
|
|
|
|
|
|
|
|
|
# Create some containers imperatively.
|
|
|
|
|
my $id1 = $machine->succeed("nixos-container create foo --ensure-unique-name");
|
|
|
|
|
chomp $id1;
|
|
|
|
|
$machine->log("created container $id1");
|
|
|
|
|
|
|
|
|
|
my $id2 = $machine->succeed("nixos-container create foo --ensure-unique-name");
|
|
|
|
|
chomp $id2;
|
|
|
|
|
$machine->log("created container $id2");
|
|
|
|
|
|
|
|
|
|
die if $id1 eq $id2;
|
|
|
|
|
|
2014-09-11 17:03:45 +01:00
|
|
|
|
# Put the root of $id2 into a bind mount.
|
|
|
|
|
$machine->succeed(
|
|
|
|
|
"mv /var/lib/containers/$id2 /id2-bindmount",
|
|
|
|
|
"mount --bind /id2-bindmount /var/lib/containers/$id1"
|
|
|
|
|
);
|
|
|
|
|
|
2014-04-03 15:26:03 +01:00
|
|
|
|
my $ip1 = $machine->succeed("nixos-container show-ip $id1");
|
|
|
|
|
chomp $ip1;
|
|
|
|
|
my $ip2 = $machine->succeed("nixos-container show-ip $id2");
|
|
|
|
|
chomp $ip2;
|
|
|
|
|
die if $ip1 eq $ip2;
|
|
|
|
|
|
2014-09-11 17:03:45 +01:00
|
|
|
|
# Create a directory and a file we can later check if it still exists
|
|
|
|
|
# after destruction of the container.
|
|
|
|
|
$machine->succeed(
|
|
|
|
|
"mkdir /nested-bindmount",
|
|
|
|
|
"echo important data > /nested-bindmount/dummy",
|
|
|
|
|
);
|
|
|
|
|
|
|
|
|
|
# Create a directory with a dummy file and bind-mount it into both
|
|
|
|
|
# containers.
|
|
|
|
|
foreach ($id1, $id2) {
|
|
|
|
|
my $importantPath = "/var/lib/containers/$_/very/important/data";
|
|
|
|
|
$machine->succeed(
|
|
|
|
|
"mkdir -p $importantPath",
|
|
|
|
|
"mount --bind /nested-bindmount $importantPath"
|
|
|
|
|
);
|
|
|
|
|
}
|
|
|
|
|
|
2014-04-03 15:26:03 +01:00
|
|
|
|
# Start one of them.
|
|
|
|
|
$machine->succeed("nixos-container start $id1");
|
|
|
|
|
|
|
|
|
|
# Execute commands via the root shell.
|
2014-04-16 15:09:32 +01:00
|
|
|
|
$machine->succeed("nixos-container run $id1 -- uname") =~ /Linux/ or die;
|
2014-04-03 15:26:03 +01:00
|
|
|
|
|
2014-11-24 22:19:34 +00:00
|
|
|
|
# Stop and start (regression test for #4989)
|
|
|
|
|
$machine->succeed("nixos-container stop $id1");
|
|
|
|
|
$machine->succeed("nixos-container start $id1");
|
|
|
|
|
|
|
|
|
|
# Execute commands via the root shell.
|
|
|
|
|
$machine->succeed("nixos-container run $id1 -- uname") =~ /Linux/ or die;
|
|
|
|
|
|
2014-04-03 15:26:03 +01:00
|
|
|
|
# Destroy the containers.
|
|
|
|
|
$machine->succeed("nixos-container destroy $id1");
|
|
|
|
|
$machine->succeed("nixos-container destroy $id2");
|
|
|
|
|
|
2014-09-11 17:03:45 +01:00
|
|
|
|
$machine->succeed(
|
|
|
|
|
# Check whether destruction of any container has killed important data
|
|
|
|
|
"grep -qF 'important data' /nested-bindmount/dummy",
|
|
|
|
|
# Ensure that the container path is gone
|
|
|
|
|
"test ! -e /var/lib/containers/$id1"
|
|
|
|
|
);
|
2014-04-03 15:26:03 +01:00
|
|
|
|
'';
|
|
|
|
|
|
2015-07-12 11:09:40 +01:00
|
|
|
|
})
|