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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
%%% @author Hans-Christian Esperer <hc@hcesperer.org>
%%% @copyright (C) 2015, Hans-Christian Esperer
%%% Licensed under the Apache License, Version 2.0 (the "License");
%%% you may not use this file except in compliance with the License.
%%% You may obtain a copy of the License at
%%%
%%% http://www.apache.org/licenses/LICENSE-2.0
%%%
%%% Unless required by applicable law or agreed to in writing,
%%% software distributed under the License is distributed on an "AS
%%% IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either
%%% express or implied. See the License for the specific language
%%% governing permissions and limitations under the License.
%%%
%%% @doc
%%
%%% @end
%%% Created : 11 Jan 2015 by Hans-Christian Esperer <hc@hcesperer.org>
-module(luerl_funcall_tests).
-include_lib("eunit/include/eunit.hrl").
external_fun_test() ->
State = luerl:init(),
F = fun([A], S) ->
{[A + 2, [A + 3, A + 4]], S}
end,
State1 = luerl:set_table([<<"testFun">>], F, State),
{_, State2} = luerl:do(<<"function test(i)\n local a, b = testFun(i)\n return (a == i + 2), (b[1] == i + 3), (b[2] == i + 4) end">>, State1),
{Res, _State3} = luerl:call_function([test], [2], State2),
[BoolVal, BoolVal2, BoolVal3] = Res,
?assertEqual(true, BoolVal),
?assertEqual(true, BoolVal2),
?assertEqual(true, BoolVal3).
external_nostate_fun_test() ->
State = luerl:init(),
F = fun([A]) ->
[A + 2, [A + 3, A + 4]]
end,
State1 = luerl:set_table([<<"testFun">>], F, State),
Chunk = <<"function test(i)\n"
" local a, b = testFun(i)\n"
" return (a == i + 2), (b[1] == i + 3), (b[2] == i + 4)\n"
"end">>,
{_, State2} = luerl:do(Chunk, State1),
{Res, _State3} = luerl:call_function([test], [2], State2),
[BoolVal, BoolVal2, BoolVal3] = Res,
?assertEqual(true, BoolVal),
?assertEqual(true, BoolVal2),
?assertEqual(true, BoolVal3).
return_lib_function_test() ->
State = luerl:init(),
{_, State1} = luerl:do(<<"function test()\n return string.find end\n">>, State),
{[{M,F,A}], _State2} = luerl:call_function([test], [1], State1),
{Res, _State3} = apply(M, F, [A, [<<"barfooblafasel">>, <<"foo">>], State1]),
?assertEqual([4, 6], Res).
define_fun_in_lua_test() ->
State = luerl:init(),
Chunk = <<"function mkadder(incby)\n"
" return function(i)\n"
" print(\"Call into Luerl!\")\n"
" return i + incby\n"
" end\n"
"end\n">>,
{_, State1} = luerl:do(Chunk, State),
{[Fun], _State2} = luerl:call_function([mkadder], [1], State1),
{[Fun2], _State3} = luerl:call_function([mkadder], [2], State1),
?assertEqual([5], Fun([4])),
?assertEqual([5.0], Fun([4.0])),
?assertEqual([6], Fun2([4])).
define_fun2_in_lua_test() ->
State = luerl:init(),
Chunk = <<"function mklist(numentries)\n"
" return function(entryval)\n"
" local list = {}\n"
" for i = 1,numentries do\n"
" list[i] = entryval\n"
" end\n"
" return list\n"
" end\n"
"end\n">>,
{_, State1} = luerl:do(Chunk, State),
{[Fun], _State2} = luerl:call_function([mklist], [5], State1),
{[Fun2], _State3} = luerl:call_function([mklist], [10], State1),
?assertEqual([[{1,4}, {2,4}, {3,4}, {4,4}, {5,4}]],
Fun([4])),
?assertEqual([[{1,4.0}, {2,4.0}, {3,4.0}, {4,4.0}, {5,4.0}]],
Fun([4.0])),
?assertEqual([[{1,4}, {2,4}, {3,4}, {4,4}, {5,4},
{6,4}, {7,4}, {8,4}, {9,4}, {10,4}]],
Fun2([4])).
newindex_metamethod_test() ->
State = luerl:init(),
Chunk = <<"local t = {}\n"
"local m = setmetatable({}, {__newindex = function (tab, key, value)\n"
"t[key] = value\n"
"end})\n\n"
"m[123] = 456\n"
"return t[123], m[123]">>,
{[TVal, MVal], _State1} = luerl:do(Chunk, State),
?assertEqual(456, TVal),
?assertEqual(nil, MVal).
|
