1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
|
// Copyright Daniel Wallin 2009. Use, modification and distribution is
// subject to the Boost Software License, Version 1.0. (See accompanying
// file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)
#include "test.hpp"
#include <luabind/luabind.hpp>
#include <luabind/class_info.hpp>
struct X
{
void f()
{}
int x;
int y;
};
void test_main(lua_State* L)
{
using namespace luabind;
bind_class_info(L);
module(L) [
class_<X>("X")
.def(constructor<>())
.def("f", &X::f)
.def_readonly("x", &X::x)
.def_readonly("y", &X::y)
];
DOSTRING(L,
"x = X()\n"
"info = class_info(x)\n"
"assert(info.name == 'X')\n"
"assert(info.methods['f'] == x.f)\n"
"assert(info.methods['__init'] == x.__init)\n"
"assert(info.attributes[1] == 'y')\n"
"assert(info.attributes[2] == 'x')\n"
"info = class_info(2)\n"
"assert(info.name == 'number')\n"
"assert(#info.methods == 0)\n"
"assert(#info.attributes == 0)\n"
"names = class_names()\n"
"assert(type(names) == 'table')\n"
"assert(#names == 2)\n"
"assert(names[1] == 'X' or names[2] == 'X')\n"
"assert(names[1] == 'class_info_data' or names[2] == 'class_info_data')\n"
);
}
|
