test/test_free_functions.cpp

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