/*******************************************************************************
 * This file is part of the "Enduro2D"
 * For conditions of distribution and use, see copyright notice in LICENSE.md
 * Copyright (C) 2018-2019, by Matvey Cherevko (blackmatov@gmail.com)
 ******************************************************************************/

#include "_high.hpp"
using namespace e2d;

namespace
{
    class safe_starter_initializer final : private noncopyable {
    public:
        safe_starter_initializer() {
            modules::initialize<starter>(0, nullptr,
                starter::parameters(
                    engine::parameters("luasol_untests", "enduro2d")
                        .without_graphics(true)));
        }

        ~safe_starter_initializer() noexcept {
            modules::shutdown<starter>();
        }
    };
}

TEST_CASE("luasol") {
    safe_starter_initializer initializer;
    luasol& l = the<luasol>();

    SECTION("vec2/vec3/vec4") {
        v2f r0 = l.lua().script(R"lua(
            local v = v2f.new(1,2)
            return v2f.new((v + v + 2).y)
        )lua");
        v3f r1 = l.lua().script(R"lua(
            local v = v3f.new(1,2,3)
            return v3f.new((v + v + 2).y)
        )lua");
        v4f r2 = l.lua().script(R"lua(
            local v = v4f.new(1,2,3,4)
            return v4f.new((v + v + 2).y)
        )lua");
        REQUIRE(r0 == v2f(6));
        REQUIRE(r1 == v3f(6));
        REQUIRE(r2 == v4f(6));
    }

    SECTION("quat") {
        v3f r0 = l.lua().script(R"lua(
            return v3f.new(1,2,3) * q4f.make_quat_from_axis_angle(radf.new(10), v3f.new(1,2,3))
        )lua");
        REQUIRE(r0 == v3f(1,2,3) * math::make_quat_from_axis_angle(radf(10.f), v3f(1,2,3)));
    }

    SECTION("mat2/mat2/mat3") {
        std::pair<m2f, bool> r0 = l.lua().script(R"lua(
            local m = m2f.make_scale_matrix2(2,3)
            local rm, s = m2f.inversed(m)
            return rm * m2f.identity(), s
        )lua");
        std::pair<m3f, bool> r1 = l.lua().script(R"lua(
            local m = m3f.make_rotation_matrix3(degf.new(45),2,3,4)
            local rm, s = m3f.inversed(m)
            return rm * m3f.identity(), s
        )lua");
        std::pair<m4f, bool> r2 = l.lua().script(R"lua(
            local m = m4f.make_translation_matrix4(2,3,4)
            local rm, s = m4f.inversed(m)
            return rm * m4f.identity(), s
        )lua");
        REQUIRE(r0.second);
        REQUIRE(r0.first == math::inversed(math::make_scale_matrix2(2.f,3.f)).first);
        REQUIRE(r1.second);
        REQUIRE(r1.first == math::inversed(math::make_rotation_matrix3(degf(45.f),2.f,3.f,4.f)).first);
        REQUIRE(r2.second);
        REQUIRE(r2.first == math::inversed(math::make_translation_matrix4(2.f,3.f,4.f)).first);
    }

    SECTION("rect/aabb") {
        bool r0 = l.lua().script(R"lua(
            local b = b2f.unit() * 2
            return b:inside(v2f.new(1.5,1.5))
        )lua");
        REQUIRE(r0);
        bool r1 = l.lua().script(R"lua(
            local b = b3f.unit() * 2
            return b:overlaps(b3f.new(1.5,1.5,1.5,2,2,2))
        )lua");
        REQUIRE(r1);
    }

    SECTION("trs2/trs3") {
        radf r0 = l.lua().script(R"lua(
            local t = t2f.make_rotation_trs2(degf.new(45))
            return t.rotation
        )lua");
        REQUIRE(r0 == math::to_rad(degf(45.f)));
        v3f r1 = l.lua().script(R"lua(
            local t = t3f.make_translation_trs3(v3f.new(1,2,3))
            return t.translation
        )lua");
        REQUIRE(r1 == v3f(1,2,3));
    }

    SECTION("color/color32") {
        color r0 = l.lua().script(R"lua(
            return color.white() * 0.5
        )lua");
        REQUIRE(r0 == color(0.5f,0.5f,0.5f,0.5f));
        color32 r1 = l.lua().script(R"lua(
            return color32.white() - 1
        )lua");
        REQUIRE(r1 == color32(254,254,254,254));
    }
}