test/test_free_functions.cpp

   1 #include "test.h"
   2 #include <luabind/functor.hpp>
   3 #include <iostream>
   4
   5 namespace
   6 {
   7
   8         LUABIND_ANONYMOUS_FIX int feedback = 0;
   9
  10         luabind::functor<int> functor_test;
  11
  12         void set_functor(luabind::functor<int> f)
  13         {
  14                 functor_test = f;
  15         }
  16
  17         struct base
  18         {
  19                 ~base() { feedback = 99; }
  20
  21                 void f()
  22                 {
  23                         feedback = 5;
  24                 }
  25         };
  26
  27         void f(int x)
  28         {
  29                 feedback = x;
  30         }
  31
  32         void f(int x, int y)
  33         {
  34                 feedback = x + y;
  35         }
  36
  37         int g() { feedback = 3; return 4; }
  38
  39         base* create_base()
  40         {
  41                 return new base();
  42         }
  43
  44         void test_functor(const luabind::functor<int>& fun)
  45         {
  46                 feedback = fun(5);
  47         }
  48
  49         void test_value_converter(const std::string str)
  50         {
  51                 feedback = 9;
  52         }
  53
  54         void test_pointer_converter(const char* const str)
  55         {
  56                 feedback = 6;
  57         }
  58
  59         struct copy_me
  60         {
  61         };
  62
  63         void take_by_value(copy_me m)
  64         {
  65         }
  66
  67         int function_should_never_be_called(lua_State*)
  68         {
  69                 feedback = -1;
  70                 return 0;
  71         }
  72
  73 } // anonymous namespace
  74
  75 namespace luabind { namespace converters
  76 {
  77         yes_t is_user_defined(by_value<int>);
  78
  79         int convert_lua_to_cpp(lua_State* L, by_value<int>, int index)
  80         {
  81                 return static_cast<int>(lua_tonumber(L, index));
  82         }
  83
  84         int match_lua_to_cpp(lua_State* L, by_value<int>, int index)
  85         {
  86                 if (lua_isnumber(L, index)) return 0; else return -1;
  87         }
  88
  89         void convert_cpp_to_lua(lua_State* L, const  int& v)
  90         {
  91                 lua_pushnumber(L, v);
  92         }
  93
  94 }}
  95
  96 bool test_free_functions()
  97 {
  98         using namespace luabind;
  99         {
 100                 lua_State* L = lua_open();
 101                 lua_closer c(L);
 102                 int top = lua_gettop(L);
 103
 104                 open(L);
 105
 106                 lua_pushstring(L, "f");
 107                 lua_pushcclosure(L, &function_should_never_be_called, 0);
 108                 lua_settable(L, LUA_GLOBALSINDEX);
 109
 110                 if (dostring(L, "f()")) return false;
 111                 if (feedback != -1) return false;
 112
 113                 module(L)
 114                 [
 115                         class_<copy_me>("copy_me")
 116                                 .def(constructor<>()),
 117
 118                         class_<base>("base")
 119                                 .def("f", &base::f),
 120
 121
 122                         def("by_value", &take_by_value),
 123
 124                         def("f", (void(*)(int)) &f),
 125                         def("f", (void(*)(int, int)) &f),
 126                         def("g", &g),
 127                         def("create", &create_base, adopt(return_value)),
 128                         def("test_functor", &test_functor),
 129                         def("set_functor", &set_functor)
 130
 131
 132 #if !(BOOST_MSVC < 1300)
 133                         ,
 134                         def("test_value_converter", &test_value_converter),
 135                         def("test_pointer_converter", &test_pointer_converter)
 136 #endif
 137
 138                 ];
 139
 140                 if (dostring(L, "e = create()")) return false;
 141                 if (dostring(L, "e:f()")) return false;
 142                 if (feedback != 5) return false;
 143
 144                 if (dostring(L, "f(7)")) return false;
 145                 if (feedback != 7) return false;
 146
 147                 if (dostring(L, "f(3, 9)")) return false;
 148                 if (feedback != 12) return false;
 149
 150                 if (dostring(L, "a = g()")) return false;
 151                 if (feedback != 3) return false;
 152                 lua_pushstring(L, "a");
 153                 lua_gettable(L, LUA_GLOBALSINDEX);
 154                 if (lua_tonumber(L, -1) != 4) return false;
 155                 lua_pop(L, 1);
 156
 157                 if (dostring(L, "test_functor(function(x) return x * 10 end)")) return false;
 158                 if (feedback != 50) return false;
 159
 160                 functor<int> test_f(L, "g");
 161                 int a = test_f();
 162                 if (a != 4) return false;
 163                 if (feedback != 3) return false;
 164                 if (dostring(L, "set_functor(nil)")) return false;
 165
 166                 if (top != lua_gettop(L)) return false;
 167
 168                 if (dostring(L, "function lua_create() return create() end")) return false;
 169
 170                 base* ptr = call_function<base*>(L, "lua_create") [ adopt(result) ];
 171
 172                 delete ptr;
 173
 174 #if !(BOOST_MSVC < 1300)
 175                 dostring(L, "test_value_converter('foobar')");
 176                 if (feedback != 9) return false;
 177                 dostring(L, "test_pointer_converter('foobar')");
 178                 if (feedback != 6) return false;
 179 #endif
 180
 181                 if (!dostring2(L, "f('incorrect', 'parameters')")) return false;
 182                 std::cout << lua_tostring(L, -1) << "\n";
 183                 lua_pop(L, 1);
 184
 185                 dostring(L, "function functor_test(a) glob = a\n return 'foobar'\nend");
 186                 functor<std::string> functor_test = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 187
 188                 std::string str = functor_test(6)[detail::null_type()];
 189                 if (str != "foobar") return false;
 190                 if (object_cast<int>(get_globals(L)["glob"]) != 6) return false;
 191
 192                 functor<std::string> functor_test2 = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 193
 194                 if (functor_test != functor_test2) return false;
 195         }
 196
 197         if (feedback != 99) return false;
 198
 199         return true;
 200 }
 201