Support --pin and --only-deps together (#1222)

2 files changed, 39 insertions, 0 deletions

diff --git a/spec/build_spec.lua b/spec/build_spec.lua
index 4843ed73..7d18ae4c 100644
--- a/spec/build_spec.lua
+++ b/spec/build_spec.lua
@@ -237,6 +237,42 @@ describe("LuaRocks build #integration", function()
          end)
       end)
 
+      it("supports --pin --only-deps #pinning", function()
+         test_env.run_in_tmp(function(tmpdir)
+            write_file("test-1.0-1.rockspec", [[
+               package = "test"
+               version = "1.0-1"
+               source = {
+                  url = "file://]] .. tmpdir:gsub("\\", "/") .. [[/test.lua"
+               }
+               dependencies = {
+                  "a_rock >= 0.8"
+               }
+               build = {
+                  type = "builtin",
+                  modules = {
+                     test = "test.lua"
+                  }
+               }
+            ]], finally)
+            write_file("test.lua", "return {}", finally)
+
+            assert.is_true(run.luarocks_bool("build --server=" .. testing_paths.fixtures_dir .. "/a_repo test-1.0-1.rockspec --pin --only-deps --tree=lua_modules"))
+            assert.is.falsy(lfs.attributes("./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/test/1.0-1/test-1.0-1.rockspec"))
+            assert.is.truthy(lfs.attributes("./lua_modules/lib/luarocks/rocks-" .. test_env.lua_version .. "/a_rock/2.0-1/a_rock-2.0-1.rockspec"))
+            assert.is.truthy(lfs.attributes("./luarocks.lock"))
+            local lockfilename = "./luarocks.lock"
+            assert.is.truthy(lfs.attributes(lockfilename))
+            local lockdata = loadfile(lockfilename)()
+            assert.same({
+               dependencies = {
+                  ["a_rock"] = "2.0-1",
+                  ["lua"] = test_env.lua_version .. "-1",
+               }
+            }, lockdata)
+         end)
+      end)
+
       it("lmathx deps partial match", function()
          assert.is_true(run.luarocks_bool("build lmathx"))
 
diff --git a/src/luarocks/build.lua b/src/luarocks/build.lua
index f11edb6f..c410fbde 100644
--- a/src/luarocks/build.lua
+++ b/src/luarocks/build.lua
@@ -383,6 +383,9 @@ function build.build_rockspec(rockspec, opts)
 
    local name, version = rockspec.name, rockspec.version
    if opts.build_only_deps then
+      if opts.pin then
+         deplocks.write_file()
+      end
       return name, version
    end