test/test_shared_ptr.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 #include <luabind/shared_ptr_converter.hpp>
   8
   9 struct X
  10 {
  11     X(int value)
  12       : value(value)
  13     {}
  14
  15     int value;
  16 };
  17
  18 int get_value(boost::shared_ptr<X> const& p)
  19 {
  20     return p->value;
  21 }
  22
  23 boost::shared_ptr<X> filter(boost::shared_ptr<X> const& p)
  24 {
  25     return p;
  26 }
  27
  28 void test_main(lua_State* L)
  29 {
  30     using namespace luabind;
  31
  32     module(L) [
  33         class_<X>("X")
  34             .def(constructor<int>()),
  35         def("get_value", &get_value),
  36         def("filter", &filter)
  37     ];
  38
  39     DOSTRING(L,
  40         "x = X(1)\n"
  41         "assert(get_value(x) == 1)\n"
  42     );
  43
  44     DOSTRING(L,
  45         "assert(x == filter(x))\n"
  46     );
  47 }