testlua

appveyor.yml

@@ -26,6 +26,9 @@ install:
   # let premake happy
   - xcopy /E premake\* .
   
+  # patch lua
+  - patch -p0 < lua.patch
+    
   # premake
   - premake5 vs2015
   

premake/lua/lua.patch

+diff --git a/lua/lbaselib.c b/lua/lbaselib.c
+index 861823d..3eebb0f 100644
+--- a/lua/lbaselib.c
++++ b/lua/lbaselib.c
+@@ -124,11 +124,14 @@ static int luaB_getmetatable (lua_State *L) {
+ 
+ static int luaB_setmetatable (lua_State *L) {
+   int t = lua_type(L, 2);
+-  luaL_checktype(L, 1, LUA_TTABLE);
+-  luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2,
+-                    "nil or table expected");
+-  if (luaL_getmetafield(L, 1, "__metatable") != LUA_TNIL)
+-    return luaL_error(L, "cannot change a protected metatable");
++  int nocheck = lua_toboolean(L, 3);
++  if (!nocheck) {
++	  luaL_checktype(L, 1, LUA_TTABLE);
++	  luaL_argcheck(L, t == LUA_TNIL || t == LUA_TTABLE, 2,
++						"nil or table expected");
++	  if (luaL_getmetafield(L, 1, "__metatable") != LUA_TNIL)
++		return luaL_error(L, "cannot change a protected metatable");
++  }
+   lua_settop(L, 2);
+   lua_setmetatable(L, 1);
+   return 1;