test/test_super_leak.cpp

   1 // Copyright Daniel Wallin 2009. Use, modification and distribution is
   2 // subject to the Boost Software License, Version 1.0. (See accompanying
   3 // file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
   4
   5
   6 #include "test.hpp"
   7 #include <luabind/luabind.hpp>
   8
   9 struct Foo
  10 {
  11     static std::size_t count;
  12
  13     Foo()
  14     {
  15         ++count;
  16     }
  17
  18     ~Foo()
  19     {
  20         --count;
  21     }
  22 };
  23
  24 std::size_t Foo::count = 0;
  25
  26 void test_main(lua_State* L)
  27 {
  28     using namespace luabind;
  29
  30     module(L) [
  31         class_<Foo>("Foo")
  32           .def(constructor<>())
  33     ];
  34
  35     // This used to leak the last created instance in one of the
  36     // upvalues to the "super" function.
  37
  38     disable_super_deprecation();
  39
  40     DOSTRING(L,
  41         "class 'Bar' (Foo)\n"
  42         "function Bar.__init(self)\n"
  43         "  Foo.__init(self)\n"
  44         "end\n"
  45     );
  46
  47     DOSTRING(L,
  48         "x = Bar()\n"
  49     );
  50
  51     assert(Foo::count == 1);
  52
  53     DOSTRING(L,
  54         "x = nil\n"
  55     );
  56
  57     lua_gc(L, LUA_GCCOLLECT, 0);
  58
  59     assert(Foo::count == 0);
  60 }