2010-01-05 11:18:43 +00:00
|
|
|
{ pkgs, ... }:
|
|
|
|
|
|
|
|
{
|
|
|
|
|
2011-09-14 19:20:50 +01:00
|
|
|
machine =
|
2010-01-05 11:18:43 +00:00
|
|
|
{ config, pkgs, ... }:
|
|
|
|
|
2011-03-17 14:04:47 +00:00
|
|
|
{ require = [ ./common/user-account.nix ];
|
|
|
|
|
|
|
|
services.xserver.enable = true;
|
2010-01-05 11:18:43 +00:00
|
|
|
|
|
|
|
services.httpd.enable = true;
|
|
|
|
services.httpd.adminAddr = "foo@example.org";
|
|
|
|
services.httpd.documentRoot = "${pkgs.valgrind}/share/doc/valgrind/html";
|
|
|
|
|
|
|
|
services.xserver.displayManager.kdm.enable = true;
|
|
|
|
services.xserver.displayManager.kdm.extraConfig =
|
|
|
|
''
|
|
|
|
[X-:0-Core]
|
|
|
|
AutoLoginEnable=true
|
|
|
|
AutoLoginUser=alice
|
|
|
|
AutoLoginPass=foobar
|
|
|
|
'';
|
|
|
|
|
|
|
|
services.xserver.desktopManager.kde4.enable = true;
|
|
|
|
};
|
2009-09-02 15:48:28 +01:00
|
|
|
|
2010-01-05 11:18:43 +00:00
|
|
|
testScript =
|
2009-09-02 15:48:28 +01:00
|
|
|
''
|
2011-03-15 07:23:37 +00:00
|
|
|
$machine->waitUntilSucceeds("pgrep plasma-desktop");
|
2010-01-05 23:38:13 +00:00
|
|
|
$machine->waitForWindow(qr/plasma-desktop/);
|
2009-09-04 16:02:52 +01:00
|
|
|
|
2010-03-09 11:43:56 +00:00
|
|
|
# Check that logging in has given the user ownership of devices.
|
|
|
|
$machine->mustSucceed("getfacl /dev/snd/timer | grep -q alice");
|
|
|
|
|
2010-01-05 11:57:17 +00:00
|
|
|
$machine->execute("su - alice -c 'DISPLAY=:0.0 kwrite /var/log/messages &'");
|
|
|
|
$machine->execute("su - alice -c 'DISPLAY=:0.0 konqueror http://localhost/ &'");
|
2009-09-02 15:48:28 +01:00
|
|
|
|
2010-01-05 23:38:13 +00:00
|
|
|
$machine->waitForWindow(qr/messages.*KWrite/);
|
|
|
|
$machine->waitForWindow(qr/Valgrind.*Konqueror/);
|
2010-01-05 11:35:59 +00:00
|
|
|
|
2011-01-10 14:41:16 +00:00
|
|
|
$machine->sleep(5);
|
2011-09-14 19:20:50 +01:00
|
|
|
|
2010-01-05 11:35:59 +00:00
|
|
|
$machine->screenshot("screen");
|
2009-09-02 15:48:28 +01:00
|
|
|
'';
|
2011-09-14 19:20:50 +01:00
|
|
|
|
2009-09-02 15:48:28 +01:00
|
|
|
}
|