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                 class_<copy_me>(L, "copy_me")
  93                         .def(constructor<>())
  94                         ;
  95
  96                 class_<base>(L, "base")
  97                         .def("f", &base::f)
  98                         ;
  99
 100
 101                 function(L, "by_value", &take_by_value);
 102
 103                 function(L, "f", (void(*)(int)) &f);
 104                 function(L, "f", (void(*)(int, int)) &f);
 105                 function(L, "g", &g);
 106                 function(L, "create", &create_base, adopt(return_value));
 107                 function(L, "test_functor", &test_functor);
 108
 109 #if !(BOOST_MSVC < 1300)
 110                 function(L, "test_value_converter", &test_value_converter);
 111                 function(L, "test_pointer_converter", &test_pointer_converter);
 112 #endif
 113
 114                 if (dostring(L, "e = create()")) return false;
 115                 if (dostring(L, "e:f()")) return false;
 116                 if (feedback != 5) return false;
 117
 118                 if (dostring(L, "f(7)")) return false;
 119                 if (feedback != 7) return false;
 120
 121                 if (dostring(L, "f(3, 9)")) return false;
 122                 if (feedback != 12) return false;
 123
 124                 if (dostring(L, "a = g()")) return false;
 125                 if (feedback != 3) return false;
 126                 lua_pushstring(L, "a");
 127                 lua_gettable(L, LUA_GLOBALSINDEX);
 128                 if (lua_tonumber(L, -1) != 4) return false;
 129                 lua_pop(L, 1);
 130
 131                 if (dostring(L, "test_functor(function(x) return x * 10 end)")) return false;
 132                 if (feedback != 50) return false;
 133
 134                 functor<int> test_f(L, "g");
 135                 int a = test_f();
 136                 if (a != 4) return false;
 137                 if (feedback != 3) return false;
 138
 139                 if (top != lua_gettop(L)) return false;
 140
 141                 if (dostring(L, "function lua_create() return create() end")) return false;
 142
 143                 base* ptr = call_function<base*>(L, "lua_create") [ adopt(result) ];
 144
 145                 delete ptr;
 146
 147 #if !(BOOST_MSVC < 1300)
 148                 dostring(L, "test_value_converter('foobar')");
 149                 if (feedback != 9) return false;
 150                 dostring(L, "test_pointer_converter('foobar')");
 151                 if (feedback != 6) return false;
 152 #endif
 153
 154                 dostring(L, "function functor_test(a) glob = a\n return 'foobar'\nend");
 155                 functor<std::string> functor_test = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 156
 157                 std::string str = functor_test(6)[detail::null_type()];
 158                 if (str != "foobar") return false;
 159                 if (object_cast<int>(get_globals(L)["glob"]) != 6) return false;
 160
 161                 functor<std::string> functor_test2 = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 162
 163                 if (functor_test != functor_test2) return false;
 164         }
 165
 166         if (feedback != 99) return false;
 167
 168         return true;
 169 }
 170