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
109
110
111
112
113
114
|
local test_env = require("spec.util.test_env")
local run = test_env.run
local testing_paths = test_env.testing_paths
local copy_dir = test_env.copy_dir
local is_win = test_env.TEST_TARGET_OS == "windows"
local write_file = test_env.write_file
local lfs = require("lfs")
test_env.unload_luarocks()
describe("Luarocks init test #integration", function()
it("LuaRocks init with no arguments", function()
test_env.run_in_tmp(function(tmpdir)
local myproject = tmpdir .. "/myproject"
lfs.mkdir(myproject)
lfs.chdir(myproject)
assert(run.luarocks("init"))
if is_win then
assert.truthy(lfs.attributes(myproject .. "/lua.bat"))
assert.truthy(lfs.attributes(myproject .. "/luarocks.bat"))
else
assert.truthy(lfs.attributes(myproject .. "/lua"))
assert.truthy(lfs.attributes(myproject .. "/luarocks"))
end
assert.truthy(lfs.attributes(myproject .. "/lua_modules"))
assert.truthy(lfs.attributes(myproject .. "/.luarocks"))
assert.truthy(lfs.attributes(myproject .. "/.luarocks/config-" .. test_env.lua_version .. ".lua"))
assert.truthy(lfs.attributes(myproject .. "/.gitignore"))
assert.truthy(lfs.attributes(myproject .. "/myproject-dev-1.rockspec"))
end, finally)
end)
it("LuaRocks init with given arguments", function()
test_env.run_in_tmp(function(tmpdir)
local myproject = tmpdir .. "/myproject"
lfs.mkdir(myproject)
lfs.chdir(myproject)
assert(run.luarocks("init customname 1.0"))
assert.truthy(lfs.attributes(myproject .. "/customname-1.0-1.rockspec"))
end, finally)
end)
it("LuaRocks init in a git repo", function()
test_env.run_in_tmp(function(tmpdir)
local myproject = tmpdir .. "/myproject"
copy_dir(testing_paths.fixtures_dir .. "/git_repo", myproject)
lfs.chdir(myproject)
assert(run.luarocks("init"))
local fd = assert(io.open(myproject .. "/myproject-dev-1.rockspec", "r"))
local content = assert(fd:read("*a"))
assert.truthy(content:find("summary = \"Test repo\""))
assert.truthy(content:find("detailed = .+Test repo.+"))
assert.truthy(content:find("license = \"MIT\""))
fd = assert(io.open(myproject .. "/.gitignore", "r"))
content = assert(fd:read("*a"))
assert.truthy(content:find("/foo"))
assert.truthy(content:find("/lua"))
assert.truthy(content:find("/lua_modules"))
end, finally)
end)
it("LuaRocks init does not autodetect config or dependencies as modules of the package", function()
test_env.run_in_tmp(function(tmpdir)
local myproject = tmpdir .. "/myproject"
lfs.mkdir(myproject)
lfs.chdir(myproject)
assert(run.luarocks("init"))
assert.truthy(lfs.attributes(myproject .. "/.luarocks/config-" .. test_env.lua_version .. ".lua"))
local rockspec_filename = myproject .. "/myproject-dev-1.rockspec"
assert.truthy(lfs.attributes(rockspec_filename))
-- install a package locally
write_file("my_dependency-1.0-1.rockspec", [[
package = "my_dependency"
version = "1.0-1"
source = {
url = "file://]] .. tmpdir:gsub("\\", "/") .. [[/my_dependency.lua"
}
build = {
type = "builtin",
modules = {
my_dependency = "my_dependency.lua"
}
}
]], finally)
write_file(tmpdir .. "/my_dependency.lua", "return {}", finally)
assert.is_true(run.luarocks_bool("build --verbose my_dependency-1.0-1.rockspec"))
assert.truthy(lfs.attributes(myproject .. "/lua_modules/share/lua/" .. test_env.lua_version .."/my_dependency.lua"))
os.remove(rockspec_filename)
os.remove("my_dependency-1.0-1.rockspec")
-- re-run init
assert(run.luarocks("init"))
-- file is recreated
assert.truthy(lfs.attributes(rockspec_filename))
local fd = assert(io.open(rockspec_filename, "rb"))
local rockspec = assert(fd:read("*a"))
fd:close()
assert.no.match("my_dependency", rockspec, 1, true)
assert.no.match("config", rockspec, 1, true)
end, finally)
end)
end)
|