diff options
author | aszlig <aszlig@redmoonstudios.org> | 2016-04-05 17:52:55 +0200 |
---|---|---|
committer | aszlig <aszlig@redmoonstudios.org> | 2016-04-05 18:53:31 +0200 |
commit | 61b8d9ebe053921a7b7ecbb1f0a252431c76d5d0 (patch) | |
tree | 86279bfc1a6dc6fbbfdbd50bbf5af5763169d0d9 | |
parent | 0141b4887d5db012ca231f4e907ffe617f3617a6 (diff) |
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>
-rw-r--r-- | nixos/release.nix | 1 | ||||
-rw-r--r-- | nixos/tests/taskserver.nix | 97 |
2 files changed, 98 insertions, 0 deletions
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"); + }; + } + ''; +} |