1 files changed, 156 insertions, 0 deletions
diff --git a/lib/sol2/tests/runtime_tests/source/large_integer.cpp b/lib/sol2/tests/runtime_tests/source/large_integer.cpp
new file mode 100644
index 0000000..d5d08c7
--- /dev/null
+++ b/lib/sol2/tests/runtime_tests/source/large_integer.cpp
@@ -0,0 +1,156 @@
+// sol3 
+
+// The MIT License (MIT)
+
+// Copyright (c) 2013-2019 Rapptz, ThePhD and contributors
+
+// Permission is hereby granted, free of charge, to any person obtaining a copy of
+// this software and associated documentation files (the "Software"), to deal in
+// the Software without restriction, including without limitation the rights to
+// use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
+// the Software, and to permit persons to whom the Software is furnished to do so,
+// subject to the following conditions:
+
+// The above copyright notice and this permission notice shall be included in all
+// copies or substantial portions of the Software.
+
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+// IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
+// FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
+// COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
+// IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+// CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+#include "sol_test.hpp"
+
+#include <catch.hpp>
+
+#include <cstdint>
+#include <limits>
+
+TEST_CASE("large_integer/bool", "pass bool integral value to and from lua") {
+	sol::state lua;
+	lua.open_libraries();
+	lua.set_function("f", [&](bool num) {
+		REQUIRE(num == true);
+		return num;
+	});
+	auto result1 = lua.safe_script("x = f(true)\n"
+		"assert(x == true)", sol::script_pass_on_error);
+	REQUIRE(result1.valid());
+	sol::object x = lua["x"];
+	REQUIRE(x.is<bool>());
+	REQUIRE(x.as<bool>() == true);
+	REQUIRE_FALSE(x.is<std::int32_t>());
+	{
+		auto result = lua.safe_script("f(1)", sol::script_pass_on_error);
+		REQUIRE_FALSE(result.valid());
+	}
+}
+
+TEST_CASE("large_integers/unsigned32", "pass large unsigned 32bit values to and from lua") {
+	using T = std::uint32_t;
+	sol::state lua;
+	lua.open_libraries();
+	lua.set_function("f", [&](T num) -> T {
+		REQUIRE(num == 0xFFFFFFFF);
+		return num;
+	});
+	auto result1 = lua.safe_script("x = f(0xFFFFFFFF)\n"
+		"assert(x == 0xFFFFFFFF)", sol::script_pass_on_error);
+	REQUIRE(result1.valid());
+	sol::object x = lua["x"];
+	REQUIRE(x.is<T>());
+	REQUIRE(x.as<T>() == 0xFFFFFFFF);
+}
+
+TEST_CASE("large_integer/unsigned53", "pass large unsigned 53bit value to and from lua") {
+	using T = std::uint64_t;
+	sol::state lua;
+	lua.open_libraries();
+	lua.set_function("f", [&](T num) -> T {
+		REQUIRE(num == 0x1FFFFFFFFFFFFFull);
+		return num;
+	});
+	auto result1 = lua.safe_script("x = f(0x1FFFFFFFFFFFFF)\n"
+		"assert(x == 0x1FFFFFFFFFFFFF)");
+	REQUIRE(result1.valid());
+	sol::object x = lua["x"];
+	REQUIRE(x.is<T>());
+	REQUIRE(x.as<T>() == 0x1FFFFFFFFFFFFFull);
+}
+
+TEST_CASE("large_integer/unsigned64", "pass too large unsigned 64bit value to lua") {
+	using T = std::int64_t;
+	sol::state lua;
+	lua.set_function("f", [&](T num) -> T {
+		return num;
+	});
+	REQUIRE_THROWS([&lua]() {
+		sol::protected_function pf = lua["f"];
+		auto result = pf(0xFFFFFFFFFFFFFFFFull);
+	}());
+}
+
+TEST_CASE("large_integer/double", "pass negative and large positive values as signed and unsigned from and to lua") {
+	sol::state lua;
+	lua.open_libraries();
+	lua.set_function("s32", [&](std::int32_t num) {
+		return num;
+	});
+	lua.set_function("s64", [&](std::int64_t num) {
+		return num;
+	});
+	lua.set_function("u32", [&](std::uint32_t num) {
+		return num;
+	});
+	lua.set_function("u64", [&](std::uint64_t num) {
+		return num;
+	});
+	{
+		//signed 32bit
+		auto result1 = lua.safe_script("x = s32(-1)", sol::script_pass_on_error);
+		REQUIRE(result1.valid());
+		auto result2 = lua.safe_script("assert(x == -1)", sol::script_pass_on_error);
+		REQUIRE(result2.valid());
+		auto result3 = lua.safe_script("x = s32(0xFFFFFFFF)", sol::script_pass_on_error);
+		REQUIRE(result3.valid());
+		auto result4 = lua.safe_script("assert(x == -1)", sol::script_pass_on_error);
+		REQUIRE(result4.valid());
+
+		sol::object x = lua["x"];
+		REQUIRE(x.is<std::int32_t>());
+		REQUIRE(x.as<std::int32_t>() == -1);
+		REQUIRE(x.is<std::uint32_t>());
+		REQUIRE(x.as<std::uint32_t>() == 0xFFFFFFFF);
+	}
+
+	//unsigned 32bit
+	{
+		auto result1 = lua.safe_script("x = u32(0xFFFFFFFF)", sol::script_pass_on_error);
+		REQUIRE(result1.valid());
+		auto result2 = lua.safe_script("assert(x == 0xFFFFFFFF)", sol::script_pass_on_error);
+		REQUIRE(result2.valid());
+		auto result3 = lua.safe_script("x = u32(-1)", sol::script_pass_on_error);
+		REQUIRE(result3.valid());
+		auto result4 = lua.safe_script("assert(x == 0xFFFFFFFF)", sol::script_pass_on_error);
+		REQUIRE(result4.valid());
+		sol::object x = lua["x"];
+		REQUIRE(x.is<std::int32_t>());
+		REQUIRE(x.as<std::int32_t>() == -1);
+		REQUIRE(x.is<std::uint32_t>());
+		REQUIRE(x.as<std::uint32_t>() == 0xFFFFFFFF);
+	}
+	//signed 64bit
+	{
+		auto result1 = lua.safe_script("x = s64(-1)", sol::script_pass_on_error);
+		REQUIRE(result1.valid());
+		auto result2 = lua.safe_script("assert(x == -1)", sol::script_pass_on_error);
+		REQUIRE(result2.valid());
+		sol::object x = lua["x"];
+		REQUIRE(x.is<std::int64_t>());
+		REQUIRE(x.as<std::int64_t>() == -1);
+		REQUIRE(x.is<std::uint64_t>());
+		REQUIRE(x.as<std::uint64_t>() == 0xFFFFFFFFFFFFFFFFull);
+	}
+}