test/test_private_destructors.cpp

   1 // Copyright Daniel Wallin 2008. 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
   8 struct X
   9 {
  10 private:
  11     ~X() {}
  12 };
  13
  14 int ptr_count = 0;
  15
  16 template <class T>
  17 struct ptr
  18 {
  19     ptr()
  20       : p(0)
  21     {
  22         ptr_count++;
  23     }
  24
  25     ptr(T* p)
  26       : p(p)
  27     {
  28         ptr_count++;
  29     }
  30
  31     ptr(ptr const& other)
  32       : p(other.p)
  33     {
  34         ptr_count++;
  35     }
  36
  37     template <class U>
  38     ptr(ptr<U> const& other)
  39       : p(other.p)
  40     {
  41         ptr_count++;
  42     }
  43
  44     ~ptr()
  45     {
  46         ptr_count--;
  47     }
  48
  49     T* p;
  50 };
  51
  52 template <class T>
  53 T* get_pointer(ptr<T> const& x)
  54 {
  55     return x.p;
  56 }
  57
  58 template <class T>
  59 ptr<T const>* get_const_holder(ptr<T>*)
  60 {
  61     return 0;
  62 }
  63
  64 void f1(X const&)
  65 {}
  66
  67 void f2(X&)
  68 {}
  69
  70 void f3(X const*)
  71 {}
  72
  73 void f4(X*)
  74 {}
  75
  76 void g1(ptr<X> p)
  77 {
  78     TEST_CHECK(ptr_count == (p.p ? 2 : 3));
  79 }
  80
  81 void g2(ptr<X> const& p)
  82 {
  83     TEST_CHECK(ptr_count == (p.p ? 1 : 2));
  84 }
  85
  86 void g3(ptr<X>*)
  87 {
  88     TEST_CHECK(ptr_count == 1);
  89 }
  90
  91 void g4(ptr<X> const*)
  92 {
  93     TEST_CHECK(ptr_count == 1);
  94 }
  95
  96 ptr<X> get()
  97 {
  98     return ptr<X>(new X);
  99 }
 100
 101 void test_main(lua_State* L)
 102 {
 103     using namespace luabind;
 104
 105     module(L) [
 106         class_<X, ptr<X> >("X"),
 107
 108         def("get", &get),
 109
 110         def("f1", &f1),
 111         def("f2", &f2),
 112         def("f3", &f3),
 113         def("f4", &f4),
 114
 115         def("g1", &g1),
 116         def("g2", &g2),
 117         def("g3", &g3),
 118         def("g4", &g4)
 119     ];
 120
 121     DOSTRING(L, "x = get()\n");
 122     TEST_CHECK(ptr_count == 1);
 123
 124     DOSTRING(L, "f1(x)\n");
 125     TEST_CHECK(ptr_count == 1);
 126
 127     DOSTRING(L, "f2(x)\n");
 128     TEST_CHECK(ptr_count == 1);
 129
 130     DOSTRING(L, "f3(x)\n");
 131     TEST_CHECK(ptr_count == 1);
 132
 133     DOSTRING(L, "f4(x)\n");
 134     TEST_CHECK(ptr_count == 1);
 135
 136     DOSTRING(L, "g1(x)\n");
 137     TEST_CHECK(ptr_count == 1);
 138
 139     DOSTRING(L, "g2(x)\n");
 140     TEST_CHECK(ptr_count == 1);
 141
 142     DOSTRING(L, "g3(x)\n");
 143     TEST_CHECK(ptr_count == 1);
 144
 145     DOSTRING(L, "g4(x)\n");
 146     TEST_CHECK(ptr_count == 1);
 147
 148     DOSTRING(L,
 149         "x = nil\n"
 150     );
 151
 152     lua_gc(L, LUA_GCCOLLECT, 0);
 153     TEST_CHECK(ptr_count == 0);
 154 }
 155