From bd3fe0cac583739bc0d7c4b5c8f301bb350abca0 Mon Sep 17 00:00:00 2001
From: Andy Belle-Isle <drumsetmonkey@gmail.com>
Date: Fri, 30 Aug 2019 00:19:31 -0400
Subject: Renamed lib to deps so github will ignore it for language stats
---
deps/sol2/tests/runtime_tests/source/tables.cpp | 250 ++++++++++++++++++++++++
1 file changed, 250 insertions(+)
create mode 100644 deps/sol2/tests/runtime_tests/source/tables.cpp
(limited to 'deps/sol2/tests/runtime_tests/source/tables.cpp')
diff --git a/deps/sol2/tests/runtime_tests/source/tables.cpp b/deps/sol2/tests/runtime_tests/source/tables.cpp
new file mode 100644
index 0000000..a6b45cc
--- /dev/null
+++ b/deps/sol2/tests/runtime_tests/source/tables.cpp
@@ -0,0 +1,250 @@
+// 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 <iostream>
+#include <algorithm>
+#include <numeric>
+#include <vector>
+
+std::string free_function() {
+ INFO("free_function()");
+ return "test";
+}
+
+struct object {
+ std::string operator()() {
+ INFO("member_test()");
+ return "test";
+ }
+};
+
+TEST_CASE("tables/cleanup", "make sure tables leave the stack balanced") {
+ sol::state lua;
+ sol::stack_guard luasg(lua);
+ lua.open_libraries();
+
+ auto f = [] { return 5; };
+ for (int i = 0; i < 30; i++) {
+ std::string name = std::string("init") + std::to_string(i);
+ int top = lua_gettop(lua);
+ lua[name] = f;
+ int aftertop = lua_gettop(lua);
+ REQUIRE(aftertop == top);
+ int val = lua[name]();
+ REQUIRE(val == 5);
+ }
+}
+
+TEST_CASE("tables/nested cleanup", "make sure tables leave the stack balanced") {
+ sol::state lua;
+ lua.open_libraries();
+
+ lua.safe_script("A={}");
+ auto f = [] { return 5; };
+ for (int i = 0; i < 30; i++) {
+ std::string name = std::string("init") + std::to_string(i);
+ int top = lua_gettop(lua);
+ auto A = lua["A"];
+ int beforetop = lua_gettop(lua);
+ REQUIRE(beforetop == top);
+ A[name] = f;
+ int aftertop = lua_gettop(lua);
+ REQUIRE(aftertop == top);
+ int val = A[name]();
+ REQUIRE(val == 5);
+ }
+}
+
+TEST_CASE("tables/variables", "Check if tables and variables work as intended") {
+ sol::state lua;
+ lua.open_libraries(sol::lib::base, sol::lib::os);
+ lua.get<sol::table>("os").set("name", "windows");
+ {
+ auto result = lua.safe_script("assert(os.name == \"windows\")", sol::script_pass_on_error);
+ REQUIRE(result.valid());
+ }
+}
+
+TEST_CASE("tables/create", "Check if creating a table is kosher") {
+ sol::state lua;
+ lua["testtable"] = sol::table::create(lua.lua_state(), 0, 0, "Woof", "Bark", 1, 2, 3, 4);
+ sol::object testobj = lua["testtable"];
+ REQUIRE(testobj.is<sol::table>());
+ sol::table testtable = testobj.as<sol::table>();
+ REQUIRE((testtable["Woof"] == std::string("Bark")));
+ REQUIRE((testtable[1] == 2));
+ REQUIRE((testtable[3] == 4));
+}
+
+TEST_CASE("tables/create local", "Check if creating a table is kosher") {
+ sol::state lua;
+ lua["testtable"] = lua.create_table(0, 0, "Woof", "Bark", 1, 2, 3, 4);
+ sol::object testobj = lua["testtable"];
+ REQUIRE(testobj.is<sol::table>());
+ sol::table testtable = testobj.as<sol::table>();
+ REQUIRE((testtable["Woof"] == std::string("Bark")));
+ REQUIRE((testtable[1] == 2));
+ REQUIRE((testtable[3] == 4));
+}
+
+TEST_CASE("tables/create local named", "Check if creating a table is kosher") {
+ sol::state lua;
+ sol::table testtable = lua.create_table("testtable", 0, 0, "Woof", "Bark", 1, 2, 3, 4);
+ sol::object testobj = lua["testtable"];
+ REQUIRE(testobj.is<sol::table>());
+ REQUIRE((testobj == testtable));
+ REQUIRE_FALSE((testobj != testtable));
+ REQUIRE((testtable["Woof"] == std::string("Bark")));
+ REQUIRE((testtable[1] == 2));
+ REQUIRE((testtable[3] == 4));
+}
+
+TEST_CASE("tables/create-with-local", "Check if creating a table is kosher") {
+ sol::state lua;
+ lua["testtable"] = lua.create_table_with("Woof", "Bark", 1, 2, 3, 4);
+ sol::object testobj = lua["testtable"];
+ REQUIRE(testobj.is<sol::table>());
+ sol::table testtable = testobj.as<sol::table>();
+ REQUIRE((testtable["Woof"] == std::string("Bark")));
+ REQUIRE((testtable[1] == 2));
+ REQUIRE((testtable[3] == 4));
+}
+
+TEST_CASE("tables/function variables", "Check if tables and function calls work as intended") {
+ sol::state lua;
+ lua.open_libraries(sol::lib::base, sol::lib::os);
+ auto run_script = [](sol::state& lua) -> void { lua.safe_script("assert(os.fun() == \"test\")"); };
+
+ lua.get<sol::table>("os").set_function("fun", []() {
+ INFO("stateless lambda()");
+ return "test";
+ });
+ REQUIRE_NOTHROW(run_script(lua));
+
+ lua.get<sol::table>("os").set_function("fun", &free_function);
+ REQUIRE_NOTHROW(run_script(lua));
+
+ // l-value, canNOT optimise
+ // prefer value semantics unless wrapped with std::reference_wrapper
+ {
+ auto lval = object();
+ lua.get<sol::table>("os").set_function("fun", &object::operator(), lval);
+ }
+ REQUIRE_NOTHROW(run_script(lua));
+
+ auto reflval = object();
+ lua.get<sol::table>("os").set_function("fun", &object::operator(), std::ref(reflval));
+ REQUIRE_NOTHROW(run_script(lua));
+
+ // stateful lambda: non-convertible, cannot be optimised
+ int breakit = 50;
+ lua.get<sol::table>("os").set_function("fun", [&breakit]() {
+ INFO("stateful lambda() with breakit:" << breakit);
+ return "test";
+ });
+ REQUIRE_NOTHROW(run_script(lua));
+
+ // r-value, cannot optimise
+ lua.get<sol::table>("os").set_function("fun", &object::operator(), object());
+ REQUIRE_NOTHROW(run_script(lua));
+
+ // r-value, cannot optimise
+ auto rval = object();
+ lua.get<sol::table>("os").set_function("fun", &object::operator(), std::move(rval));
+ REQUIRE_NOTHROW(run_script(lua));
+}
+
+TEST_CASE("tables/add", "Basic test to make sure the 'add' feature works") {
+ static const int sz = 120;
+
+ sol::state lua;
+ sol::table t = lua.create_table(sz, 0);
+
+ std::vector<int> bigvec(sz);
+ std::iota(bigvec.begin(), bigvec.end(), 1);
+
+ for (std::size_t i = 0; i < bigvec.size(); ++i) {
+ t.add(bigvec[i]);
+ }
+ for (std::size_t i = 0; i < bigvec.size(); ++i) {
+ int val = t[i + 1];
+ REQUIRE(val == bigvec[i]);
+ }
+}
+
+TEST_CASE("tables/raw set and raw get", "ensure raw setting and getting works through metatables") {
+ sol::state lua;
+ sol::table t = lua.create_table();
+ t[sol::metatable_key] = lua.create_table_with(sol::meta_function::new_index,
+ [](lua_State* L) { return luaL_error(L, "nay"); },
+ sol::meta_function::index,
+ [](lua_State* L) { return luaL_error(L, "nay"); });
+ t.raw_set("a", 2.5);
+ double la = t.raw_get<double>("a");
+ REQUIRE(la == 2.5);
+}
+
+TEST_CASE("tables/boolean keys", "make sure boolean keys don't get caught up in `is_integral` specializations") {
+ sol::state lua;
+ lua.open_libraries(sol::lib::base);
+
+ lua.safe_script(R"(
+tbl = {}
+tbl[true] = 10
+tbl[1] = 20
+
+print(tbl[true])
+print(tbl[1])
+)");
+ sol::table tbl = lua["tbl"];
+ int v1 = tbl[true];
+ int v2 = tbl[1];
+ REQUIRE(v1 == 10);
+ REQUIRE(v2 == 20);
+
+ tbl[true] = 30;
+ tbl[1] = 40;
+ v1 = tbl[true];
+ v2 = tbl[1];
+ REQUIRE(v1 == 30);
+ REQUIRE(v2 == 40);
+}
+
+TEST_CASE("tables/optional move", "ensure pushing a sol::optional<T> rvalue correctly moves the contained object into tables") {
+ sol::state sol_state;
+ struct move_only {
+ int secret_code;
+ move_only(int sc) : secret_code(sc) {}
+
+ move_only(const move_only&) = delete;
+ move_only(move_only&&) = default;
+ move_only& operator=(const move_only&) = delete;
+ move_only& operator=(move_only&&) = default;
+ };
+ sol_state["requires_move"] = sol::optional<move_only>(move_only(0x4D));
+ REQUIRE(sol_state["requires_move"].get<move_only>().secret_code == 0x4D);
+}
--
cgit v1.2.3