aboutsummaryrefslogtreecommitdiff
path: root/spec
diff options
context:
space:
mode:
Diffstat (limited to 'spec')
-rw-r--r--spec/build_spec.lua40
-rw-r--r--spec/config_spec.lua16
-rw-r--r--spec/list_spec.lua5
-rw-r--r--spec/quick/build.q122
-rw-r--r--spec/quick/config.q17
-rw-r--r--spec/quick/install.q124
-rw-r--r--spec/quick/list.q10
-rw-r--r--spec/quick_spec.lua20
-rw-r--r--spec/rockspecs_spec.lua2
-rw-r--r--spec/util/quick.lua372
-rw-r--r--spec/util/test_env.lua16
11 files changed, 682 insertions, 62 deletions
diff --git a/spec/build_spec.lua b/spec/build_spec.lua
index 3b33a1aa..5e78aa4f 100644
--- a/spec/build_spec.lua
+++ b/spec/build_spec.lua
@@ -49,45 +49,7 @@ describe("LuaRocks build #integration", function()
49 test_env.setup_specs(extra_rocks) 49 test_env.setup_specs(extra_rocks)
50 end) 50 end)
51 51
52 describe("basic testing set", function()
53 it("invalid", function()
54 assert.is_false(run.luarocks_bool("build invalid"))
55 end)
56
57 it("with no arguments behaves as luarocks make", function()
58 test_env.run_in_tmp(function(tmpdir)
59 write_file("c_module-1.0-1.rockspec", [[
60 package = "c_module"
61 version = "1.0-1"
62 source = {
63 url = "http://example.com/c_module"
64 }
65 build = {
66 type = "builtin",
67 modules = {
68 c_module = { "c_module.c" }
69 }
70 }
71 ]], finally)
72 write_file("c_module.c", c_module_source, finally)
73
74 assert.is_true(run.luarocks_bool("build"))
75 assert.truthy(lfs.attributes(tmpdir .. "/c_module." .. test_env.lib_extension))
76 end, finally)
77 end)
78 end)
79
80 describe("building with flags", function() 52 describe("building with flags", function()
81 it("fails if it doesn't have the permissions to access the specified tree #unix", function()
82 assert.is_false(run.luarocks_bool("build --tree=/usr " .. testing_paths.fixtures_dir .. "/a_rock-1.0.1-rockspec"))
83 assert.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/a_rock/1.0-1/a_rock-1.0-1.rockspec"))
84 end)
85
86 it("fails if it doesn't have the permissions to access the specified tree's parent #unix", function()
87 assert.is_false(run.luarocks_bool("build --tree=/usr/invalid " .. testing_paths.fixtures_dir .. "/a_rock-1.0-1.rockspec"))
88 assert.falsy(lfs.attributes(testing_paths.testing_sys_rocks .. "/a_rock/1.0-1/a_rock-1.0-1.rockspec"))
89 end)
90
91 it("verbose", function() 53 it("verbose", function()
92 test_env.run_in_tmp(function(tmpdir) 54 test_env.run_in_tmp(function(tmpdir)
93 write_file("test-1.0-1.rockspec", [[ 55 write_file("test-1.0-1.rockspec", [[
@@ -429,7 +391,7 @@ describe("LuaRocks build #integration", function()
429 package = "a_rock" 391 package = "a_rock"
430 version = "1.0-1" 392 version = "1.0-1"
431 source = { 393 source = {
432 url = "file://]] .. testing_paths.fixtures_dir .. [[/a_rock.lua" 394 url = "file://]] .. testing_paths.fixtures_dir:gsub("\\", "/") .. [[/a_rock.lua"
433 } 395 }
434 description = { 396 description = {
435 summary = "An example rockspec", 397 summary = "An example rockspec",
diff --git a/spec/config_spec.lua b/spec/config_spec.lua
index 98fcb24c..9615f050 100644
--- a/spec/config_spec.lua
+++ b/spec/config_spec.lua
@@ -115,22 +115,6 @@ describe("LuaRocks config tests #integration", function()
115 assert.is_false(run.luarocks_bool("config --system-config")) 115 assert.is_false(run.luarocks_bool("config --system-config"))
116 end) 116 end)
117 117
118 it("outputs the path of the system config", function()
119 lfs.mkdir(testing_paths.testing_lrprefix)
120 lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/")
121 lfs.mkdir(scdir)
122
123 local sysconfig = io.open(configfile, "w+")
124 sysconfig:write(" ")
125 sysconfig:close()
126 finally(function()
127 os.remove(configfile)
128 end)
129
130 local output = run.luarocks("config --system-config")
131 assert.are.same(configfile, output)
132 end)
133
134 it("fails if system config is invalid", function() 118 it("fails if system config is invalid", function()
135 lfs.mkdir(testing_paths.testing_lrprefix) 119 lfs.mkdir(testing_paths.testing_lrprefix)
136 lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/") 120 lfs.mkdir(testing_paths.testing_lrprefix .. "/etc/")
diff --git a/spec/list_spec.lua b/spec/list_spec.lua
index 54c63bea..4c7fc776 100644
--- a/spec/list_spec.lua
+++ b/spec/list_spec.lua
@@ -38,9 +38,4 @@ describe("luarocks list #integration", function()
38 assert.is.truthy(output:find("say")) 38 assert.is.truthy(output:find("say"))
39 assert.matches("1.0-1 < ", output, 1, true) 39 assert.matches("1.0-1 < ", output, 1, true)
40 end) 40 end)
41
42 it("invalid tree", function()
43 local output = run.luarocks("--tree=/some/invalid/tree list")
44 assert(output:find("Rocks installed for Lua "..test_env.lua_version.." in /some/invalid/tree", 1, true))
45 end)
46end) 41end)
diff --git a/spec/quick/build.q b/spec/quick/build.q
new file mode 100644
index 00000000..c6ca433c
--- /dev/null
+++ b/spec/quick/build.q
@@ -0,0 +1,122 @@
1TEST: luarocks build: fails when given invalid argument
2RUN: luarocks build aoesuthaoeusahtoeustnaou --only-server=localhost
3EXIT: 1
4STDERR:
5--------------------------------------------------------------------------------
6Could not find a result named aoesuthaoeusahtoeustnaou
7--------------------------------------------------------------------------------
8
9
10
11================================================================================
12TEST: luarocks build: with no arguments behaves as luarocks make
13
14FILE: c_module-1.0-1.rockspec
15--------------------------------------------------------------------------------
16package = "c_module"
17version = "1.0-1"
18source = {
19 url = "http://example.com/c_module"
20}
21build = {
22 type = "builtin",
23 modules = {
24 c_module = { "c_module.c" }
25 }
26}
27--------------------------------------------------------------------------------
28FILE: c_module.c
29--------------------------------------------------------------------------------
30#include <lua.h>
31#include <lauxlib.h>
32
33int luaopen_c_module(lua_State* L) {
34 lua_newtable(L);
35 lua_pushinteger(L, 1);
36 lua_setfield(L, -2, "c_module");
37 return 1;
38}
39--------------------------------------------------------------------------------
40RUN: luarocks build
41EXISTS: c_module.%{lib_extension}
42
43
44
45================================================================================
46TEST: luarocks build: defaults to builtin type
47
48FILE: a_rock-1.0-1.rockspec
49--------------------------------------------------------------------------------
50rockspec_format = "3.0"
51package = "a_rock"
52version = "1.0-1"
53source = {
54 url = "file://%{url(%{fixtures_dir})}/a_rock.lua"
55}
56description = {
57 summary = "An example rockspec",
58}
59dependencies = {
60 "lua >= 5.1"
61}
62build = {
63 modules = {
64 build = "a_rock.lua"
65 },
66}
67--------------------------------------------------------------------------------
68RUN: luarocks build a_rock-1.0-1.rockspec
69RUN: luarocks show a_rock
70STDOUT:
71--------------------------------------------------------------------------------
72a_rock 1.0
73--------------------------------------------------------------------------------
74
75
76================================================================================
77TEST: luarocks build: fails if no permissions to access the specified tree #unix
78
79RUN: luarocks build --tree=/usr ./a_rock-1.0.1-rockspec
80EXIT: 4
81STDERR:
82--------------------------------------------------------------------------------
83requires exclusive access
84use --force-lock
85--------------------------------------------------------------------------------
86
87NOT_EXISTS: %{testing_sys_rocks}/a_rock/1.0-1/a_rock-1.0-1.rockspec
88
89RUN: luarocks build --tree=/usr ./a_rock-1.0.1-rockspec --force-lock
90EXIT: 4
91STDERR:
92--------------------------------------------------------------------------------
93requires exclusive access
94failed to force the lock
95--------------------------------------------------------------------------------
96
97NOT_EXISTS: %{testing_sys_rocks}/a_rock/1.0-1/a_rock-1.0-1.rockspec
98
99
100
101================================================================================
102TEST: luarocks build: fails if no permissions to access the parent #unix
103
104RUN: luarocks build --tree=/usr/invalid ./a_rock-1.0.1-rockspec
105EXIT: 4
106STDERR:
107--------------------------------------------------------------------------------
108requires exclusive access
109use --force-lock
110--------------------------------------------------------------------------------
111
112NOT_EXISTS: %{testing_sys_rocks}/a_rock/1.0-1/a_rock-1.0-1.rockspec
113
114RUN: luarocks build --tree=/usr/invalid ./a_rock-1.0.1-rockspec --force-lock
115EXIT: 4
116STDERR:
117--------------------------------------------------------------------------------
118requires exclusive access
119failed to force the lock
120--------------------------------------------------------------------------------
121
122NOT_EXISTS: %{testing_sys_rocks}/a_rock/1.0-1/a_rock-1.0-1.rockspec
diff --git a/spec/quick/config.q b/spec/quick/config.q
new file mode 100644
index 00000000..ec338f98
--- /dev/null
+++ b/spec/quick/config.q
@@ -0,0 +1,17 @@
1================================================================================
2TEST: luarocks config --system-config shows the path of the system config
3
4MKDIR: %{testing_lrprefix}/etc/luarocks
5
6FILE: %{testing_lrprefix}/etc/luarocks/config-%{LUA_VERSION}.lua
7--------------------------------------------------------------------------------
8
9--------------------------------------------------------------------------------
10
11RUN: luarocks config --system-config
12
13STDOUT:
14--------------------------------------------------------------------------------
15%{testing_lrprefix}/etc/luarocks/config-%{LUA_VERSION}.lua
16--------------------------------------------------------------------------------
17#TODO: ^^^ %{path()}
diff --git a/spec/quick/install.q b/spec/quick/install.q
new file mode 100644
index 00000000..2bccf2f1
--- /dev/null
+++ b/spec/quick/install.q
@@ -0,0 +1,124 @@
1===============================================================================
2TEST: luarocks install: handle versioned modules when installing another version with --keep #268
3
4FILE: myrock-1.0-1.rockspec
5--------------------------------------------------------------------------------
6rockspec_format = "3.0"
7package = "myrock"
8version = "1.0-1"
9source = {
10 url = "file://%{url(tmpdir)}/rock.lua"
11}
12build = {
13 modules = { rock = "rock.lua" }
14}
15--------------------------------------------------------------------------------
16
17FILE: myrock-2.0-1.rockspec
18--------------------------------------------------------------------------------
19rockspec_format = "3.0"
20package = "myrock"
21version = "2.0-1"
22source = {
23 url = "file://%{url(tmpdir)}/rock.lua"
24}
25build = {
26 modules = { rock = "rock.lua" }
27}
28--------------------------------------------------------------------------------
29
30FILE: rock.lua
31--------------------------------------------------------------------------------
32return "hello"
33--------------------------------------------------------------------------------
34
35RUN: luarocks build myrock-1.0-1.rockspec
36RUN: luarocks pack myrock
37RUN: luarocks remove myrock
38
39RUN: luarocks build myrock-2.0-1.rockspec
40RUN: luarocks pack myrock
41RUN: luarocks remove myrock
42
43RUN: luarocks install ./myrock-2.0-1.all.rock
44
45EXISTS: %{testing_sys_tree}/share/lua/%{LUA_VERSION}/rock.lua
46
47RUN: luarocks install ./myrock-1.0-1.all.rock --keep
48
49EXISTS: %{testing_sys_tree}/share/lua/%{LUA_VERSION}/rock.lua
50EXISTS: %{testing_sys_tree}/share/lua/%{LUA_VERSION}/myrock_1_0_1-rock.lua
51
52RUN: luarocks install ./myrock-2.0-1.all.rock
53
54EXISTS: %{testing_sys_tree}/share/lua/%{LUA_VERSION}/rock.lua
55NOT_EXISTS: %{testing_sys_tree}/share/lua/%{LUA_VERSION}/myrock_1_0_1-rock.lua
56
57
58
59===============================================================================
60TEST: luarocks install: handle versioned libraries when installing another version with --keep #268
61
62FILE: myrock-1.0-1.rockspec
63--------------------------------------------------------------------------------
64rockspec_format = "3.0"
65package = "myrock"
66version = "1.0-1"
67source = {
68 url = "file://%{url(tmpdir)}/c_module.c"
69}
70build = {
71 modules = {
72 c_module = { "c_module.c" }
73 }
74}
75--------------------------------------------------------------------------------
76
77FILE: myrock-2.0-1.rockspec
78--------------------------------------------------------------------------------
79rockspec_format = "3.0"
80package = "myrock"
81version = "2.0-1"
82source = {
83 url = "file://%{url(tmpdir)}/c_module.c"
84}
85build = {
86 modules = {
87 c_module = { "c_module.c" }
88 }
89}
90--------------------------------------------------------------------------------
91FILE: c_module.c
92--------------------------------------------------------------------------------
93#include <lua.h>
94#include <lauxlib.h>
95
96int luaopen_c_module(lua_State* L) {
97 lua_newtable(L);
98 lua_pushinteger(L, 1);
99 lua_setfield(L, -2, "c_module");
100 return 1;
101}
102--------------------------------------------------------------------------------
103
104RUN: luarocks build myrock-1.0-1.rockspec
105RUN: luarocks pack myrock
106RUN: luarocks remove myrock
107
108RUN: luarocks build myrock-2.0-1.rockspec
109RUN: luarocks pack myrock
110RUN: luarocks remove myrock
111
112RUN: luarocks install ./myrock-2.0-1.%{platform}.rock
113
114EXISTS: %{testing_sys_tree}/lib/lua/%{LUA_VERSION}/c_module.%{lib_extension}
115
116RUN: luarocks install ./myrock-1.0-1.%{platform}.rock --keep
117
118EXISTS: %{testing_sys_tree}/lib/lua/%{LUA_VERSION}/c_module.%{lib_extension}
119EXISTS: %{testing_sys_tree}/lib/lua/%{LUA_VERSION}/myrock_1_0_1-c_module.%{lib_extension}
120
121RUN: luarocks install ./myrock-2.0-1.%{platform}.rock
122
123EXISTS: %{testing_sys_tree}/lib/lua/%{LUA_VERSION}/c_module.%{lib_extension}
124NOT_EXISTS: %{testing_sys_tree}/lib/lua/%{LUA_VERSION}/myrock_1_0_1-c_module.%{lib_extension}
diff --git a/spec/quick/list.q b/spec/quick/list.q
new file mode 100644
index 00000000..7cbdee43
--- /dev/null
+++ b/spec/quick/list.q
@@ -0,0 +1,10 @@
1================================================================================
2TEST: luarocks list: invalid tree
3
4RUN: luarocks --tree=%{path(/some/invalid/tree)} list
5
6STDOUT:
7--------------------------------------------------------------------------------
8Rocks installed for Lua %{lua_version} in /some/invalid/tree
9--------------------------------------------------------------------------------
10#TODO: ^^^ %{path()}
diff --git a/spec/quick_spec.lua b/spec/quick_spec.lua
new file mode 100644
index 00000000..8b8206cf
--- /dev/null
+++ b/spec/quick_spec.lua
@@ -0,0 +1,20 @@
1local lfs = require("lfs")
2local test_env = require("spec.util.test_env")
3local quick = require("spec.util.quick")
4
5describe("quick tests: #quick", function()
6 before_each(function()
7 test_env.setup_specs()
8 end)
9
10 local spec_quick = test_env.testing_paths.spec_dir .. "/quick"
11 for f in lfs.dir(spec_quick) do
12 if f:match("%.q$") then
13 local tests = quick.compile(spec_quick .. "/" .. f, getfenv and getfenv() or _ENV)
14 for _, t in ipairs(tests) do
15 it(t.name, t.fn)
16 end
17 end
18 end
19end)
20
diff --git a/spec/rockspecs_spec.lua b/spec/rockspecs_spec.lua
index 76b33f65..5b0573fe 100644
--- a/spec/rockspecs_spec.lua
+++ b/spec/rockspecs_spec.lua
@@ -4,7 +4,7 @@ local cfg = require("luarocks.core.cfg")
4local test_env = require("spec.util.test_env") 4local test_env = require("spec.util.test_env")
5local lfs = require("lfs") 5local lfs = require("lfs")
6 6
7describe("luarocks.rockspecs", function() 7describe("luarocks.rockspecs #unit", function()
8 8
9 setup(function() 9 setup(function()
10 cfg.init() 10 cfg.init()
diff --git a/spec/util/quick.lua b/spec/util/quick.lua
new file mode 100644
index 00000000..9c88b719
--- /dev/null
+++ b/spec/util/quick.lua
@@ -0,0 +1,372 @@
1local quick = {}
2
3local dir_sep = package.config:sub(1, 1)
4
5local cfg = require("luarocks.core.cfg")
6local dir = require("luarocks.dir")
7local fs = require("luarocks.fs")
8local versions = require("spec.util.versions")
9cfg.init()
10fs.init()
11
12local function native_slash(pathname)
13 return (pathname:gsub("[/\\]", dir_sep))
14end
15
16local function parse_cmd(line)
17 local cmd, arg = line:match("^%s*([A-Z_]+):%s*(.*)%s*$")
18 return cmd, arg
19end
20
21local function is_blank(line)
22 return not not line:match("^%s*$")
23end
24
25local function is_hr(line)
26 return not not line:match("^%-%-%-%-%-")
27end
28
29local function parse(filename)
30 local fd = assert(io.open(filename, "r"))
31 local input = assert(fd:read("*a"))
32 fd:close()
33
34 local tests = {}
35
36 local cur_line = 0
37 local cur_test
38 local cur_op
39 local cur_block
40 local cur_block_name
41 local stack = { "start" }
42
43 local function start_test(arg)
44 cur_test = {
45 name = arg,
46 ops = {},
47 }
48 cur_op = nil
49 table.insert(tests, cur_test)
50 table.insert(stack, "test")
51 end
52
53 local function fail(msg)
54 io.stderr:write("Error reading " .. filename .. ":" .. cur_line .. ": " .. msg .. "\n")
55 os.exit(1)
56 end
57
58 local function bool_arg(cmd, cur_block, field, arg)
59 if arg ~= "true" and arg ~= "false" then
60 fail(cmd .. " argument must be 'true' or 'false'")
61 end
62 cur_block[field] = (arg == "true")
63 end
64
65 local test_env = require("spec.util.test_env")
66 local function expand_vars(line)
67 if not line then
68 return nil
69 end
70 return (line:gsub("%%%b{}", function(var)
71 var = var:sub(3, -2)
72 local fn, fnarg = var:match("^%s*([a-z_]+)%s*%(%s*([^)]+)%s*%)%s*$")
73
74 local value
75 if var == "tmpdir" then
76 value = "%{tmpdir}"
77 elseif var == "url(tmpdir)" then
78 value = "%{url(tmpdir)}"
79 elseif fn == "url" then
80 value = expand_vars(fnarg)
81 value = value:gsub("\\", "/")
82 elseif fn == "path" then
83 value = expand_vars(fnarg)
84 value = value:gsub("[/\\]", dir_sep)
85 elseif fn == "version" then
86 value = versions[fnarg:lower()] or ""
87 elseif fn == "version_" then
88 value = (versions[fnarg:lower()] or ""):gsub("[%.%-]", "_")
89 else
90 value = test_env.testing_paths[var]
91 or test_env.env_variables[var]
92 or test_env[var]
93 or ""
94 end
95
96 return value
97 end))
98 end
99
100 for line in input:gmatch("[^\n]*") do
101 cur_line = cur_line + 1
102
103 local state = stack[#stack]
104 if state == "start" then
105 local cmd, arg = parse_cmd(line)
106 if cmd == "TEST" then
107 start_test(arg)
108 elseif cmd then
109 fail("expected TEST, got " .. cmd)
110 elseif is_blank(line) then
111 -- skip blank lines and arbitrary text,
112 -- which is interpreted as a comment
113 end
114 elseif state == "test" then
115 local cmd, arg = parse_cmd(line)
116 arg = expand_vars(arg)
117 if cmd == "FILE" then
118 cur_op = {
119 op = "FILE",
120 name = arg,
121 data = {},
122 }
123 table.insert(cur_test.ops, cur_op)
124 cur_block = cur_op
125 cur_block_name = "FILE"
126 table.insert(stack, "block start")
127 elseif cmd == "RUN" then
128 local program, args = arg:match("([^ ]+)%s*(.*)$")
129 if not program then
130 fail("expected a program argument in RUN")
131 end
132
133 cur_op = {
134 op = "RUN",
135 exit = 0,
136 exit_line = cur_line,
137 line = cur_line,
138 program = program,
139 args = args,
140 }
141 table.insert(cur_test.ops, cur_op)
142 elseif cmd == "EXISTS" then
143 cur_op = {
144 op = "EXISTS",
145 file = dir.normalize(arg),
146 }
147 table.insert(cur_test.ops, cur_op)
148 elseif cmd == "NOT_EXISTS" then
149 cur_op = {
150 op = "NOT_EXISTS",
151 file = dir.normalize(arg),
152 }
153 table.insert(cur_test.ops, cur_op)
154 elseif cmd == "MKDIR" then
155 cur_op = {
156 op = "MKDIR",
157 file = dir.normalize(arg),
158 line = cur_line,
159 }
160 table.insert(cur_test.ops, cur_op)
161 elseif cmd == "EXIT" then
162 if not cur_op or cur_op.op ~= "RUN" then
163 fail("EXIT must be given in the context of a RUN")
164 end
165
166 local code = tonumber(arg)
167 if not code and not (code >= 0 and code <= 128) then
168 fail("EXIT code must be a number in the range 0-128, got " .. arg)
169 end
170
171 cur_op.exit = code
172 cur_op.exit_line = cur_line
173 elseif cmd == "STDERR" then
174 if not cur_op or cur_op.op ~= "RUN" then
175 fail("STDERR must be given in the context of a RUN")
176 end
177 if cur_op.stderr then
178 fail("STDERR was already declared")
179 end
180
181 cur_op.stderr = {
182 data = {}
183 }
184 cur_block = cur_op.stderr
185 cur_block_name = "STDERR"
186 table.insert(stack, "block start")
187 elseif cmd == "STDOUT" then
188 if not cur_op or cur_op.op ~= "RUN" then
189 fail("STDOUT must be given in the context of a RUN")
190 end
191 if cur_op.stdout then
192 fail("STDOUT was already declared")
193 end
194
195 cur_op.stdout = {
196 data = {}
197 }
198 cur_block = cur_op.stdout
199 cur_block_name = "STDOUT"
200 table.insert(stack, "block start")
201 elseif cmd == "TEST" then
202 table.remove(stack)
203 start_test(arg)
204 elseif cmd then
205 fail("expected a command, got " .. cmd)
206 else
207 -- skip blank lines and arbitrary text,
208 -- which is interpreted as a comment
209 end
210 elseif state == "block start" then
211 local cmd, arg = parse_cmd(line)
212 if is_blank(line) then
213 -- skip
214 elseif is_hr(line) then
215 stack[#stack] = "block data"
216 cur_block.start = cur_line
217 elseif cmd == "PLAIN" then
218 bool_arg("PLAIN", cur_block, "plain", arg)
219 else
220 fail("expected '-----' to start " .. cur_block_name .. " block")
221 end
222 elseif state == "block data" then
223 if is_hr(line) then
224 cur_block = nil
225 table.remove(stack)
226 else
227 if not cur_block.plain then
228 line = expand_vars(line)
229 end
230 table.insert(cur_block.data, line)
231 end
232 end
233 end
234
235 return tests
236end
237
238function quick.compile(filename, env)
239 local tests = parse(filename)
240
241-- local dev_null = (package.config:sub(1, 1) == "/")
242-- and "/dev/null"
243-- or "NUL"
244
245 local cmd_helpers = {
246 ["luarocks"] = "luarocks_cmd",
247 ["luarocks-admin"] = "luarocks_admin_cmd",
248 }
249
250 for tn, t in ipairs(tests) do
251 local code = {}
252 local function write(...)
253 table.insert(code, table.concat({...}))
254 end
255
256 write([=[ local test_env = require("spec.util.test_env") ]=])
257 write([=[ local lfs = require("lfs") ]=])
258 write([=[ local fs = require("lfs") ]=])
259 write([=[ local dir_sep = package.config:sub(1, 1) ]=])
260 write([=[ local luarocks_cmd = test_env.execute_helper(test_env.Q(test_env.testing_paths.lua) .. " " .. test_env.testing_paths.src_dir .. "/bin/luarocks", false, test_env.env_variables):sub(1, -5) ]=])
261 write([=[ local luarocks_admin_cmd = test_env.execute_helper(test_env.Q(test_env.testing_paths.lua) .. " " .. test_env.testing_paths.src_dir .. "/bin/luarocks-admin", false, test_env.env_variables):sub(1, -5) ]=])
262
263 write(([=[ local function error_message(line, msg, input) ]=]))
264 write(([=[ local out = {"\n\n", %q, ":", line, ": ", msg} ]=]):format(filename))
265 write(([=[ if input then ]=]))
266 write(([=[ if input:match("\n") then ]=]))
267 write(([=[ table.insert(out, "\n") ]=]))
268 write(([=[ table.insert(out, ("-"):rep(40)) ]=]))
269 write(([=[ table.insert(out, "\n") ]=]))
270 write(([=[ table.insert(out, input) ]=]))
271 write(([=[ table.insert(out, ("-"):rep(40)) ]=]))
272 write(([=[ table.insert(out, "\n") ]=]))
273 write(([=[ else ]=]))
274 write(([=[ table.insert(out, ": ") ]=]))
275 write(([=[ table.insert(out, input) ]=]))
276 write(([=[ end ]=]))
277 write(([=[ end ]=]))
278 write(([=[ return table.concat(out) ]=]))
279 write(([=[ end ]=]))
280
281 write([=[ return function() ]=])
282 write([=[ test_env.run_in_tmp(function(tmpdir) ]=])
283 write([=[ local function handle_tmpdir(s) ]=])
284 write([=[ return (s:gsub("%%{url%(tmpdir%)}", (tmpdir:gsub("\\", "/"))) ]=])
285 write([=[ :gsub("%%{tmpdir}", (tmpdir:gsub("[\\/]", dir_sep)))) ]=])
286 write([=[ end ]=])
287 for _, op in ipairs(t.ops) do
288 if op.op == "FILE" then
289 write([=[ test_env.write_file(handle_tmpdir("]=], op.name, [=["), handle_tmpdir([=====[ ]=])
290 for _, line in ipairs(op.data) do
291 write(line)
292 end
293 write([=[ ]=====]), finally) ]=])
294 elseif op.op == "EXISTS" then
295 write(([=[ assert.truthy(lfs.attributes(%q)) ]=]):format(op.file))
296 elseif op.op == "NOT_EXISTS" then
297 write(([=[ assert.falsy(lfs.attributes(%q)) ]=]):format(op.file))
298 elseif op.op == "MKDIR" then
299 local bits = {}
300 op.file = native_slash(op.file)
301 if op.file:sub(1, 1) == dir_sep then bits[1] = "" end
302 write([=[ local ok, err ]=])
303 for p in op.file:gmatch("[^" .. dir_sep .. "]+") do
304 table.insert(bits, p)
305 local d = table.concat(bits, dir_sep)
306 write(([=[ ok, err = lfs.mkdir(%q) ]=]):format(d, d))
307 end
308 write(([=[ assert.truthy((lfs.attributes(%q) or {}).mode == "directory", error_message(%d, "MKDIR failed: " .. %q .. " - " .. (err or "") )) ]=]):format(op.file, op.line, op.file))
309 elseif op.op == "RUN" then
310 local cmd_helper = cmd_helpers[op.program] or op.program
311 local redirs = " 1>stdout.txt 2>stderr.txt "
312 write(([=[ local ok, _, code = os.execute(%s .. " " .. %q .. %q) ]=]):format(cmd_helper, op.args, redirs))
313 write([=[ if type(ok) == "number" then code = (ok >= 256 and ok / 256 or ok) end ]=])
314
315 write([=[ local fd_stderr = assert(io.open("stderr.txt", "r")) ]=])
316 write([=[ local stderr_data = fd_stderr:read("*a") ]=])
317 write([=[ fd_stderr:close() ]=])
318
319 write([=[ if stderr_data:match("please report") then ]=])
320 write(([=[ assert(false, error_message(%d, "RUN crashed: ", stderr_data)) ]=]):format(op.line))
321 write([=[ end ]=])
322
323 if op.stdout then
324 write([=[ local fd_stdout = assert(io.open("stdout.txt", "r")) ]=])
325 write([=[ local stdout_data = fd_stdout:read("*a") ]=])
326 write([=[ fd_stdout:close() ]=])
327
328 write([=[ do ]=])
329 write([=[ local block_at = 1 ]=])
330 write([=[ local s, e, line ]=])
331 for i, line in ipairs(op.stdout.data) do
332 write(([=[ line = %q ]=]):format(line))
333 write(([=[ s, e = string.find(stdout_data, line, block_at, true) ]=]))
334 write(([=[ assert(s, error_message(%d, "STDOUT did not match: " .. line, stdout_data)) ]=]):format(op.stdout.start + i))
335 write(([=[ block_at = e + 1 ]=]):format(i))
336 end
337 write([=[ end ]=])
338 end
339
340 if op.stderr then
341 write([=[ do ]=])
342 write([=[ local block_at = 1 ]=])
343 write([=[ local s, e, line ]=])
344 for i, line in ipairs(op.stderr.data) do
345 write(([=[ line = %q ]=]):format(line))
346 write(([=[ s, e = string.find(stderr_data, line, block_at, true) ]=]))
347 write(([=[ assert(s, error_message(%d, "STDERR did not match: " .. line, stderr_data)) ]=]):format(op.stderr.start + i))
348 write(([=[ block_at = e + 1 ]=]):format(i))
349 end
350 write([=[ end ]=])
351 end
352
353 if op.exit then
354 write(([=[ assert.same(%d, code, error_message(%d, "EXIT did not match: " .. %d, stderr_data)) ]=]):format(op.exit, op.exit_line, op.exit))
355 end
356 end
357 end
358 write([=[ end) ]=])
359 write([=[ end ]=])
360
361 local program = table.concat(code, "\n")
362 local chunk = assert(load(program, "@" .. filename .. ": test " .. tn, "t", env or _ENV))
363 if env and setfenv then
364 setfenv(chunk, env)
365 end
366 t.fn = chunk()
367 end
368
369 return tests
370end
371
372return quick
diff --git a/spec/util/test_env.lua b/spec/util/test_env.lua
index f9f83b8c..dcda6311 100644
--- a/spec/util/test_env.lua
+++ b/spec/util/test_env.lua
@@ -715,6 +715,7 @@ local function create_paths(luaversion_full)
715 testing_paths.util_dir = base_dir .. "/spec/util" 715 testing_paths.util_dir = base_dir .. "/spec/util"
716 testing_paths.testrun_dir = base_dir .. "/testrun" 716 testing_paths.testrun_dir = base_dir .. "/testrun"
717 testing_paths.src_dir = base_dir .. "/src" 717 testing_paths.src_dir = base_dir .. "/src"
718 testing_paths.spec_dir = base_dir .. "/spec"
718 testing_paths.testing_lrprefix = testing_paths.testrun_dir .. "/testing_lrprefix-" .. luaversion_full 719 testing_paths.testing_lrprefix = testing_paths.testrun_dir .. "/testing_lrprefix-" .. luaversion_full
719 testing_paths.testing_tree = testing_paths.testrun_dir .. "/testing-" .. luaversion_full 720 testing_paths.testing_tree = testing_paths.testrun_dir .. "/testing-" .. luaversion_full
720 testing_paths.testing_tree_copy = testing_paths.testrun_dir .. "/testing_copy-" .. luaversion_full 721 testing_paths.testing_tree_copy = testing_paths.testrun_dir .. "/testing_copy-" .. luaversion_full
@@ -753,6 +754,16 @@ function test_env.unload_luarocks()
753 end 754 end
754end 755end
755 756
757local function get_luarocks_platform(variables)
758 local print_arch_script = "\"" ..
759 "cfg = require('luarocks.core.cfg');" ..
760 "cfg.init();" ..
761 "print(cfg.arch)" ..
762 "\""
763 local cmd = test_env.testing_paths.lua .. " -e " .. print_arch_script
764 return execute_output(cmd, false, variables)
765end
766
756--- Function for initial setup of environment, variables, md5sums for spec files 767--- Function for initial setup of environment, variables, md5sums for spec files
757function test_env.setup_specs(extra_rocks) 768function test_env.setup_specs(extra_rocks)
758 -- if global variable about successful creation of testing environment doesn't exist, build environment 769 -- if global variable about successful creation of testing environment doesn't exist, build environment
@@ -770,11 +781,12 @@ function test_env.setup_specs(extra_rocks)
770 781
771 -- preload before meddling with package.path 782 -- preload before meddling with package.path
772 require("spec.util.git_repo") 783 require("spec.util.git_repo")
784 require("spec.util.quick")
773 785
774 package.path = test_env.env_variables.LUA_PATH 786 package.path = test_env.env_variables.LUA_PATH
775 package.cpath = test_env.env_variables.LUA_CPATH 787 package.cpath = test_env.env_variables.LUA_CPATH
776 788
777 test_env.platform = execute_output(test_env.testing_paths.lua .. " -e \"cfg = require('luarocks.core.cfg'); cfg.init(); print(cfg.arch)\"", false, test_env.env_variables) 789 test_env.platform = get_luarocks_platform(test_env.env_variables)
778 test_env.wrapper_extension = test_env.TEST_TARGET_OS == "windows" and ".bat" or "" 790 test_env.wrapper_extension = test_env.TEST_TARGET_OS == "windows" and ".bat" or ""
779 test_env.md5sums = create_md5sums(test_env.testing_paths) 791 test_env.md5sums = create_md5sums(test_env.testing_paths)
780 test_env.setup_done = true 792 test_env.setup_done = true
@@ -1104,5 +1116,7 @@ test_env.env_variables = create_env(test_env.testing_paths)
1104test_env.run = make_run_functions() 1116test_env.run = make_run_functions()
1105test_env.exists = exists 1117test_env.exists = exists
1106test_env.V = V 1118test_env.V = V
1119test_env.Q = Q
1120test_env.platform = get_luarocks_platform(test_env.env_variables)
1107 1121
1108return test_env 1122return test_env
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2025-12-31 18:13:34 +0000