/*-
 * Copyright (c) 2025 Klara, Inc.
 *
 * SPDX-License-Identifier: BSD-2-Clause
 */

#include <sys/stat.h>

#include <errno.h>
#include <glob.h>
#include <stdbool.h>

#include <atf-c.h>

ATF_TC(glob_b_callback);
ATF_TC_HEAD(glob_b_callback, tc)
{
        atf_tc_set_md_var(tc, "descr",
            "Test ability of callback block to suppress errors");
        atf_tc_set_md_var(tc, "require.user", "unprivileged");
}
ATF_TC_BODY(glob_b_callback, tc)
{
        static bool glob_callback_invoked;
        static int (^errblk)(const char *, int) =
            ^(const char *path, int err) {
                ATF_CHECK_STREQ(path, "test/");
                ATF_CHECK(err == EACCES);
                glob_callback_invoked = true;
                /* Suppress EACCES errors. */
                return (0);
        };
        glob_t g;
        int rv;

        ATF_REQUIRE_EQ(0, mkdir("test", 0755));
        ATF_REQUIRE_EQ(0, symlink("foo", "test/foo"));
        ATF_REQUIRE_EQ(0, chmod("test", 0));

        glob_callback_invoked = false;
        rv = glob_b("test/*", 0, errblk, &g);
        ATF_CHECK_MSG(glob_callback_invoked,
            "glob(3) failed to invoke callback block");
        ATF_CHECK_EQ_MSG(GLOB_NOMATCH, rv,
            "callback function failed to suppress EACCES");
        globfree(&g);

        /* GLOB_ERR should ignore the suppressed error. */
        glob_callback_invoked = false;
        rv = glob_b("test/*", GLOB_ERR, errblk, &g);
        ATF_CHECK_MSG(glob_callback_invoked,
            "glob(3) failed to invoke callback block");
        ATF_CHECK_EQ_MSG(GLOB_ABORTED, rv,
            "GLOB_ERR didn't override callback block");
        globfree(&g);
}

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