test/test_const.cpp

   1 #include "test.h"
   2
   3 namespace
   4 {
   5         LUABIND_ANONYMOUS_FIX int feedback = 0;
   6
   7         struct A
   8         {
   9                 const A* f() { return this; }
  10
  11                 void g() const { feedback = 1; }
  12                 void g() { feedback = 2; }
  13         };
  14
  15 } // anonymous namespace
  16
  17 bool test_const()
  18 {
  19         using namespace luabind;
  20
  21         lua_State* L = lua_open();
  22         lua_closer c(L);
  23         int top = lua_gettop(L);
  24
  25         open(L);
  26
  27         typedef void(A::*g1_t)();
  28         typedef void(A::*g2_t)() const;
  29
  30         g1_t g1 = &A::g;
  31         g2_t g2 = &A::g;
  32
  33         module(L)
  34         [
  35                 class_<A>("A")
  36                         .def(constructor<>())
  37                         .def("f", &A::f)
  38                         .def("g", /*(void(A::*)() const) &A::g*/ g1)
  39                         .def("g", /*(void(A::*)()) &A::g*/ g2)
  40         ];
  41
  42         if (dostring(L, "a = A()")) return false;
  43         if (dostring(L, "a:g()")) return false;
  44         if (feedback != 2) return false;
  45
  46         if (dostring(L, "a2 = a:f()")) return false;
  47         if (dostring(L, "a2:g()")) return false;
  48         if (feedback != 1) return false;
  49
  50         if (top != lua_gettop(L)) return false;
  51
  52         return true;
  53 }