test/test_create_in_thread.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 #include "test.hpp"
   6 #include <luabind/luabind.hpp>
   7
   8 int count = 0;
   9
  10 struct X
  11 {
  12     X()
  13     {
  14         ++count;
  15     }
  16
  17     ~X()
  18     {
  19         --count;
  20     }
  21 };
  22
  23 struct Y
  24 {
  25     virtual ~Y()
  26     {}
  27 };
  28
  29 struct Y_wrap : Y, luabind::wrap_base
  30 {};
  31
  32 void test_main(lua_State* L)
  33 {
  34     using namespace luabind;
  35
  36     module(L) [
  37         class_<X>("X")
  38             .def(constructor<>()),
  39
  40         class_<Y, Y_wrap>("Y")
  41             .def(constructor<>())
  42     ];
  43
  44     DOSTRING(L,
  45         "class 'Y_lua' (Y)\n"
  46         "  function Y_lua.__init(self)\n"
  47         "      Y.__init(self)\n"
  48         "  end\n"
  49     );
  50
  51     for (int i = 0; i < 100; ++i)
  52     {
  53         lua_State* thread = lua_newthread(L);
  54         int ref = luaL_ref(L, LUA_REGISTRYINDEX);
  55
  56         DOSTRING(thread,
  57             "local x = X()\n"
  58         );
  59
  60         DOSTRING(thread,
  61             "local y = Y_lua()\n"
  62         );
  63
  64         luaL_unref(L, LUA_REGISTRYINDEX, ref);
  65     }
  66 }