add tests for cond operators

Author: atticus-sullivan

tests/unit/expand_conditions_spec.lua

@@ -0,0 +1,108 @@
+local helpers = require("test.functional.helpers")(after_each)
+
+local works = function(snippets, opts) end
+
+describe("expand_conditions", function()
+	-- apparently clear() needs to run before anything else...
+	helpers.clear()
+	helpers.exec("set rtp+=" .. os.getenv("LUASNIP_SOURCE"))
+	it("simple", function()
+		local function foo()
+			return helpers.exec_lua([[
+			local cond = require("luasnip.extras.expand_conditions").make_condition
+			local c = cond(function() return true end)
+			return c() == true
+			]])
+		end
+		assert.has_no.errors(foo)
+		assert.is_true(foo())
+	end)
+	describe("logic ops", function()
+		describe("and", function()
+			local function foo(b1, b2)
+				-- Attention: use this only when testing (otherwise (pot.
+				-- malicious) users might inject code)
+				return helpers.exec_lua(([[
+					local cond = require("luasnip.extras.expand_conditions").make_condition
+					local c = cond(function() return %s end) * cond(function() return %s end)
+					return c() == %s
+					]]):format(tostring(b1),tostring(b2), tostring(b1 and b2)))
+			end
+			for _,ele in ipairs{{true,true}, {true,false}, {false,true}, {false,false}} do
+				it(("%s and %s"):format(tostring(ele[1]), tostring(ele[2])), function()
+					local test = function() return foo(ele[1], ele[2]) end
+					assert.has_no.errors(test) assert.is_true(test())
+				end)
+			end
+		end)
+		describe("or", function()
+			local function foo(b1, b2)
+				-- Attention: use this only when testing (otherwise (pot.
+				-- malicious) users might inject code)
+				return helpers.exec_lua(([[
+					local cond = require("luasnip.extras.expand_conditions").make_condition
+					local c = cond(function() return %s end) + cond(function() return %s end)
+					return c() == %s
+					]]):format(tostring(b1),tostring(b2), tostring(b1 or b2)))
+			end
+			for _,ele in ipairs{{true,true}, {true,false}, {false,true}, {false,false}} do
+				it(("%s or %s"):format(tostring(ele[1]), tostring(ele[2])), function()
+					local test = function() return foo(ele[1], ele[2]) end
+					assert.has_no.errors(test) assert.is_true(test())
+				end)
+			end
+		end)
+		describe("xor", function()
+			local function foo(b1, b2)
+				-- Attention: use this only when testing (otherwise (pot.
+				-- malicious) users might inject code)
+				return helpers.exec_lua(([[
+					local cond = require("luasnip.extras.expand_conditions").make_condition
+					local c = cond(function() return %s end) ^ cond(function() return %s end)
+					return c() == %s
+					]]):format(tostring(b1),tostring(b2), tostring((b1 and not b2) or (not b1 and b2))))
+			end
+			for _,ele in ipairs{{true,true}, {true,false}, {false,true}, {false,false}} do
+				it(("%s xor %s"):format(tostring(ele[1]), tostring(ele[2])), function()
+					local test = function() return foo(ele[1], ele[2]) end
+					assert.has_no.errors(test) assert.is_true(test())
+				end)
+			end
+		end)
+		-- describe("xnor", function()
+		-- 	local function foo(b1, b2)
+		-- 		-- Attention: use this only when testing (otherwise (pot.
+		-- 		-- malicious) users might inject code)
+		-- 		return helpers.exec_lua(([[
+		-- 			local cond = require("luasnip.extras.expand_conditions").make_condition
+		-- 			local c = cond(function() return %s end) == cond(function() return %s end)
+		-- 			return c() == %s
+		-- 			]]):format(tostring(b1),tostring(b2), tostring(b1 == b2)))
+		-- 	end
+		-- 	for _,ele in ipairs{{true,true}, {true,false}, {false,true}, {false,false}} do
+		-- 		it(("%s xnor %s"):format(tostring(ele[1]), tostring(ele[2])), function()
+		-- 			local test = function() return foo(ele[1], ele[2]) end
+		-- 			assert.has_no.errors(test) assert.is_true(test())
+		-- 		end)
+		-- 	end
+		-- end)
+		describe("not", function()
+			local function foo(b1, b2)
+				-- Attention: use this only when testing (otherwise (pot.
+				-- malicious) users might inject code)
+				return helpers.exec_lua(([[
+					local cond = require("luasnip.extras.expand_conditions").make_condition
+					local c = -cond(function() return %s end)
+					return c() == %s
+					]]):format(tostring(b1), tostring(not b1)))
+			end
+			for _,ele in ipairs{{true}, {false}} do
+				it(("not %s"):format(tostring(ele[1])), function()
+					local test = function() return foo(ele[1]) end
+					assert.has_no.errors(test)
+					assert.is_true(test())
+				end)
+			end
+		end)
+	end)
+end)