forked from mirrors/nixpkgs
97 lines
3.5 KiB
Nix
97 lines
3.5 KiB
Nix
|
{ system ? builtins.currentSystem }:
|
||
|
|
|
||
|
|
with import ../lib/testing.nix { inherit system; };
|
||
|
|
with import ../lib/qemu-flags.nix;
|
||
|
|
with pkgs.lib;
|
||
|
|
|
||
|
|
let
|
||
|
|
image =
|
||
|
|
(import ../lib/eval-config.nix {
|
||
|
|
inherit system;
|
||
|
|
modules = [
|
||
|
|
../maintainers/scripts/ec2/amazon-hvm-config.nix
|
||
|
|
../../nixos/modules/testing/test-instrumentation.nix
|
||
|
|
{ boot.initrd.kernelModules = [ "virtio" "virtio_blk" "virtio_pci" "virtio_ring" ]; }
|
||
|
|
];
|
||
|
|
}).config.system.build.amazonImage;
|
||
|
|
|
||
|
|
makeEc2Test = { name, userData, script, hostname ? "ec2-instance", sshPublicKey ? null }:
|
||
|
|
let
|
||
|
|
metaData = pkgs.stdenv.mkDerivation {
|
||
|
|
name = "metadata";
|
||
|
|
buildCommand = ''
|
||
|
|
mkdir -p $out/2011-01-01
|
||
|
|
ln -s ${pkgs.writeText "userData" userData} $out/2011-01-01/user-data
|
||
|
|
mkdir -p $out/1.0/meta-data
|
||
|
|
echo "${hostname}" > $out/1.0/meta-data/hostname
|
||
|
|
'' + optionalString (sshPublicKey != null) ''
|
||
|
|
mkdir -p $out/1.0/meta-data/public-keys/0
|
||
|
|
ln -s ${pkgs.writeText "sshPublicKey" sshPublicKey} $out/1.0/meta-data/public-keys/0/openssh-key
|
||
|
|
'';
|
||
|
|
};
|
||
|
|
in makeTest {
|
||
|
|
name = "ec2-" + name;
|
||
|
|
nodes = {};
|
||
|
|
testScript =
|
||
|
|
''
|
||
|
|
use File::Temp qw/ tempfile /;
|
||
|
|
my ($fh, $filename) = tempfile();
|
||
|
|
|
||
|
|
`qemu-img create -f qcow2 -o backing_file=${image}/nixos.img $filename`;
|
||
|
|
|
||
|
|
my $startCommand = "qemu-kvm -m 768 -net nic -net 'user,net=169.254.0.0/16,guestfwd=tcp:169.254.169.254:80-cmd:${pkgs.micro-httpd}/bin/micro_httpd ${metaData}'";
|
||
|
|
$startCommand .= " -drive file=" . Cwd::abs_path($filename) . ",if=virtio,werror=report";
|
||
|
|
$startCommand .= " \$QEMU_OPTS";
|
||
|
|
|
||
|
|
my $machine = createMachine({ startCommand => $startCommand });
|
||
|
|
${script}
|
||
|
|
'';
|
||
|
|
};
|
||
|
|
|
||
|
|
snakeOilPrivateKey = [
|
||
|
|
"-----BEGIN EC PRIVATE KEY-----"
|
||
|
|
"MHcCAQEEIHQf/khLvYrQ8IOika5yqtWvI0oquHlpRLTZiJy5dRJmoAoGCCqGSM49"
|
||
|
|
"AwEHoUQDQgAEKF0DYGbBwbj06tA3fd/+yP44cvmwmHBWXZCKbS+RQlAKvLXMWkpN"
|
||
|
|
"r1lwMyJZoSGgBHoUahoYjTh9/sJL7XLJtA=="
|
||
|
|
"-----END EC PRIVATE KEY-----"
|
||
|
|
];
|
||
|
|
|
||
|
|
snakeOilPublicKey = pkgs.lib.concatStrings [
|
||
|
|
"ecdsa-sha2-nistp256 AAAAE2VjZHNhLXNoYTItbmlzdHAyNTYAAAAIbmlzdHA"
|
||
|
|
"yNTYAAABBBChdA2BmwcG49OrQN33f/sj+OHL5sJhwVl2Qim0vkUJQCry1zFpKTa"
|
||
|
|
"9ZcDMiWaEhoAR6FGoaGI04ff7CS+1yybQ= snakeoil"
|
||
|
|
];
|
||
|
|
in {
|
||
|
|
bootEc2NixOps = makeEc2Test {
|
||
|
|
name = "nixops-userdata";
|
||
|
|
sshPublicKey = snakeOilPublicKey; # That's right folks! My user's key is also the host key!
|
||
|
|
|
||
|
|
userData = ''
|
||
|
|
SSH_HOST_DSA_KEY_PUB:${snakeOilPublicKey}
|
||
|
|
SSH_HOST_DSA_KEY:${pkgs.lib.concatStringsSep "|" snakeOilPrivateKey}
|
||
|
|
'';
|
||
|
|
script = ''
|
||
|
|
$machine->start;
|
||
|
|
$machine->waitForFile("/root/user-data");
|
||
|
|
$machine->waitForUnit("sshd.service");
|
||
|
|
|
||
|
|
# We have no keys configured on the client side yet, so this should fail
|
||
|
|
$machine->fail("ssh -o BatchMode=yes localhost exit");
|
||
|
|
|
||
|
|
# Let's install our client private key
|
||
|
|
$machine->succeed("mkdir -p ~/.ssh");
|
||
|
|
${concatMapStrings (s: "$machine->succeed('echo ${s} >> ~/.ssh/id_ecdsa');") snakeOilPrivateKey}
|
||
|
|
$machine->succeed("chmod 600 ~/.ssh/id_ecdsa");
|
||
|
|
|
||
|
|
# We haven't configured the host key yet, so this should still fail
|
||
|
|
$machine->fail("ssh -o BatchMode=yes localhost exit");
|
||
|
|
|
||
|
|
# Add the host key; ssh should finally succeed
|
||
|
|
$machine->succeed("echo localhost,127.0.0.1 ${snakeOilPublicKey} > ~/.ssh/known_hosts");
|
||
|
|
$machine->succeed("ssh -o BatchMode=yes localhost exit");
|
||
|
|
|
||
|
|
$machine->shutdown;
|
||
|
|
'';
|
||
|
|
};
|
||
|
|
}
|