Add more action tests

spec/actions_spec.lua

@@ -1,8 +1,8 @@
 local Parser = require "argparse"
 getmetatable(Parser()).error = function(_, msg) error(msg) end
 
-describe("tests related to actions", function()
-   it("calls actions for options", function()
+describe("actions", function()
+   it("for options are called", function()
       local action1 = spy.new(function(_, _, arg)
          assert.equal("nowhere", arg)
       end)
@@ -27,7 +27,7 @@ describe("tests related to actions", function()
       assert.spy(action2).called(2)
    end)
 
-   it("properly calls actions for flags", function()
+   it("for flags are called", function()
       local action1 = spy.new(function() end)
       local action2 = spy.new(function() end)
       local action3 = spy.new(function() end)
@@ -49,4 +49,59 @@ describe("tests related to actions", function()
       assert.spy(action2).called(1)
       assert.spy(action3).called(0)
    end)
+
+   it("for options allow custom storing of arguments", function()
+      local parser = Parser()
+      parser:option("-p --path"):action(function(result, target, argument)
+         result[target] = (result[target] or ".") .. "/" .. argument
+      end)
+
+      local args = parser:parse{"-pfirst", "--path", "second", "--path=third"}
+      assert.same({path = "./first/second/third"}, args)
+   end)
+
+   it("for options with several arguments allow custom storing of arguments", function()
+      local parser = Parser()
+      parser:option("-p --path"):args("*"):action(function(result, target, arguments)
+         for _, argument in ipairs(arguments) do
+            result[target] = (result[target] or ".") .. "/" .. argument
+         end
+      end)
+
+      local args = parser:parse{"-p", "first", "second", "third"}
+      assert.same({path = "./first/second/third"}, args)
+   end)
+
+   it("pass overwrite flag as the fourth argument", function()
+      local parser = Parser()
+      local overwrites = {}
+      parser:flag("-f"):count("0-2"):action(function(_, _, _, overwrite)
+         table.insert(overwrites, overwrite)
+      end)
+
+      parser:parse{"-ffff"}
+      assert.same({false, false, true, true}, overwrites)
+   end)
+
+   it("pass user-defined target", function()
+      local parser = Parser()
+      local target
+      parser:flag("-f"):target("force"):action(function(_, passed_target)
+         target = passed_target
+      end)
+
+      parser:parse{"-f"}
+      assert.equals("force", target)
+   end)
+
+   it("apply convert before passing arguments", function()
+      local parser = Parser()
+      local numbers = {}
+      parser:option("-n"):convert(tonumber):default("0"):defmode("a"):action(function(_, _, n)
+         table.insert(numbers, n)
+      end)
+
+      parser:parse{"-n", "-n1", "-n", "-n", "2"}
+      assert.same({0, 1, 0, 2}, numbers)
+   end)
 end)