#include <random>
#include <vector>

#include <gtest/gtest.h>
#include <gtest/gtest-matchers.h>
#include <gmock/gmock.h>
#include <gmock/gmock-matchers.h>

#include "common.hpp"

#ifdef TEST_MODULE
import cpptrace;
#else
#include <cpptrace/cpptrace.hpp>
#endif


TEST(ObjectTrace, Empty) {
    cpptrace::object_trace empty;
    EXPECT_TRUE(empty.empty());
    EXPECT_EQ(empty.resolve().to_string(), "Stack trace (most recent call first):\n<empty trace>");
}



CPPTRACE_FORCE_NO_INLINE void object_basic() {
    static volatile int lto_guard; lto_guard = lto_guard + 1;
    auto trace = cpptrace::generate_object_trace();
    EXPECT_FALSE(trace.empty());
    EXPECT_NE(trace.frames[0].raw_address, 0);
    EXPECT_NE(trace.frames[0].object_address, 0);
    EXPECT_THAT(trace.frames[0].object_path, testing::HasSubstr("unittest"));
}

TEST(ObjectTrace, Basic) {
    object_basic();
}



CPPTRACE_FORCE_NO_INLINE void object_basic_resolution() {
    static volatile int lto_guard; lto_guard = lto_guard + 1;
    auto line = __LINE__ + 1;
    auto trace = cpptrace::generate_object_trace().resolve();
    ASSERT_GE(trace.frames.size(), 1);
    EXPECT_FILE(trace.frames[0].filename, "object_trace.cpp");
    EXPECT_EQ(trace.frames[0].line.value(), line);
    EXPECT_THAT(trace.frames[0].symbol, testing::HasSubstr("object_basic_resolution"));
}

TEST(ObjectTrace, BasicResolution) {
    object_basic();
}


// TODO: dbghelp uses raw address, not object
#ifndef _MSC_VER
CPPTRACE_FORCE_NO_INLINE int object_resolve_3(std::vector<int>& line_numbers) {
    static volatile int lto_guard; lto_guard = lto_guard + 1;
    line_numbers.insert(line_numbers.begin(), __LINE__ + 1);
    auto dummy = cpptrace::generate_trace();
    auto dummy_otrace = cpptrace::generate_object_trace();
    cpptrace::object_trace otrace;
    otrace.frames.push_back(
        cpptrace::object_frame{0, dummy.frames[0].object_address, dummy_otrace.frames[0].object_path}
    );
    otrace.frames.push_back(
        cpptrace::object_frame{0, dummy.frames[1].object_address, dummy_otrace.frames[1].object_path}
    );
    otrace.frames.push_back(
        cpptrace::object_frame{0, dummy.frames[2].object_address, dummy_otrace.frames[2].object_path}
    );
    otrace.frames.push_back(
        cpptrace::object_frame{0, dummy.frames[3].object_address, dummy_otrace.frames[3].object_path}
    );
    auto trace = otrace.resolve();
    if(trace.frames.size() < 4) {
        ADD_FAILURE() << "trace.frames.size() >= 4";
        return 2;
    }
    int i = 0;
    EXPECT_FILE(trace.frames[i].filename, "object_trace.cpp");
    EXPECT_LINE(trace.frames[i].line.value(), line_numbers[i]);
    EXPECT_THAT(trace.frames[i].symbol, testing::HasSubstr("object_resolve_3"));
    i++;
    EXPECT_FILE(trace.frames[i].filename, "object_trace.cpp");
    EXPECT_LINE(trace.frames[i].line.value(), line_numbers[i]);
    EXPECT_THAT(trace.frames[i].symbol, testing::HasSubstr("object_resolve_2"));
    i++;
    EXPECT_FILE(trace.frames[i].filename, "object_trace.cpp");
    EXPECT_LINE(trace.frames[i].line.value(), line_numbers[i]);
    EXPECT_THAT(trace.frames[i].symbol, testing::HasSubstr("object_resolve_1"));
    i++;
    EXPECT_FILE(trace.frames[i].filename, "object_trace.cpp");
    EXPECT_LINE(trace.frames[i].line.value(), line_numbers[i]);
    EXPECT_THAT(trace.frames[i].symbol, testing::HasSubstr("ObjectTrace_Resolution_Test::TestBody"));
    return 2;
}

// NOTE: returning something and then return stacktrace_multi_3(line_numbers) * rand(); is done to prevent TCO even
// under LTO https://github.com/jeremy-rifkin/cpptrace/issues/179#issuecomment-2467302052
CPPTRACE_FORCE_NO_INLINE int object_resolve_2(std::vector<int>& line_numbers) {
    static volatile int lto_guard; lto_guard = lto_guard + 1;
    line_numbers.insert(line_numbers.begin(), __LINE__ + 1);
    return object_resolve_3(line_numbers) * rand();
}

CPPTRACE_FORCE_NO_INLINE int object_resolve_1(std::vector<int>& line_numbers) {
    static volatile int lto_guard; lto_guard = lto_guard + 1;
    line_numbers.insert(line_numbers.begin(), __LINE__ + 1);
    return object_resolve_2(line_numbers) * rand();
}

TEST(ObjectTrace, Resolution) {
    std::vector<int> line_numbers;
    line_numbers.insert(line_numbers.begin(), __LINE__ + 1);
    object_resolve_1(line_numbers);
}
#endif