// SPDX-License-Identifier: GPL-2.0
#include <errno.h>
#include "arch-tests.h"
#include "../util/topdown.h"
#include "debug.h"
#include "evlist.h"
#include "parse-events.h"
#include "pmu.h"
#include "pmus.h"

static int event_cb(void *state, struct pmu_event_info *info)
{
        char buf[256];
        struct parse_events_error parse_err;
        int *ret = state, err;
        struct evlist *evlist = evlist__new();
        struct evsel *evsel;

        if (!evlist)
                return -ENOMEM;

        parse_events_error__init(&parse_err);
        snprintf(buf, sizeof(buf), "%s/%s/", info->pmu->name, info->name);
        err = parse_events(evlist, buf, &parse_err);
        if (err) {
                parse_events_error__print(&parse_err, buf);
                *ret = TEST_FAIL;
        }
        parse_events_error__exit(&parse_err);
        evlist__for_each_entry(evlist, evsel) {
                bool fail = false;
                bool p_core_pmu = evsel->pmu->type == PERF_TYPE_RAW;
                const char *name = evsel__name(evsel);

                if (strcasestr(name, "uops_retired.slots") ||
                    strcasestr(name, "topdown.backend_bound_slots") ||
                    strcasestr(name, "topdown.br_mispredict_slots") ||
                    strcasestr(name, "topdown.memory_bound_slots") ||
                    strcasestr(name, "topdown.bad_spec_slots") ||
                    strcasestr(name, "topdown.slots_p")) {
                        if (arch_is_topdown_slots(evsel) || arch_is_topdown_metrics(evsel))
                                fail = true;
                } else if (strcasestr(name, "slots")) {
                        if (arch_is_topdown_slots(evsel) != p_core_pmu ||
                            arch_is_topdown_metrics(evsel))
                                fail = true;
                } else if (strcasestr(name, "topdown")) {
                        if (arch_is_topdown_slots(evsel) ||
                            arch_is_topdown_metrics(evsel) != p_core_pmu)
                                fail = true;
                } else if (arch_is_topdown_slots(evsel) || arch_is_topdown_metrics(evsel)) {
                        fail = true;
                }
                if (fail) {
                        pr_debug("Broken topdown information for '%s'\n", evsel__name(evsel));
                        *ret = TEST_FAIL;
                }
        }
        evlist__delete(evlist);
        return 0;
}

static int test__x86_topdown(struct test_suite *test __maybe_unused, int subtest __maybe_unused)
{
        int ret = TEST_OK;
        struct perf_pmu *pmu = NULL;

        if (!topdown_sys_has_perf_metrics())
                return TEST_OK;

        while ((pmu = perf_pmus__scan_core(pmu)) != NULL) {
                if (perf_pmu__for_each_event(pmu, /*skip_duplicate_pmus=*/false, &ret, event_cb))
                        break;
        }
        return ret;
}

DEFINE_SUITE("x86 topdown", x86_topdown);