Test success of patching in `unpack`. Closes #316.

Includes test cases for the test suite! Yay!

1 files changed, 4 insertions, 2 deletions

diff --git a/src/luarocks/unpack.lua b/src/luarocks/unpack.lua
index 9204e265..a889bac5 100644
--- a/src/luarocks/unpack.lua
+++ b/src/luarocks/unpack.lua
@@ -43,9 +43,10 @@ local function unpack_rockspec(rockspec_file, dir_name)
    end
    ok, err = fs.change_dir(sources_dir)
    if not ok then return nil, err end
-   build.apply_patches(rockspec)
+   ok, err = build.apply_patches(rockspec)
    fs.pop_dir()
    fs.pop_dir()
+   if not ok then return nil, err end
    return rockspec
 end
 
@@ -79,8 +80,9 @@ local function unpack_rock(rock_file, dir_name, kind)
          end
          ok, err = fs.change_dir(rockspec.source.dir)
          if not ok then return nil, err end
-         build.apply_patches(rockspec)
+         ok, err = build.apply_patches(rockspec)
          fs.pop_dir()
+         if not ok then return nil, err end
       end
    end
    return rockspec