/*-
 * SPDX-License-Identifier: BSD-2-Clause
 *
 * Copyright (c) 2026 Alex S <iwtcex@gmail.com>
 * Copyright 2026 The FreeBSD Foundation
 *
 * Portions of this software were developed by
 * Konstantin Belousov <kib@FreeBSD.org> under sponsorship from
 * the FreeBSD Foundation.
 */

#include <atf-c.h>
#include <dlfcn.h>
#include <fcntl.h>
#include <link.h>
#include <stdio.h>

ATF_TC_WITHOUT_HEAD(dlopen_hash);
ATF_TC_BODY(dlopen_hash, tc)
{
        void *handle;
        char *pathfds;
        char *name;
        int testdir;

        handle = dlopen("libpythagoras.so.0", RTLD_LAZY);
        ATF_REQUIRE(handle == NULL);

        testdir = open(atf_tc_get_config_var(tc, "srcdir"),
            O_RDONLY | O_DIRECTORY);
        ATF_REQUIRE(testdir >= 0);

        ATF_REQUIRE(asprintf(&pathfds, "%d", testdir) > 0);
        ATF_REQUIRE(rtld_set_var("LIBRARY_PATH_FDS", pathfds) == 0);

        ATF_REQUIRE(asprintf(&name, "#%d/libpythagoras.so.0", testdir) > 0);
        handle = dlopen(name,  RTLD_LAZY);
        ATF_REQUIRE(handle != NULL);
}

ATF_TP_ADD_TCS(tp)
{
        ATF_TP_ADD_TC(tp, dlopen_hash);
        return atf_no_error();
}