* Start of a simple GUI test. Right now it just starts the X server,

wait a few seconds and makes a screenshot.

svn path=/nixos/trunk/; revision=16934

lib/test-driver/Machine.pm

@@ -187,6 +187,18 @@ sub waitForJob {
 }
 
 
+# Wait until the specified file exists.
+sub waitForFile {
+    my ($self, $fileName) = @_;
+    while (1) {
+        my ($status, $out) = $self->execute("test -e $fileName");
+        return if $status == 0;
+        sleep 1;
+        # !!! need a timeout
+    }
+}
+
+
 sub stopJob {
     my ($self, $jobName) = @_;
     $self->execute("initctl stop $jobName");

tests/kde4.nix

@@ -0,0 +1,44 @@
+{ nixos ? ./..
+, nixpkgs ? /etc/nixos/nixpkgs
+, services ? /etc/nixos/services
+, system ? builtins.currentSystem
+}:
+
+with import ../lib/build-vms.nix { inherit nixos nixpkgs services system; };
+
+rec {
+
+  nodes =
+    { client =
+        { config, pkgs, ... }:
+
+        { services.xserver.enable = true;
+          services.xserver.desktopManager.default = "kde4";
+          services.xserver.desktopManager.kde4.enable = true;
+
+          users.extraUsers = pkgs.lib.singleton
+            { name = "alice";
+              description = "Alice Foobar";
+              home = "/home/alice";
+              createHome = true;
+              useDefaultShell = true;
+            };
+
+          environment.systemPackages = [ pkgs.xorg.xclock pkgs.xorg.xwd ];
+        };
+    };
+
+  vms = buildVirtualNetwork { inherit nodes; };
+
+  test = runTests vms
+    ''
+      startAll;
+
+      $client->waitForFile("/tmp/.X11-unix/X0");
+
+      sleep 20;
+
+      print STDERR $client->execute("DISPLAY=:0.0 xwd -root > /hostfs/$ENV{out}/screen.xwd");
+    '';
+  
+}