test/test_construction.cpp

   1 #include "test.h"
   2
   3 namespace
   4 {
   5         int feedback = 0;
   6         int feedback2 = 0;
   7
   8         struct A
   9         {
  10                 A(int a) { feedback = a; }
  11                 A(const A&) { feedback = 21; }
  12                 A() { feedback = 20; }
  13                 ~A() { feedback = -1; }
  14
  15         };
  16
  17         void f(A*, const A&) {}
  18
  19         struct B: public A
  20         {
  21                 B(int a):A(a) { feedback2 = a; }
  22                 B() { feedback2 = 20; }
  23                 ~B() { feedback2 = -1; }
  24         };
  25
  26 } // anonymous namespace
  27
  28 bool test_construction()
  29 {
  30         using namespace luabind;
  31
  32         lua_State* L = lua_open();
  33         lua_closer c(L);
  34         int top = lua_gettop(L);
  35
  36         open(L);
  37
  38         class_<A>(L, "A")
  39                 .def("f", &f)
  40                 .def(constructor<int>())
  41                 .def(constructor<const A&>())
  42                 .def(constructor<>());
  43
  44         class_<B>(L, "B")
  45                 .def(constructor<int>())
  46                 .def(constructor<>());
  47
  48         if (dostring(L, "a = A(4)")) return false;
  49         if (feedback != 4) return false;
  50
  51         if (dostring(L, "a2 = A(a)")) return false;
  52         if (feedback != 21) return false;
  53
  54         if (dostring(L, "b = B(6)")) return false;
  55         if (feedback != 6) return false;
  56         if (feedback2 != 6) return false;
  57
  58         if (dostring(L, "b2 = B()")) return false;
  59         if (feedback != 20) return false;
  60         if (feedback2 != 20) return false;
  61
  62 //      if (dostring(L, "a:f(a)")) return false;
  63
  64         c.release();
  65         if (feedback != -1) return false;
  66         if (feedback2 != -1) return false;
  67
  68         if (top != lua_gettop(L)) return false;
  69
  70         return true;
  71 }