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
  25 #include <luabind/luabind.hpp>
  26 #include <luabind/functor.hpp>
  27 #include <luabind/adopt_policy.hpp>
  28
  29 namespace {
  30
  31     luabind::functor<int> functor_test;
  32
  33     void set_functor(luabind::functor<int> f)
  34     {
  35         functor_test = f;
  36     }
  37
  38         struct base: counted_type<base>
  39     {
  40         int f()
  41         {
  42                         return 5;
  43         }
  44     };
  45
  46     int f(int x)
  47     {
  48         return x + 1;
  49     }
  50
  51     int f(int x, int y)
  52     {
  53         return x + y;
  54     }
  55
  56     base* create_base()
  57     {
  58         return new base();
  59     }
  60
  61     void test_value_converter(const std::string str)
  62     {
  63                 BOOST_TEST(str == "converted string");
  64     }
  65
  66     void test_pointer_converter(const char* const str)
  67     {
  68                 BOOST_TEST(std::strcmp(str, "converted string") == 0);
  69     }
  70
  71     struct copy_me
  72     {
  73     };
  74
  75     void take_by_value(copy_me m)
  76     {
  77     }
  78
  79     int function_should_never_be_called(lua_State* L)
  80     {
  81                 lua_pushnumber(L, 10);
  82         return 1;
  83     }
  84
  85 } // anonymous namespace
  86
  87 namespace luabind { namespace converters
  88 {
  89     yes_t is_user_defined(by_value<int>);
  90
  91     int convert_lua_to_cpp(lua_State* L, by_value<int>, int index)
  92     {
  93         return static_cast<int>(lua_tonumber(L, index));
  94     }
  95
  96     int match_lua_to_cpp(lua_State* L, by_value<int>, int index)
  97     {
  98         if (lua_isnumber(L, index)) return 0; else return -1;
  99     }
 100
 101     void convert_cpp_to_lua(lua_State* L, const  int& v)
 102     {
 103         lua_pushnumber(L, v);
 104     }
 105
 106 }}
 107
 108 void test_free_functions()
 109 {
 110     COUNTER_GUARD(base);
 111
 112         lua_state L;
 113
 114     using namespace luabind;
 115
 116     lua_pushstring(L, "f");
 117     lua_pushcclosure(L, &function_should_never_be_called, 0);
 118     lua_settable(L, LUA_GLOBALSINDEX);
 119
 120     DOSTRING(L, "assert(f() == 10)");
 121
 122     module(L)
 123     [
 124         class_<copy_me>("copy_me")
 125             .def(constructor<>()),
 126
 127         class_<base>("base")
 128             .def("f", &base::f),
 129
 130
 131         def("by_value", &take_by_value),
 132
 133         def("f", (int(*)(int)) &f),
 134         def("f", (int(*)(int, int)) &f),
 135         def("create", &create_base, adopt(return_value)),
 136         def("set_functor", &set_functor)
 137
 138 #if !(BOOST_MSVC < 1300)
 139         ,
 140         def("test_value_converter", &test_value_converter),
 141         def("test_pointer_converter", &test_pointer_converter)
 142 #endif
 143
 144     ];
 145
 146         DOSTRING(L,
 147                 "e = create()\n"
 148                 "assert(e:f() == 5)");
 149
 150         DOSTRING(L, "assert(f(7) == 8)");
 151
 152         DOSTRING(L, "assert(f(3, 9) == 12)");
 153
 154         DOSTRING(L, "set_functor(function(x) return x * 10 end)");
 155
 156         BOOST_CHECK(functor_test(20) == 200);
 157
 158     DOSTRING(L, "set_functor(nil)");
 159
 160     DOSTRING(L, "function lua_create() return create() end");
 161         base* ptr = call_function<base*>(L, "lua_create") [ adopt(result) ];
 162     delete ptr;
 163
 164 #if !(BOOST_MSVC < 1300)
 165     DOSTRING(L, "test_value_converter('converted string')");
 166     DOSTRING(L, "test_pointer_converter('converted string')");
 167 #endif
 168
 169     DOSTRING_EXPECTED(L, "f('incorrect', 'parameters')",
 170                 "no match for function call 'f' with the parameters (string, string)\n"
 171                 "candidates are:\n"
 172                 "f(number)\n"
 173                 "f(number, number)\n");
 174
 175     DOSTRING(L,
 176                 "function functor_test(a) glob = a\n"
 177                 " return 'foobar'\n"
 178                 "end");
 179     functor<std::string> functor_test = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 180
 181         BOOST_CHECK(functor_test(6)[detail::null_type()] == "foobar");
 182     BOOST_CHECK(object_cast<int>(get_globals(L)["glob"]) == 6);
 183
 184     functor<std::string> functor_test2 = object_cast<functor<std::string> >(get_globals(L)["functor_test"]);
 185
 186         BOOST_CHECK(functor_test == functor_test2);
 187 }
 188