/* SPDX-License-Identifier: LGPL-2.1-or-later */

#include "log.h"
#include "manager.h"
#include "process-util.h"
#include "rm-rf.h"
#include "service.h"
#include "tests.h"

int main(int argc, char *argv[]) {
        _cleanup_(rm_rf_physical_and_freep) char *runtime_dir = NULL;
        _cleanup_(manager_freep) Manager *m = NULL;
        Unit *a, *b, *c, *u;
        int r;

        test_setup_logging(LOG_DEBUG);

        if (getuid() != 0)
                return log_tests_skipped("not root");
        r = enter_cgroup_subroot(NULL);
        if (r == -ENOMEDIUM)
                return log_tests_skipped("cgroupfs not available");

        _cleanup_free_ char *unit_dir = NULL;
        assert_se(get_testdata_dir("units/", &unit_dir) >= 0);
        assert_se(set_unit_path(unit_dir) >= 0);

        assert_se(runtime_dir = setup_fake_runtime_dir());

        assert_se(manager_new(RUNTIME_SCOPE_USER, MANAGER_TEST_RUN_BASIC, &m) >= 0);
        assert_se(manager_startup(m, NULL, NULL, NULL) >= 0);

        assert_se(a = unit_new(m, sizeof(Service)));
        assert_se(unit_add_name(a, "a.service") >= 0);
        assert_se(set_isempty(a->pids));

        assert_se(b = unit_new(m, sizeof(Service)));
        assert_se(unit_add_name(b, "b.service") >= 0);
        assert_se(set_isempty(b->pids));

        assert_se(c = unit_new(m, sizeof(Service)));
        assert_se(unit_add_name(c, "c.service") >= 0);
        assert_se(set_isempty(c->pids));

        /* Fork off a child so that we have a PID to watch */
        _cleanup_(sigkill_waitp) pid_t pid = 0;
        pid = fork();
        if (pid == 0) {
                /* Child */
                pause();
                _exit(EXIT_SUCCESS);
        }

        assert_se(pid >= 0);

        assert_se(hashmap_isempty(m->watch_pids));
        assert_se(manager_get_unit_by_pid(m, pid) == NULL);

        assert_se(unit_watch_pid(a, pid, false) >= 0);
        assert_se(manager_get_unit_by_pid(m, pid) == a);

        assert_se(unit_watch_pid(a, pid, false) >= 0);
        assert_se(manager_get_unit_by_pid(m, pid) == a);

        assert_se(unit_watch_pid(b, pid, false) >= 0);
        u = manager_get_unit_by_pid(m, pid);
        assert_se(u == a || u == b);

        assert_se(unit_watch_pid(b, pid, false) >= 0);
        u = manager_get_unit_by_pid(m, pid);
        assert_se(u == a || u == b);

        assert_se(unit_watch_pid(c, pid, false) >= 0);
        u = manager_get_unit_by_pid(m, pid);
        assert_se(u == a || u == b || u == c);

        assert_se(unit_watch_pid(c, pid, false) >= 0);
        u = manager_get_unit_by_pid(m, pid);
        assert_se(u == a || u == b || u == c);

        unit_unwatch_pid(b, pid);
        u = manager_get_unit_by_pid(m, pid);
        assert_se(u == a || u == c);

        unit_unwatch_pid(b, pid);
        u = manager_get_unit_by_pid(m, pid);
        assert_se(u == a || u == c);

        unit_unwatch_pid(a, pid);
        assert_se(manager_get_unit_by_pid(m, pid) == c);

        unit_unwatch_pid(a, pid);
        assert_se(manager_get_unit_by_pid(m, pid) == c);

        unit_unwatch_pid(c, pid);
        assert_se(manager_get_unit_by_pid(m, pid) == NULL);

        unit_unwatch_pid(c, pid);
        assert_se(manager_get_unit_by_pid(m, pid) == NULL);

        return 0;
}
