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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
// Copyright Daniel Wallin 2008. 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)
// This test expands on test_attributes.cpp, testing the new property
// implementation features.
#include "test.hpp"
#include <luabind/luabind.hpp>
struct Base
{};
void test_main(lua_State* L)
{
using namespace luabind;
module(L) [
class_<Base>("Base")
.def(constructor<>())
];
DOSTRING(L,
"class 'Readonly' (Base)\n"
" function Readonly:__init(x)\n"
" Base.__init(self)\n"
" self._x = x\n"
" end\n"
" function Readonly:getX()\n"
" return self._x\n"
" end\n"
" Readonly.x = property(Readonly.getX)\n"
);
DOSTRING(L,
"class 'Readwrite' (Readonly)\n"
" function Readwrite:__init(x)\n"
" Readonly.__init(self, x)\n"
" end\n"
" function Readwrite:setX(x)\n"
" self._x = x\n"
" end\n"
" Readwrite.x = property(Readonly.getX, Readwrite.setX)\n"
);
DOSTRING(L,
"r = Readonly(1)\n"
"assert(r.x == 1)\n"
);
DOSTRING_EXPECTED(L,
"r = Readonly(1)\n"
"r.x = 2\n"
, "property 'x' is read only"
);
DOSTRING(L,
"r = Readwrite(2)\n"
"assert(r.x == 2)\n"
"r.x = 3\n"
"assert(r.x == 3)\n"
"assert(r._x == 3)\n"
);
DOSTRING(L,
"r = Readonly(1)\n"
"r.y = 2\n"
"assert(r.y == 2)\n"
);
}
|
