From 61b8d9ebe053921a7b7ecbb1f0a252431c76d5d0 Mon Sep 17 00:00:00 2001
From: aszlig <aszlig@redmoonstudios.org>
Date: Tue, 5 Apr 2016 17:52:55 +0200
Subject: [PATCH] nixos/tests: Add a test for the Taskserver service

A small test which checks whether tasks can be synced using the
Taskserver.

It doesn't test group functionality because I suspect that they're not
yet implemented upstream. I haven't done an in-depth check on that but I
couldn't find a method of linking groups to users yet so I guess this
will get in with one of the text releases of Taskwarrior/Taskserver.

Signed-off-by: aszlig <aszlig@redmoonstudios.org>
---
 nixos/release.nix          |  1 +
 nixos/tests/taskserver.nix | 97 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 98 insertions(+)
 create mode 100644 nixos/tests/taskserver.nix

diff --git a/nixos/release.nix b/nixos/release.nix
index 8a01b2685a78..2bccef1fd34b 100644
--- a/nixos/release.nix
+++ b/nixos/release.nix
@@ -253,6 +253,7 @@ in rec {
   tests.sddm = callTest tests/sddm.nix {};
   tests.sddm-kde5 = callTest tests/sddm-kde5.nix {};
   tests.simple = callTest tests/simple.nix {};
+  tests.taskserver = callTest tests/taskserver.nix {};
   tests.tomcat = callTest tests/tomcat.nix {};
   tests.udisks2 = callTest tests/udisks2.nix {};
   tests.virtualbox = callSubTests tests/virtualbox.nix { system = "x86_64-linux"; };
diff --git a/nixos/tests/taskserver.nix b/nixos/tests/taskserver.nix
new file mode 100644
index 000000000000..927dcbd9b28b
--- /dev/null
+++ b/nixos/tests/taskserver.nix
@@ -0,0 +1,97 @@
+import ./make-test.nix {
+  name = "taskserver";
+
+  nodes = {
+    server = {
+      networking.firewall.enable = false;
+      services.taskserver.enable = true;
+      services.taskserver.server.host = "::";
+      services.taskserver.server.fqdn = "server";
+      services.taskserver.organisations = {
+        testOrganisation.users = [ "alice" "foo" ];
+        anotherOrganisation.users = [ "bob" ];
+      };
+    };
+
+    client1 = { pkgs, ... }: {
+      networking.firewall.enable = false;
+      environment.systemPackages = [ pkgs.taskwarrior ];
+      users.users.alice.isNormalUser = true;
+      users.users.bob.isNormalUser = true;
+      users.users.foo.isNormalUser = true;
+    };
+
+    client2 = { pkgs, ... }: {
+      networking.firewall.enable = false;
+      environment.systemPackages = [ pkgs.taskwarrior ];
+      users.users.alice.isNormalUser = true;
+      users.users.bob.isNormalUser = true;
+      users.users.foo.isNormalUser = true;
+    };
+  };
+
+  testScript = { nodes, ... }: let
+    cfg = nodes.server.config.services.taskserver;
+    portStr = toString cfg.server.port;
+  in ''
+    sub su ($$) {
+      my ($user, $cmd) = @_;
+      my $esc = $cmd =~ s/'/'\\${"'"}'/gr;
+      return "su - $user -c '$esc'";
+    }
+
+    sub setupClientsFor ($$) {
+      my ($org, $user) = @_;
+
+      for my $client ($client1, $client2) {
+        $client->nest("initialize client for user $user", sub {
+          $client->succeed(
+            su $user, "task rc.confirmation=no config confirmation no"
+          );
+
+          my $exportinfo = $server->succeed(
+            "nixos-taskdctl export-user $org $user"
+          );
+
+          $exportinfo =~ s/'/'\\'''/g;
+
+          $client->succeed(su $user, "eval '$exportinfo' >&2");
+          $client->succeed(su $user,
+            "task config taskd.server server:${portStr} >&2"
+          );
+
+          $client->succeed(su $user, "task sync init >&2");
+        });
+      }
+    }
+
+    startAll;
+
+    $server->waitForUnit("taskserver.service");
+
+    $server->succeed(
+      "nixos-taskdctl list-users testOrganisation | grep -qxF alice",
+      "nixos-taskdctl list-users testOrganisation | grep -qxF foo",
+      "nixos-taskdctl list-users anotherOrganisation | grep -qxF bob"
+    );
+
+    $server->waitForOpenPort(${portStr});
+
+    $client1->waitForUnit("multi-user.target");
+    $client2->waitForUnit("multi-user.target");
+
+    setupClientsFor "testOrganisation", "alice";
+    setupClientsFor "testOrganisation", "foo";
+    setupClientsFor "anotherOrganisation", "bob";
+
+    for ("alice", "bob", "foo") {
+      subtest "sync for $_", sub {
+        $client1->succeed(su $_, "task add foo >&2");
+        $client1->succeed(su $_, "task sync >&2");
+        $client2->fail(su $_, "task list >&2");
+        $client2->succeed(su $_, "task sync >&2");
+        $client2->succeed(su $_, "task list >&2");
+      };
+    }
+  '';
+}