test/test_implicit_cast.cpp

   1 #include "test.h"
   2
   3 namespace
   4 {
   5         LUABIND_ANONYMOUS_FIX int feedback = 0;
   6
   7         struct A { virtual ~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 #include <luabind/pointer_holder.hpp>
  19
  20 void test_instance_holder(lua_State* L)
  21 {
  22         using namespace luabind;
  23
  24 //      pointer_holder<A, A*> holder(new B);
  25
  26 //      void* p = holder.holds(LUABIND_TYPEID(B));
  27 }
  28 */
  29 bool test_implicit_cast()
  30 {
  31         using namespace luabind;
  32
  33         lua_State* L = lua_open();
  34         lua_closer c(L);
  35         int top = lua_gettop(L);
  36
  37         open(L);
  38
  39         typedef void (test_implicit::*f1)(A*);
  40         typedef void (test_implicit::*f2)(B*);
  41
  42         module(L)
  43         [
  44                 class_<A>("A")
  45                         .def(constructor<>()),
  46
  47                 class_<B, A>("B")
  48                         .def(constructor<>()),
  49
  50                 class_<test_implicit>("test")
  51                         .def(constructor<>())
  52                         .def("f", (f1) &test_implicit::f)
  53                         .def("f", (f2) &test_implicit::f)
  54         ];
  55
  56 //      test_instance_holder(L);
  57
  58         if (dostring(L, "a = A()")) return false;
  59         if (dostring(L, "b = B()")) return false;
  60         if (dostring(L, "t = test()")) return false;
  61
  62         if (dostring(L, "t:f(a)")) return false;
  63         if (feedback != 1) return false;
  64
  65         if (dostring(L, "t:f(b)")) return false;
  66         if (feedback != 2) return false;
  67
  68         if (top != lua_gettop(L)) return false;
  69
  70         return true;
  71 }