/*-
 * Copyright (c) 2023 Dmitry Chagin <dchagin@FreeBSD.org>
 *
 * SPDX-License-Identifier: BSD-2-Clause
 */

#include <sys/param.h>
#include <sys/wait.h>

#include <execinfo.h>
#include <signal.h>
#include <stdio.h>
#include <string.h>
#include <unistd.h>

#include <atf-c.h>

#define BT_FUNCTIONS            10

void    handler(int);

__noinline void
handler(int signum __unused)
{
        void *addresses[BT_FUNCTIONS];
        char **symbols;
        size_t n, i, match;

        n = backtrace(addresses, nitems(addresses));
        ATF_REQUIRE(n > 1);
        symbols = backtrace_symbols(addresses, n);
        ATF_REQUIRE(symbols != NULL);

        match = -1;
        for (i = 0; i < n; i++) {
                printf("%zu: %p, %s\n", i, addresses[i], symbols[i]);
                if (strstr(symbols[i], "<main+") != NULL)
                        match = i;
        }
        ATF_REQUIRE(match > 0);
        printf("match at %zu, symbols %zu\n", match, n);

}

ATF_TC_WITHOUT_HEAD(test_backtrace_sigtramp);
ATF_TC_BODY(test_backtrace_sigtramp, tc)
{
#if defined(__aarch64__)
        /*
         * https://reviews.llvm.org is deprecated and
         * this review is never going to be updated or completed
         */
        atf_tc_expect_fail("https://reviews.llvm.org/D155066");
#endif

        struct sigaction act;
        pid_t child;
        int status;

        memset(&act, 0, sizeof(act));
        act.sa_handler = handler;
        sigemptyset(&act.sa_mask);
        sigaction(SIGUSR1, &act, NULL);

        child = fork();
        ATF_REQUIRE(child != -1);

        if (child == 0) {
                kill(getppid(), SIGUSR1);
                _exit(0);
        } else
                wait(&status);
}

ATF_TP_ADD_TCS(tp)
{

        ATF_TP_ADD_TC(tp, test_backtrace_sigtramp);

        return (atf_no_error());
}