···

       
17
       
17
       
 
       
          ln -s ${pkgs.writeText "sshPublicKey" sshPublicKey} $out/1.0/meta-data/public-keys/0/openssh-key

     

       
18
       
18
       
 
       
        '';

     

       
19
       
19
       
 
       
      };

     

       
20
       
20
       
+
       
      indentLines = str: concatLines (map (s: "  " + s) (splitString "\n" str));

     

       
20
       
21
       
 
       
    in makeTest {

     

       
21
       
22
       
 
       
      name = "ec2-" + name;

     

       
22
       
23
       
 
       
      nodes = {};

     
···

       
35
       
36
       
 
       
                "qemu-img",

     

       
36
       
37
       
 
       
                "create",

     

       
37
       
38
       
 
       
                "-f",

     

       
39
       
39
       
+
       
                "qcow2",

     

       
40
       
40
       
+
       
                "-F",

     

       
38
       
41
       
 
       
                "qcow2",

     

       
39
       
42
       
 
       
                "-o",

     

       
40
       
43
       
 
       
                "backing_file=${image}",

     
···

       
59
       
62
       
 
       
        )

     

       
60
       
63
       
 
       


     

       
61
       
64
       
 
       
        machine = create_machine({"startCommand": start_command})

     

       
62
       
62
       
-
       
      '' + script;

     

       
65
       
65
       
+
       
        try:

     

       
66
       
66
       
+
       
      '' + indentLines script + ''

     

       
67
       
67
       
+
       
        finally:

     

       
68
       
68
       
+
       
          machine.shutdown()

     

       
69
       
69
       
+
       
      '';

     

       
63
       
70
       
 
       


     

       
64
       
71
       
 
       
      inherit meta;

     

       
65
       
72
       
 
       
    };