src/unittest/test_lua.cpp

   1 /*
   2 Minetest
   3 Copyright (C) 2013 celeron55, Perttu Ahola <celeron55@gmail.com>
   4 Copyright (C) 2021 TurkeyMcMac, Jude Melton-Houghton <jwmhjwmh@gmail.com>
   5
   6 This program is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU Lesser General Public License as published by
   8 the Free Software Foundation; either version 2.1 of the License, or
   9 (at your option) any later version.
  10
  11 This program is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU Lesser General Public License for more details.
  15
  16 You should have received a copy of the GNU Lesser General Public License along
  17 with this program; if not, write to the Free Software Foundation, Inc.,
  18 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  19 */
  20
  21 #include "test.h"
  22
  23 extern "C" {
  24 #include <lua.h>
  25 #include <lauxlib.h>
  26 }
  27
  28 class TestLua : public TestBase
  29 {
  30 public:
  31         TestLua() { TestManager::registerTestModule(this); }
  32         const char *getName() { return "TestLua"; }
  33
  34         void runTests(IGameDef *gamedef);
  35
  36         void testLuaDestructors();
  37 };
  38
  39 static TestLua g_test_instance;
  40
  41 void TestLua::runTests(IGameDef *gamedef)
  42 {
  43         TEST(testLuaDestructors);
  44 }
  45
  46 ////////////////////////////////////////////////////////////////////////////////
  47
  48 namespace
  49 {
  50
  51         class DestructorDetector {
  52                 bool *did_destruct;
  53         public:
  54                 DestructorDetector(bool *did_destruct) : did_destruct(did_destruct)
  55                 {
  56                         *did_destruct = false;
  57                 }
  58                 ~DestructorDetector()
  59                 {
  60                         *did_destruct = true;
  61                 }
  62         };
  63
  64 }
  65
  66 void TestLua::testLuaDestructors()
  67 {
  68         bool did_destruct = false;
  69
  70         lua_State *L = luaL_newstate();
  71         lua_cpcall(L, [](lua_State *L) -> int {
  72                 DestructorDetector d(reinterpret_cast<bool*>(lua_touserdata(L, 1)));
  73                 luaL_error(L, "error");
  74                 return 0;
  75         }, &did_destruct);
  76         lua_close(L);
  77
  78         UASSERT(did_destruct);
  79 }