| 
									
										
										
										
											2019-01-28 11:59:18 +01:00
										 |  |  | { pkgs, makeTest }: | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | with pkgs.lib; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | { | 
					
						
							| 
									
										
										
										
											2020-10-03 19:57:50 +02:00
										 |  |  |   makeEc2Test = { name, image, userData, script, hostname ? "ec2-instance", sshPublicKey ? null, meta ? {} }: | 
					
						
							| 
									
										
										
										
											2019-01-28 11:59:18 +01:00
										 |  |  |     let | 
					
						
							|  |  |  |       metaData = pkgs.stdenv.mkDerivation { | 
					
						
							|  |  |  |         name = "metadata"; | 
					
						
							|  |  |  |         buildCommand = ''
 | 
					
						
							|  |  |  |           mkdir -p $out/1.0/meta-data | 
					
						
							|  |  |  |           ln -s ${pkgs.writeText "userData" userData} $out/1.0/user-data | 
					
						
							|  |  |  |           echo "${hostname}" > $out/1.0/meta-data/hostname | 
					
						
							|  |  |  |           echo "(unknown)" > $out/1.0/meta-data/ami-manifest-path | 
					
						
							|  |  |  |         '' + 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 = {}; | 
					
						
							| 
									
										
										
										
											2020-02-02 09:48:11 +01:00
										 |  |  |       testScript = ''
 | 
					
						
							|  |  |  |         import os | 
					
						
							|  |  |  |         import subprocess | 
					
						
							| 
									
										
										
										
											2019-01-28 11:59:18 +01:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2020-02-02 09:48:11 +01:00
										 |  |  |         image_dir = os.path.join( | 
					
						
							|  |  |  |             os.environ.get("TMPDIR", tempfile.gettempdir()), "tmp", "vm-state-machine" | 
					
						
							|  |  |  |         ) | 
					
						
							|  |  |  |         os.makedirs(image_dir, mode=0o700, exist_ok=True) | 
					
						
							|  |  |  |         disk_image = os.path.join(image_dir, "machine.qcow2") | 
					
						
							|  |  |  |         subprocess.check_call( | 
					
						
							|  |  |  |             [ | 
					
						
							|  |  |  |                 "qemu-img", | 
					
						
							|  |  |  |                 "create", | 
					
						
							|  |  |  |                 "-f", | 
					
						
							|  |  |  |                 "qcow2", | 
					
						
							|  |  |  |                 "-o", | 
					
						
							|  |  |  |                 "backing_file=${image}", | 
					
						
							|  |  |  |                 disk_image, | 
					
						
							|  |  |  |             ] | 
					
						
							|  |  |  |         ) | 
					
						
							|  |  |  |         subprocess.check_call(["qemu-img", "resize", disk_image, "10G"]) | 
					
						
							| 
									
										
										
										
											2019-01-28 11:59:18 +01:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2020-02-02 09:48:11 +01:00
										 |  |  |         # Note: we use net=169.0.0.0/8 rather than | 
					
						
							|  |  |  |         # net=169.254.0.0/16 to prevent dhcpcd from getting horribly | 
					
						
							|  |  |  |         # confused. (It would get a DHCP lease in the 169.254.* | 
					
						
							|  |  |  |         # range, which it would then configure and prompty delete | 
					
						
							|  |  |  |         # again when it deletes link-local addresses.) Ideally we'd | 
					
						
							|  |  |  |         # turn off the DHCP server, but qemu does not have an option | 
					
						
							|  |  |  |         # to do that. | 
					
						
							|  |  |  |         start_command = ( | 
					
						
							|  |  |  |             "qemu-kvm -m 1024" | 
					
						
							|  |  |  |             + " -device virtio-net-pci,netdev=vlan0" | 
					
						
							|  |  |  |             + " -netdev 'user,id=vlan0,net=169.0.0.0/8,guestfwd=tcp:169.254.169.254:80-cmd:${pkgs.micro-httpd}/bin/micro_httpd ${metaData}'" | 
					
						
							|  |  |  |             + f" -drive file={disk_image},if=virtio,werror=report" | 
					
						
							|  |  |  |             + " $QEMU_OPTS" | 
					
						
							|  |  |  |         ) | 
					
						
							| 
									
										
										
										
											2019-01-28 11:59:18 +01:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2020-02-02 09:48:11 +01:00
										 |  |  |         machine = create_machine({"startCommand": start_command}) | 
					
						
							|  |  |  |       '' + script;
 | 
					
						
							| 
									
										
										
										
											2020-10-03 19:57:50 +02:00
										 |  |  | 
 | 
					
						
							|  |  |  |       inherit meta; | 
					
						
							| 
									
										
										
										
											2019-01-28 11:59:18 +01:00
										 |  |  |     }; | 
					
						
							|  |  |  | } |