tests: Add tests for functrion wrapping

Makefile

@@ -6,7 +6,7 @@ EXEC            := exec
 # Test artifacts
 TEST_DIR        := tests
 TEST_OUT        := $(TEST_DIR)/all
-TEST_SRCS       := all.cpp types.cpp stack.cpp
+TEST_SRCS       := all.cpp types.cpp stack.cpp functions.cpp
 TEST_DEPS       := $(TEST_SRCS:%.cpp=$(TEST_DIR)/%.d)
 TEST_OBJS       := $(TEST_SRCS:%.cpp=$(TEST_DIR)/%.o)
 

tests/functions.cpp

@@ -0,0 +1,112 @@
+#include "catch.hpp"
+
+#include <lua.hpp>
+#include <luwra.hpp>
+
+static
+int noret_environment = 0;
+
+static
+void test_function_noret_noparams() {
+	noret_environment++;
+}
+
+TEST_CASE("wrap_function_noret_noparams") {
+	lua_State* state = luaL_newstate();
+
+	// Setup environment
+	noret_environment = 1337;
+
+	// Wrap function
+	lua_CFunction cfun = luwra::wrap_function<void(), test_function_noret_noparams>;
+	REQUIRE(cfun != nullptr);
+
+	// Register function
+	luwra::push(state, cfun);
+	lua_setglobal(state, "test_function_noret_noparams");
+
+	// Invoke function
+	REQUIRE(luaL_dostring(state, "test_function_noret_noparams()") == 0);
+	REQUIRE(lua_gettop(state) == 0);
+	REQUIRE(noret_environment == 1338);
+
+	lua_close(state);
+}
+
+static
+void test_function_noret(int a, int b) {
+	noret_environment = a + b;
+}
+
+TEST_CASE("wrap_function_noret") {
+	lua_State* state = luaL_newstate();
+
+	// Test function beforehand
+	test_function_noret(13, 37);
+	int req_environemt = noret_environment;
+
+	// Wrap function
+	lua_CFunction cfun = luwra::wrap_function<void(int, int), test_function_noret>;
+	REQUIRE(cfun != nullptr);
+
+	// Register function
+	luwra::push(state, cfun);
+	lua_setglobal(state, "test_function_noret");
+
+	// Invoke function
+	REQUIRE(luaL_dostring(state, "test_function_noret(13, 37)") == 0);
+	REQUIRE(lua_gettop(state) == 0);
+	REQUIRE(noret_environment == req_environemt);
+
+	lua_close(state);
+}
+
+static
+int test_function_noparams() {
+	return 13 * 37;
+}
+
+TEST_CASE("wrap_function_noparams") {
+	lua_State* state = luaL_newstate();
+
+	// Wrap function
+	lua_CFunction cfun = luwra::wrap_function<int(), test_function_noparams>;
+	REQUIRE(cfun != nullptr);
+
+	// Register function
+	luwra::push(state, cfun);
+	lua_setglobal(state, "test_function_noparams");
+
+	// Invoke function
+	REQUIRE(luaL_dostring(state, "return test_function_noparams()") == 0);
+	REQUIRE(lua_gettop(state) == 1);
+	REQUIRE(luwra::Value<int>::read(state, -1) == test_function_noparams());
+
+	lua_close(state);
+}
+
+static
+int test_function(int a, int b) {
+	return (a + b) * (a - b);
+}
+
+TEST_CASE("wrap_function") {
+	lua_State* state = luaL_newstate();
+
+	// Wrap function
+	lua_CFunction cfun = luwra::wrap_function<int(int, int), test_function>;
+	REQUIRE(cfun != nullptr);
+
+	// Register function
+	luwra::push(state, cfun);
+	lua_setglobal(state, "test_function");
+
+	// Invoke function
+	REQUIRE(luaL_dostring(state, "return test_function(37, 13)") == 0);
+	REQUIRE(lua_gettop(state) == 1);
+	REQUIRE(luwra::Value<int>::read(state, -1) == test_function(37, 13));
+
+	lua_close(state);
+}
+
+// TODO: Test whether type-checking works properly