···

       
3
       
3
       
 
       
  pkgs ? import ../.. { inherit system config; }

     

       
4
       
4
       
 
       
}:

     

       
5
       
5
       
 
       


     

       
6
       
6
       
-
       
with import ../lib/testing.nix { inherit system pkgs; };

     

       
6
       
6
       
+
       
with import ../lib/testing-python.nix { inherit system pkgs; };

     

       
7
       
7
       
 
       
with pkgs.lib;

     

       
8
       
8
       
 
       


     

       
9
       
9
       
 
       
let

     
···

       
17
       
17
       
 
       
        ];

     

       
18
       
18
       
 
       
    }).config.system.build.isoImage;

     

       
19
       
19
       
 
       


     

       
20
       
20
       
-
       
  perlAttrs = params: "{ ${concatStringsSep ", " (mapAttrsToList (name: param: "${name} => ${builtins.toJSON param}") params)} }";

     

       
20
       
20
       
+
       
  pythonDict = params: "\n    {\n        ${concatStringsSep ",\n        " (mapAttrsToList (name: param: "\"${name}\": \"${param}\"") params)},\n    }\n";

     

       
21
       
21
       
 
       


     

       
22
       
22
       
 
       
  makeBootTest = name: extraConfig:

     

       
23
       
23
       
 
       
    let

     

       
24
       
24
       
-
       
      machineConfig = perlAttrs ({ qemuFlags = "-m 768"; } // extraConfig);

     

       
24
       
24
       
+
       
      machineConfig = pythonDict ({ qemuFlags = "-m 768"; } // extraConfig);

     

       
25
       
25
       
 
       
    in

     

       
26
       
26
       
 
       
      makeTest {

     

       
27
       
27
       
 
       
        inherit iso;

     
···

       
29
       
29
       
 
       
        nodes = { };

     

       
30
       
30
       
 
       
        testScript =

     

       
31
       
31
       
 
       
          ''

     

       
32
       
32
       
-
       
            my $machine = createMachine(${machineConfig});

     

       
33
       
33
       
-
       
            $machine->start;

     

       
34
       
34
       
-
       
            $machine->waitForUnit("multi-user.target");

     

       
35
       
35
       
-
       
            $machine->succeed("nix verify -r --no-trust /run/current-system");

     

       
32
       
32
       
+
       
            machine = create_machine(${machineConfig})

     

       
33
       
33
       
+
       
            machine.start()

     

       
34
       
34
       
+
       
            machine.wait_for_unit("multi-user.target")

     

       
35
       
35
       
+
       
            machine.succeed("nix verify -r --no-trust /run/current-system")

     

       
36
       
36
       
 
       


     

       
37
       
37
       
-
       
            # Test whether the channel got installed correctly.

     

       
38
       
38
       
-
       
            $machine->succeed("nix-instantiate --dry-run '<nixpkgs>' -A hello");

     

       
39
       
39
       
-
       
            $machine->succeed("nix-env --dry-run -iA nixos.procps");

     

       
37
       
37
       
+
       
            with subtest("Check whether the channel got installed correctly"):

     

       
38
       
38
       
+
       
                machine.succeed("nix-instantiate --dry-run '<nixpkgs>' -A hello")

     

       
39
       
39
       
+
       
                machine.succeed("nix-env --dry-run -iA nixos.procps")

     

       
40
       
40
       
 
       


     

       
41
       
41
       
-
       
            $machine->shutdown;

     

       
41
       
41
       
+
       
            machine.shutdown()

     

       
42
       
42
       
 
       
          '';

     

       
43
       
43
       
 
       
      };

     

       
44
       
44
       
 
       


     
···

       
60
       
60
       
 
       
          config.system.build.netbootIpxeScript

     

       
61
       
61
       
 
       
        ];

     

       
62
       
62
       
 
       
      };

     

       
63
       
63
       
-
       
      machineConfig = perlAttrs ({

     

       
63
       
63
       
+
       
      machineConfig = pythonDict ({

     

       
64
       
64
       
 
       
        qemuFlags = "-boot order=n -m 2000";

     

       
65
       
65
       
 
       
        netBackendArgs = "tftp=${ipxeBootDir},bootfile=netboot.ipxe";

     

       
66
       
66
       
 
       
      } // extraConfig);

     
···

       
68
       
68
       
 
       
      makeTest {

     

       
69
       
69
       
 
       
        name = "boot-netboot-" + name;

     

       
70
       
70
       
 
       
        nodes = { };

     

       
71
       
71
       
-
       
        testScript =

     

       
72
       
72
       
-
       
          ''

     

       
73
       
73
       
-
       
            my $machine = createMachine(${machineConfig});

     

       
74
       
74
       
-
       
            $machine->start;

     

       
75
       
75
       
-
       
            $machine->waitForUnit("multi-user.target");

     

       
76
       
76
       
-
       
            $machine->shutdown;

     

       
71
       
71
       
+
       
        testScript = ''

     

       
72
       
72
       
+
       
            machine = create_machine(${machineConfig})

     

       
73
       
73
       
+
       
            machine.start()

     

       
74
       
74
       
+
       
            machine.wait_for_unit("multi-user.target")

     

       
75
       
75
       
+
       
            machine.shutdown()

     

       
77
       
76
       
 
       
          '';

     

       
78
       
77
       
 
       
      };

     

       
79
       
78
       
 
       
in {