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
|
--- testing Lua 5.1/5.2 compatibility functions
-- these are global side-effects of pl.utils
local utils = require 'pl.utils'
local asserteq = require 'pl.test'.asserteq
local _,lua = require 'pl.app'. lua()
-- utils.execute is a compromise between 5.1 and 5.2 for os.execute changes
-- can we call Lua ?
local ok,code = utils.execute(lua..' -v')
assert(ok == true and code == 0)
-- table.pack is defined for 5.1
local t = table.pack(1,nil,'hello')
asserteq(t.n,3)
assert(t[1] == 1 and t[3] == 'hello')
-- unpack is globally available for 5.2
local a,b = unpack{10,'wow'}
assert(a == 10 and b == 'wow')
-- utils.load() is Lua 5.2 style
chunk = utils.load('return x+y','tmp','t',{x=1,y=2})
asserteq(chunk(),3)
-- package.searchpath for Lua 5.1
-- nota bene: depends on ./?.lua being in the package.path!
-- So we hack it if not found
if not package.path:find '.[/\\]%?' then
package.path = './?.lua;'..package.path
end
asserteq(
package.searchpath('test-fenv',package.path):gsub('\\','/'),
'./test-fenv.lua'
)
-- testing getfenv and setfenv for both interpreters
function test()
return X + Y + Z
end
t = {X = 1, Y = 2, Z = 3}
setfenv(test,t)
assert(test(),6)
t.X = 10
assert(test(),15)
local getfenv,_G = getfenv,_G
function test2()
local env = {x=2}
setfenv(1,env)
asserteq(getfenv(1),env)
asserteq(x,2)
end
test2()
|
