test/test_implicit_cast.cpp

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