text: // sol3
  
  // The MIT License (MIT)
  
  // Copyright (c) 2013-2020 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());
  	}
  }
  