1 files changed, 74 insertions, 0 deletions
diff --git a/deps/sol2/tests/runtime_tests/source/tables.clear.cpp b/deps/sol2/tests/runtime_tests/source/tables.clear.cpp
new file mode 100644
index 0000000..ae92f39
--- /dev/null
+++ b/deps/sol2/tests/runtime_tests/source/tables.clear.cpp
@@ -0,0 +1,74 @@
+// 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>
+
+TEST_CASE("tables/clear", "clear method works and does not clobber stack") {
+	sol::state lua;
+	sol::stack_guard luasg(lua);
+	lua["t"] = sol::lua_value({ { "a", "b" }, { "c", "d" } });
+	sol::table t = lua["t"];
+	{
+		sol::stack_guard clearsg(lua);
+		t.clear();
+	}
+	REQUIRE(!t["a"].valid());
+	REQUIRE(!t["c"].valid());
+}
+
+TEST_CASE("tables/stack clear", "stack-based clear method works and does not clobber stack") {
+	sol::state lua;
+	SECTION("reference based") {
+		sol::stack_guard luasg(lua);
+		lua["t"] = sol::lua_value({ { "a", "b" }, { "c", "d" } });
+		sol::table t = lua["t"];
+		REQUIRE(t["a"] == std::string("b"));
+		REQUIRE(t["c"] == std::string("d"));
+		{
+			sol::stack_guard clearsg(lua);
+			sol::stack::clear(t);
+		}
+		REQUIRE(!t["a"].valid());
+		REQUIRE(!t["c"].valid());
+	}
+	SECTION("with index") {
+		sol::stack_guard luasg(lua);
+		lua["t"] = sol::lua_value({ { "a", "b" }, { "c", "d" } });
+		sol::table t = lua["t"];
+		REQUIRE(t["a"] == std::string("b"));
+		REQUIRE(t["c"] == std::string("d"));
+		{
+			sol::stack_guard ppclearsg(lua);
+			auto pp = sol::stack::push_pop(t);
+			int table_index = pp.index_of(t);
+			{
+				sol::stack_guard clearsg(lua);
+				sol::stack::clear(lua, table_index);
+			}
+		}
+		REQUIRE(!t["a"].valid());
+		REQUIRE(!t["c"].valid());
+	}
+}