···

       
543
       
 
       
        retry sub {

     

       
544
       
 
       
            my ($status, $out) = $self->execute("journalctl -b SYSLOG_IDENTIFIER=systemd | grep 'session opened'");

     

       
545
       
 
       
            return 0 if $status != 0;

     

       
546
       
-
       
            ($status, $out) = $self->execute("xwininfo -root > /dev/null 2>&1");

     

       
547
       
 
       
            return 1 if $status == 0;

     

       
548
       
 
       
        }

     

       
549
       
 
       
    });

     

···

       
543
       
 
       
        retry sub {

     

       
544
       
 
       
            my ($status, $out) = $self->execute("journalctl -b SYSLOG_IDENTIFIER=systemd | grep 'session opened'");

     

       
545
       
 
       
            return 0 if $status != 0;

     

       
546
       
+
       
            ($status, $out) = $self->execute("[ -e /tmp/.X11-unix/X0 ]");

     

       
547
       
 
       
            return 1 if $status == 0;

     

       
548
       
 
       
        }

     

       
549
       
 
       
    });

     

···

       
466
       
 
       
        xorg.xsetroot

     

       
467
       
 
       
        xorg.xinput

     

       
468
       
 
       
        xorg.xprop

     

       
0
       
 
       

     

       
469
       
 
       
        pkgs.xterm

     

       
470
       
 
       
        pkgs.xdg_utils

     

       
471
       
 
       
      ]

     

···

       
466
       
 
       
        xorg.xsetroot

     

       
467
       
 
       
        xorg.xinput

     

       
468
       
 
       
        xorg.xprop

     

       
469
       
+
       
        xorg.xauth

     

       
470
       
 
       
        pkgs.xterm

     

       
471
       
 
       
        pkgs.xdg_utils

     

       
472
       
 
       
      ]

     

···

       
32
       
 
       
      $machine->succeed("getfacl /dev/snd/timer | grep -q alice");

     

       
33
       
 
       


     

       
34
       
 
       
      $machine->succeed("su - alice -c 'DISPLAY=:0.0 gnome-terminal &'");

     

       
0
       
 
       

     

       
35
       
 
       
      $machine->waitForWindow(qr/Terminal/);

     

       
36
       
 
       
      $machine->sleep(20);

     

       
37
       
 
       
      $machine->screenshot("screen");

     

···

       
32
       
 
       
      $machine->succeed("getfacl /dev/snd/timer | grep -q alice");

     

       
33
       
 
       


     

       
34
       
 
       
      $machine->succeed("su - alice -c 'DISPLAY=:0.0 gnome-terminal &'");

     

       
35
       
+
       
      $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
36
       
 
       
      $machine->waitForWindow(qr/Terminal/);

     

       
37
       
 
       
      $machine->sleep(20);

     

       
38
       
 
       
      $machine->screenshot("screen");

     

···

       
27
       
 
       
      $machine->succeed("getfacl /dev/snd/timer | grep -q alice");

     

       
28
       
 
       


     

       
29
       
 
       
      $machine->succeed("su - alice -c 'DISPLAY=:0.0 gnome-terminal &'");

     

       
0
       
 
       

     

       
30
       
 
       
      $machine->waitForWindow(qr/Terminal/);

     

       
31
       
 
       
      $machine->mustSucceed("timeout 900 bash -c 'journalctl -f|grep -m 1 \"GNOME Shell started\"'");

     

       
32
       
 
       
      $machine->sleep(10);

     

···

       
27
       
 
       
      $machine->succeed("getfacl /dev/snd/timer | grep -q alice");

     

       
28
       
 
       


     

       
29
       
 
       
      $machine->succeed("su - alice -c 'DISPLAY=:0.0 gnome-terminal &'");

     

       
30
       
+
       
      $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
31
       
 
       
      $machine->waitForWindow(qr/Terminal/);

     

       
32
       
 
       
      $machine->mustSucceed("timeout 900 bash -c 'journalctl -f|grep -m 1 \"GNOME Shell started\"'");

     

       
33
       
 
       
      $machine->sleep(10);

     

···

       
13
       
 
       


     

       
14
       
 
       
  testScript = { nodes, ... }: ''

     

       
15
       
 
       
    $machine->waitForX;

     

       
0
       
 
       

     

       
0
       
 
       

     

       
16
       
 
       
    $machine->waitForWindow(qr/first configuration/);

     

       
17
       
 
       
    $machine->sleep(1);

     

       
18
       
 
       
    $machine->screenshot("started");

     

···

       
13
       
 
       


     

       
14
       
 
       
  testScript = { nodes, ... }: ''

     

       
15
       
 
       
    $machine->waitForX;

     

       
16
       
+
       
    $machine->waitForFile("/home/alice/.Xauthority");

     

       
17
       
+
       
    $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
18
       
 
       
    $machine->waitForWindow(qr/first configuration/);

     

       
19
       
 
       
    $machine->sleep(1);

     

       
20
       
 
       
    $machine->screenshot("started");

     

···

       
41
       
 
       
          pkgs.kde4.kdenetwork

     

       
42
       
 
       
          pkgs.kde4.kdetoys

     

       
43
       
 
       
          pkgs.kde4.kdewebdev

     

       
0
       
 
       

     

       
44
       
 
       
        ];

     

       
45
       
 
       
    };

     

       
46
       
 
       


     

       
47
       
-
       
  testScript = '' 

     

       
48
       
 
       
      $machine->waitUntilSucceeds("pgrep plasma-desktop");

     

       
0
       
 
       

     

       
49
       
 
       
      $machine->waitForWindow(qr/plasma-desktop/);

     

       
50
       
 
       


     

       
51
       
 
       
      # Check that logging in has given the user ownership of devices.

     
···

       
62
       
 
       


     

       
63
       
 
       
      $machine->sleep(10);

     

       
64
       
 
       


     

       
65
       
-
       
      $machine->screenshot("screen"); 

     

       
66
       
 
       
    '';

     

       
67
       
 
       


     

       
68
       
 
       
})

     

···

       
41
       
 
       
          pkgs.kde4.kdenetwork

     

       
42
       
 
       
          pkgs.kde4.kdetoys

     

       
43
       
 
       
          pkgs.kde4.kdewebdev

     

       
44
       
+
       
          pkgs.xorg.xmessage

     

       
45
       
 
       
        ];

     

       
46
       
 
       
    };

     

       
47
       
 
       


     

       
48
       
+
       
  testScript = ''

     

       
49
       
 
       
      $machine->waitUntilSucceeds("pgrep plasma-desktop");

     

       
50
       
+
       
      $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
51
       
 
       
      $machine->waitForWindow(qr/plasma-desktop/);

     

       
52
       
 
       


     

       
53
       
 
       
      # Check that logging in has given the user ownership of devices.

     
···

       
64
       
 
       


     

       
65
       
 
       
      $machine->sleep(10);

     

       
66
       
 
       


     

       
67
       
+
       
      $machine->screenshot("screen");

     

       
68
       
 
       
    '';

     

       
69
       
 
       


     

       
70
       
 
       
})

     

···

       
22
       
 
       
    $machine->waitForText(qr/${user.description}/);

     

       
23
       
 
       
    $machine->screenshot("lightdm");

     

       
24
       
 
       
    $machine->sendChars("${user.password}\n");

     

       
0
       
 
       

     

       
0
       
 
       

     

       
25
       
 
       
    $machine->waitForWindow("^IceWM ");

     

       
26
       
 
       
  '';

     

       
27
       
 
       
})

     

···

       
22
       
 
       
    $machine->waitForText(qr/${user.description}/);

     

       
23
       
 
       
    $machine->screenshot("lightdm");

     

       
24
       
 
       
    $machine->sendChars("${user.password}\n");

     

       
25
       
+
       
    $machine->waitForFile("/home/alice/.Xauthority");

     

       
26
       
+
       
    $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
27
       
 
       
    $machine->waitForWindow("^IceWM ");

     

       
28
       
 
       
  '';

     

       
29
       
 
       
})

     

···

       
24
       
 
       


     

       
25
       
 
       
  testScript = { nodes, ... }: ''

     

       
26
       
 
       
    startAll;

     

       
0
       
 
       

     

       
0
       
 
       

     

       
27
       
 
       
    $machine->waitForWindow("^IceWM ");

     

       
28
       
 
       
  '';

     

       
29
       
 
       
})

     

···

       
24
       
 
       


     

       
25
       
 
       
  testScript = { nodes, ... }: ''

     

       
26
       
 
       
    startAll;

     

       
27
       
+
       
    $machine->waitForFile("/home/alice/.Xauthority");

     

       
28
       
+
       
    $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
29
       
 
       
    $machine->waitForWindow("^IceWM ");

     

       
30
       
 
       
  '';

     

       
31
       
 
       
})

     

···

       
23
       
 
       


     

       
24
       
 
       
  testScript = { nodes, ... }: ''

     

       
25
       
 
       
    startAll;

     

       
0
       
 
       

     

       
0
       
 
       

     

       
26
       
 
       
    $machine->waitForWindow("^IceWM ");

     

       
27
       
 
       
  '';

     

       
28
       
 
       
})

     

···

       
23
       
 
       


     

       
24
       
 
       
  testScript = { nodes, ... }: ''

     

       
25
       
 
       
    startAll;

     

       
26
       
+
       
    $machine->waitForFile("/home/alice/.Xauthority");

     

       
27
       
+
       
    $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
28
       
 
       
    $machine->waitForWindow("^IceWM ");

     

       
29
       
 
       
  '';

     

       
30
       
 
       
})

     

···

       
20
       
 
       
  testScript =

     

       
21
       
 
       
    ''

     

       
22
       
 
       
      $machine->waitForX;

     

       
0
       
 
       

     

       
0
       
 
       

     

       
23
       
 
       
      $machine->waitForWindow(qr/xfce4-panel/);

     

       
24
       
 
       
      $machine->sleep(10);

     

       
25
       
 
       


     

···

       
20
       
 
       
  testScript =

     

       
21
       
 
       
    ''

     

       
22
       
 
       
      $machine->waitForX;

     

       
23
       
+
       
      $machine->waitForFile("/home/alice/.Xauthority");

     

       
24
       
+
       
      $machine->succeed("xauth merge ~alice/.Xauthority");

     

       
25
       
 
       
      $machine->waitForWindow(qr/xfce4-panel/);

     

       
26
       
 
       
      $machine->sleep(10);

     

       
27