// SPDX-License-Identifier: GPL-2.0
/* Copyright (c) 2022 Meta Platforms, Inc. and affiliates. */

#define _GNU_SOURCE
#include <cgroup_helpers.h>
#include <test_progs.h>
#include <sched.h>
#include <sys/wait.h>

#include "cgrp_kfunc_failure.skel.h"
#include "cgrp_kfunc_success.skel.h"

static struct cgrp_kfunc_success *open_load_cgrp_kfunc_skel(void)
{
        struct cgrp_kfunc_success *skel;
        int err;

        skel = cgrp_kfunc_success__open();
        if (!ASSERT_OK_PTR(skel, "skel_open"))
                return NULL;

        skel->bss->pid = getpid();

        err = cgrp_kfunc_success__load(skel);
        if (!ASSERT_OK(err, "skel_load"))
                goto cleanup;

        return skel;

cleanup:
        cgrp_kfunc_success__destroy(skel);
        return NULL;
}

static int mkdir_rm_test_dir(void)
{
        int fd;
        const char *cgrp_path = "cgrp_kfunc";

        fd = create_and_get_cgroup(cgrp_path);
        if (!ASSERT_GT(fd, 0, "mkdir_cgrp_fd"))
                return -1;

        close(fd);
        remove_cgroup(cgrp_path);

        return 0;
}

static void run_success_test(const char *prog_name)
{
        struct cgrp_kfunc_success *skel;
        struct bpf_program *prog;
        struct bpf_link *link = NULL;

        skel = open_load_cgrp_kfunc_skel();
        if (!ASSERT_OK_PTR(skel, "open_load_skel"))
                return;

        if (!ASSERT_OK(skel->bss->err, "pre_mkdir_err"))
                goto cleanup;

        prog = bpf_object__find_program_by_name(skel->obj, prog_name);
        if (!ASSERT_OK_PTR(prog, "bpf_object__find_program_by_name"))
                goto cleanup;

        link = bpf_program__attach(prog);
        if (!ASSERT_OK_PTR(link, "attached_link"))
                goto cleanup;

        ASSERT_EQ(skel->bss->invocations, 0, "pre_rmdir_count");
        if (!ASSERT_OK(mkdir_rm_test_dir(), "cgrp_mkdir"))
                goto cleanup;

        ASSERT_EQ(skel->bss->invocations, 1, "post_rmdir_count");
        ASSERT_OK(skel->bss->err, "post_rmdir_err");

cleanup:
        bpf_link__destroy(link);
        cgrp_kfunc_success__destroy(skel);
}

static const char * const success_tests[] = {
        "test_cgrp_acquire_release_argument",
        "test_cgrp_acquire_leave_in_map",
        "test_cgrp_xchg_release",
        "test_cgrp_get_release",
        "test_cgrp_get_ancestors",
        "test_cgrp_from_id",
};

static void test_cgrp_from_id_ns(void)
{
        LIBBPF_OPTS(bpf_test_run_opts, opts);
        struct cgrp_kfunc_success *skel;
        struct bpf_program *prog;
        int pid, pipe_fd[2];

        skel = open_load_cgrp_kfunc_skel();
        if (!ASSERT_OK_PTR(skel, "open_load_skel"))
                return;

        if (!ASSERT_OK(skel->bss->err, "pre_mkdir_err"))
                goto cleanup;

        prog = skel->progs.test_cgrp_from_id_ns;

        if (!ASSERT_OK(pipe(pipe_fd), "pipe"))
                goto cleanup;

        pid = fork();
        if (!ASSERT_GE(pid, 0, "fork result")) {
                close(pipe_fd[0]);
                close(pipe_fd[1]);
                goto cleanup;
        }

        if (pid == 0) {
                int ret = 0;

                close(pipe_fd[0]);

                if (!ASSERT_GE(cgroup_setup_and_join("cgrp_from_id_ns"), 0, "join cgroup"))
                        exit(1);

                if (!ASSERT_OK(unshare(CLONE_NEWCGROUP), "unshare cgns"))
                        exit(1);

                ret = bpf_prog_test_run_opts(bpf_program__fd(prog), &opts);
                if (!ASSERT_OK(ret, "test run ret"))
                        exit(1);

                if (!ASSERT_OK(opts.retval, "test run retval"))
                        exit(1);

                if (!ASSERT_EQ(write(pipe_fd[1], &ret, sizeof(ret)), sizeof(ret), "write pipe"))
                        exit(1);

                exit(0);
        } else {
                int res;

                close(pipe_fd[1]);

                ASSERT_EQ(read(pipe_fd[0], &res, sizeof(res)), sizeof(res), "read res");
                ASSERT_EQ(waitpid(pid, NULL, 0), pid, "wait on child");

                remove_cgroup_pid("cgrp_from_id_ns", pid);

                ASSERT_OK(res, "result from run");
        }

        close(pipe_fd[0]);
cleanup:
        cgrp_kfunc_success__destroy(skel);
}

void test_cgrp_kfunc(void)
{
        int i, err;

        err = setup_cgroup_environment();
        if (!ASSERT_OK(err, "cgrp_env_setup"))
                goto cleanup;

        for (i = 0; i < ARRAY_SIZE(success_tests); i++) {
                if (!test__start_subtest(success_tests[i]))
                        continue;

                run_success_test(success_tests[i]);
        }

        if (test__start_subtest("test_cgrp_from_id_ns"))
                test_cgrp_from_id_ns();

        RUN_TESTS(cgrp_kfunc_failure);

cleanup:
        cleanup_cgroup_environment();
}