1 files changed, 55 insertions, 1 deletions

diff --git a/spec/pack_spec.lua b/spec/pack_spec.lua
index 55071839..beab7e8a 100644
--- a/spec/pack_spec.lua
+++ b/spec/pack_spec.lua
@@ -2,6 +2,7 @@ local test_env = require("spec.util.test_env")
 local lfs = require("lfs")
 local run = test_env.run
 local testing_paths = test_env.testing_paths
+local write_file = test_env.write_file
 
 test_env.unload_luarocks()
 
@@ -80,7 +81,60 @@ describe("luarocks pack #integration", function()
          assert.is_truthy(lfs.attributes("a_rock-1.0-1.src.rock"))
       end)
 
-      it("fails packing a rockspec into a .src.rock dir if doesn't exist", function()
+      it("can pack a rockspec with a bare file:// in the url", 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 1.0"
+               }
+               build = {
+                  type = "builtin",
+                  modules = {
+                     test = "test.lua"
+                  }
+               }
+            ]], finally)
+            write_file("test.lua", "return {}", finally)
+
+            assert.is.truthy(run.luarocks_bool("pack test-1.0-1.rockspec"))
+            assert.is.truthy(lfs.attributes("test-1.0-1.src.rock"))
+
+            assert.is.truthy(run.luarocks_bool("unpack test-1.0-1.src.rock"))
+            assert.is.truthy(lfs.attributes("test-1.0-1/test.lua"))
+         end, finally)
+      end)
+
+      it("can pack a rockspec with a bare file:// fails if doesn't exist", 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_doesnt_exist.lua"
+               }
+               dependencies = {
+                  "a_rock 1.0"
+               }
+               build = {
+                  type = "builtin",
+                  modules = {
+                     test = "test.lua"
+                  }
+               }
+            ]], finally)
+
+            assert.is.falsy(run.luarocks_bool("pack test-1.0-1.rockspec"))
+            assert.is.falsy(lfs.attributes("test-1.0-1.src.rock"))
+         end, finally)
+      end)
+
+
+      it("fails packing a rockspec into a .src.rock if dir doesn't exist", function()
          local output = run.luarocks("pack " .. testing_paths.fixtures_dir .. "/bad_pack-0.1-1.rockspec")
          assert.match("Directory invalid_dir not found", output)
          assert.is_falsy(lfs.attributes("bad_pack-0.1-1.src.rock"))