You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
65 lines
2.0 KiB
Lua
65 lines
2.0 KiB
Lua
local assert = require('luassert.assert')
|
|
local match = require('luassert.match')
|
|
local s = require('luassert.say')
|
|
|
|
local function none(state, arguments, level)
|
|
local level = (level or 1) + 1
|
|
local argcnt = arguments.n
|
|
assert(argcnt > 0, s("assertion.internal.argtolittle", {"none", 1, tostring(argcnt)}), level)
|
|
for i = 1, argcnt do
|
|
assert(match.is_matcher(arguments[i]),
|
|
s("assertion.internal.badargtype", {1, "none", "matcher", type(arguments[i])}), level)
|
|
end
|
|
|
|
return function(value)
|
|
for _, matcher in ipairs(arguments) do
|
|
if matcher(value) then
|
|
return false
|
|
end
|
|
end
|
|
return true
|
|
end
|
|
end
|
|
|
|
local function any(state, arguments, level)
|
|
local level = (level or 1) + 1
|
|
local argcnt = arguments.n
|
|
assert(argcnt > 0, s("assertion.internal.argtolittle", {"any", 1, tostring(argcnt)}), level)
|
|
for i = 1, argcnt do
|
|
assert(match.is_matcher(arguments[i]),
|
|
s("assertion.internal.badargtype", {1, "any", "matcher", type(arguments[i])}), level)
|
|
end
|
|
|
|
return function(value)
|
|
for _, matcher in ipairs(arguments) do
|
|
if matcher(value) then
|
|
return true
|
|
end
|
|
end
|
|
return false
|
|
end
|
|
end
|
|
|
|
local function all(state, arguments, level)
|
|
local level = (level or 1) + 1
|
|
local argcnt = arguments.n
|
|
assert(argcnt > 0, s("assertion.internal.argtolittle", {"all", 1, tostring(argcnt)}), level)
|
|
for i = 1, argcnt do
|
|
assert(match.is_matcher(arguments[i]),
|
|
s("assertion.internal.badargtype", {1, "all", "matcher", type(arguments[i])}), level)
|
|
end
|
|
|
|
return function(value)
|
|
for _, matcher in ipairs(arguments) do
|
|
if not matcher(value) then
|
|
return false
|
|
end
|
|
end
|
|
return true
|
|
end
|
|
end
|
|
|
|
assert:register("matcher", "none_of", none)
|
|
assert:register("matcher", "any_of", any)
|
|
assert:register("matcher", "all_of", all)
|