test/test_free_functions.cpp

   1 // Copyright (c) 2004 Daniel Wallin and Arvid Norberg
   2
   3 // Permission is hereby granted, free of charge, to any person obtaining a
   4 // copy of this software and associated documentation files (the "Software"),
   5 // to deal in the Software without restriction, including without limitation
   6 // the rights to use, copy, modify, merge, publish, distribute, sublicense,
   7 // and/or sell copies of the Software, and to permit persons to whom the
   8 // Software is furnished to do so, subject to the following conditions:
   9
  10 // The above copyright notice and this permission notice shall be included
  11 // in all copies or substantial portions of the Software.
  12
  13 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF
  14 // ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
  15 // TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A
  16 // PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT
  17 // SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR
  18 // ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
  19 // ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  20 // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE
  21 // OR OTHER DEALINGS IN THE SOFTWARE.
  22
  23 #include "test.hpp"
  24 #include <luabind/luabind.hpp>
  25 #include <luabind/functor.hpp>
  26 #include <luabind/adopt_policy.hpp>
  27
  28 luabind::functor<int> functor_test;
  29
  30 void set_functor(luabind::functor<int> f)
  31 {
  32     functor_test = f;
  33 }
  34
  35 struct base : counted_type<base>
  36 {
  37     int f()
  38     {
  39         return 5;
  40     }
  41 };
  42
  43 COUNTER_GUARD(base);
  44
  45 int f(int x)
  46 {
  47     return x + 1;
  48 }
  49
  50 int f(int x, int y)
  51 {
  52     return x + y;
  53 }
  54
  55 base* create_base()
  56 {
  57     return new base();
  58 }
  59
  60 void test_value_converter(const std::string str)
  61 {
  62     TEST_CHECK(str == "converted string");
  63 }
  64
  65 void test_pointer_converter(const char* const str)
  66 {
  67     TEST_CHECK(std::strcmp(str, "converted string") == 0);
  68 }
  69
  70 struct copy_me
  71 {
  72 };
  73
  74 void take_by_value(copy_me m)
  75 {
  76 }
  77
  78 int function_should_never_be_called(lua_State* L)
  79 {
  80     lua_pushnumber(L, 10);
  81     return 1;
  82 }
  83
  84 namespace luabind { namespace converters
  85 {
  86     yes_t is_user_defined(by_value<int>);
  87
  88     int convert_lua_to_cpp(lua_State* L, by_value<int>, int index)
  89     {
  90         return static_cast<int>(lua_tonumber(L, index));
  91     }
  92
  93     int match_lua_to_cpp(lua_State* L, by_value<int>, int index)
  94     {
  95         if (lua_isnumber(L, index)) return 0; else return -1;
  96     }
  97
  98     void convert_cpp_to_lua(lua_State* L, const  int& v)
  99     {
 100         lua_pushnumber(L, v);
 101     }
 102
 103 }}
 104
 105 void test_main(lua_State* L)
 106 {
 107     using namespace luabind;
 108
 109     lua_pushstring(L, "f");
 110     lua_pushcclosure(L, &function_should_never_be_called, 0);
 111     lua_settable(L, LUA_GLOBALSINDEX);
 112
 113     DOSTRING(L, "assert(f() == 10)");
 114
 115     module(L)
 116     [
 117         class_<copy_me>("copy_me")
 118             .def(constructor<>()),
 119
 120         class_<base>("base")
 121             .def("f", &base::f),
 122
 123
 124         def("by_value", &take_by_value),
 125
 126         def("f", (int(*)(int)) &f),
 127         def("f", (int(*)(int, int)) &f),
 128         def("create", &create_base, adopt(return_value)),
 129         def("set_functor", &set_functor)
 130
 131 #if !(BOOST_MSVC < 1300)
 132         ,
 133         def("test_value_converter", &test_value_converter),
 134         def("test_pointer_converter", &test_pointer_converter)
 135 #endif
 136
 137     ];
 138
 139     DOSTRING(L,
 140         "e = create()\n"
 141         "assert(e:f() == 5)");
 142
 143     DOSTRING(L, "assert(f(7) == 8)");
 144
 145     DOSTRING(L, "assert(f(3, 9) == 12)");
 146
 147     DOSTRING(L, "set_functor(function(x) return x * 10 end)");
 148
 149     TEST_CHECK(functor_test(20) == 200);
 150
 151     DOSTRING(L, "set_functor(nil)");
 152
 153     DOSTRING(L, "function lua_create() return create() end");
 154     base* ptr = call_function<base*>(L, "lua_create") [ adopt(result) ];
 155     delete ptr;
 156
 157 #if !(BOOST_MSVC < 1300)
 158     DOSTRING(L, "test_value_converter('converted string')");
 159     DOSTRING(L, "test_pointer_converter('converted string')");
 160 #endif
 161
 162     DOSTRING_EXPECTED(L, "f('incorrect', 'parameters')",
 163         "no match for function call 'f' with the parameters (string, string)\n"
 164         "candidates are:\n"
 165         "f(number)\n"
 166         "f(number, number)\n");
 167
 168     DOSTRING(L,
 169         "function functor_test(a) glob = a\n"
 170         " return 'foobar'\n"
 171         "end");
 172     functor<std::string> functor_test = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 173
 174     TEST_CHECK(functor_test(6)[detail::null_type()] == "foobar");
 175     TEST_CHECK(object_cast<int>(get_globals(L)["glob"]) == 6);
 176
 177     functor<std::string> functor_test2 = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 178
 179     TEST_CHECK(functor_test == functor_test2);
 180
 181     // this must be reset before the lua state is destructed!
 182     functor_test.reset();
 183 }
 184