test/test_policies.cpp

   1 #include "test.h"
   2
   3 #include <luabind/out_value_policy.hpp>
   4 #include <luabind/return_reference_to_policy.hpp>
   5 #include <luabind/copy_policy.hpp>
   6
   7 namespace
   8 {
   9
  10         LUABIND_ANONYMOUS_FIX int feedback = 0;
  11
  12         struct policies_test_class
  13         {
  14                 std::string name_;
  15
  16                 policies_test_class() { feedback++; }
  17                 policies_test_class(const char* name): name_(name) { feedback++; }
  18                 ~policies_test_class() { feedback--; }
  19
  20                 policies_test_class* make(const char* name) const
  21                 {
  22                         return new policies_test_class(name);
  23                 }
  24
  25                 void f(policies_test_class* p) { delete p; }
  26
  27                 const policies_test_class* internal_ref() { return this; }
  28
  29                 policies_test_class* self_ref()
  30                 {
  31                         return this;
  32                 }
  33
  34 //      private:
  35                 policies_test_class(const policies_test_class&) {}
  36         };
  37
  38         policies_test_class global;
  39
  40         void out_val(float* f) { *f = 3.f; }
  41         policies_test_class* copy_val() { return &global; }
  42
  43         struct secret_type {};
  44
  45         secret_type sec_;
  46
  47         secret_type* secret() { return &sec_; }
  48
  49 } // anonymous namespace
  50
  51 bool test_policies()
  52 {
  53         try
  54         {
  55                 using namespace luabind;
  56
  57                 lua_State* L = lua_open();
  58                 lua_closer c(L);
  59                 lua_baselibopen(L);
  60
  61                 int top = lua_gettop(L);
  62
  63                 luabind::open(L);
  64
  65                 module(L)
  66                 [
  67                         class_<policies_test_class>("test")
  68                                 .def(constructor<>())
  69                                 .def("f", &policies_test_class::f, adopt(_1))
  70                                 .def("make", &policies_test_class::make, adopt(return_value))
  71                                 .def("internal_ref", &policies_test_class::internal_ref, dependency(return_value, self))
  72                                 .def("self_ref", &policies_test_class::self_ref, return_reference_to(self)),
  73
  74                         def("out_val", &out_val, pure_out_value(_1)),
  75                         def("copy_val", &copy_val, copy(result)),
  76                         def("secret", &secret, discard_result)
  77                 ];
  78
  79                 feedback = 1;
  80
  81                 if (dostring(L, "a = secret()")) return false;
  82
  83                 // copy
  84                 if (dostring(L, "a = copy_val()")) return false;
  85                 if (dostring(L, "a = nil")) return false;
  86                 if (dostring(L, "collectgarbage(0)")) return false;
  87                 if (feedback != 0) return false;
  88
  89                 // out_value
  90                 if (dostring(L, "a = out_val()")) return false;
  91
  92                 // return_reference_to
  93                 if (dostring(L, "a = test()")) return false;
  94                 if (feedback != 1) return false;
  95                 if (dostring(L, "b = a:self_ref()")) return false;
  96                 if (dostring(L, "a = nil")) return false;
  97                 if (dostring(L, "collectgarbage(0)")) return false;
  98                 if (feedback != 1) return false;
  99                 if (dostring(L, "b = nil")) return false;
 100                 if (dostring(L, "collectgarbage(0)")) return false;
 101                 if (feedback != 0) return false;
 102
 103                 // dependency
 104                 if (dostring(L, "a = test()")) return false;
 105                 if (feedback != 1) return false;
 106                 if (dostring(L, "b = a:internal_ref()")) return false;
 107                 if (dostring(L, "a = nil")) return false;
 108                 if (dostring(L, "collectgarbage(0)")) return false;
 109                 if (feedback != 1) return false;
 110                 if (dostring(L, "b = nil")) return false;
 111                 if (dostring(L, "collectgarbage(0)")) return false; // two gc-cycles because dependency-table won't be collected in the same cycle
 112                 if (dostring(L, "collectgarbage(0)")) return false; // as the object_rep
 113                 if (feedback != 0) return false;
 114
 115                 // adopt
 116                 if (dostring(L, "a = test()")) return false;
 117                 if (feedback != 1) return false;
 118                 if (dostring(L, "b = a:make('tjosan')")) return false;
 119                 if (feedback != 2) return false;
 120                 if (dostring(L, "a:f(b)")) return false;
 121
 122                 if (top != lua_gettop(L)) return false;
 123
 124                 c.release();
 125                 if (feedback != 0) return false;
 126         }
 127         catch(...)
 128         {
 129                 return false;
 130         }
 131         return true;
 132 }
 133