| 
									
										
										
										
											2015-03-05 17:21:27 +03:00
										 |  |  | # Test whether hibernation from partition works. | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | import ./make-test.nix (pkgs: { | 
					
						
							|  |  |  |   name = "hibernate"; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |   nodes = { | 
					
						
							|  |  |  |     machine = { config, lib, pkgs, ... }: with lib; { | 
					
						
							|  |  |  |       virtualisation.emptyDiskImages = [ config.virtualisation.memorySize ]; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |       systemd.services.backdoor.conflicts = [ "sleep.target" ]; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |       swapDevices = mkOverride 0 [ { device = "/dev/vdb"; } ]; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |       networking.firewall.allowedTCPPorts = [ 4444 ]; | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2017-04-02 02:21:59 +03:00
										 |  |  |       systemd.services.listener.serviceConfig.ExecStart = "${pkgs.netcat}/bin/nc -l 4444 -k"; | 
					
						
							| 
									
										
										
										
											2015-03-05 17:21:27 +03:00
										 |  |  |     }; | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2018-07-20 20:56:59 +00:00
										 |  |  |     probe = { pkgs, ...}: { | 
					
						
							| 
									
										
										
										
											2015-03-05 17:21:27 +03:00
										 |  |  |       environment.systemPackages = [ pkgs.netcat ]; | 
					
						
							|  |  |  |     }; | 
					
						
							|  |  |  |   }; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |   # 9P doesn't support reconnection to virtio transport after a hibernation. | 
					
						
							|  |  |  |   # Therefore, machine just hangs on any Nix store access. | 
					
						
							|  |  |  |   # To work around it we run a daemon which listens to a TCP connection and | 
					
						
							|  |  |  |   # try to connect to it as a test. | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |   testScript = | 
					
						
							|  |  |  |     ''
 | 
					
						
							|  |  |  |       $machine->waitForUnit("multi-user.target"); | 
					
						
							|  |  |  |       $machine->succeed("mkswap /dev/vdb"); | 
					
						
							|  |  |  |       $machine->succeed("swapon -a"); | 
					
						
							|  |  |  |       $machine->startJob("listener"); | 
					
						
							| 
									
										
										
										
											2017-04-02 02:21:59 +03:00
										 |  |  |       $machine->waitForOpenPort(4444); | 
					
						
							| 
									
										
										
										
											2015-03-05 17:21:27 +03:00
										 |  |  |       $machine->succeed("systemctl hibernate &"); | 
					
						
							|  |  |  |       $machine->waitForShutdown; | 
					
						
							| 
									
										
										
										
											2018-09-19 16:19:45 +02:00
										 |  |  |       $probe->waitForUnit("multi-user.target"); | 
					
						
							| 
									
										
										
										
											2015-03-05 17:21:27 +03:00
										 |  |  |       $machine->start; | 
					
						
							| 
									
										
										
										
											2018-04-29 23:39:25 +02:00
										 |  |  |       $probe->waitUntilSucceeds("echo test | nc machine 4444 -N"); | 
					
						
							| 
									
										
										
										
											2015-03-05 17:21:27 +03:00
										 |  |  |     '';
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | }) |