return function()local W=game:GetService("\082\101\112\108\105\099\097\116\101\100\083\116\111\114\097\103\101")local Y=W.Packages local R=require(Y.Llama)local I=R.Set local G=I.filter it("\115\104\111\117\108\100 \118\097\108\105\100\097\116\101 \116\121\112\101\115",function()local W={{0};{{},0},{0;function() end}}for Y=1,#W,1 do local R,I=pcall(function()G(unpack(W[Y]))end);(expect(string.find(I,"\101\120\112\101\099\116\101\100\044 \103\111\116"))).to.be.ok()end end)it("\115\104\111\117\108\100 \114\101\116\117\114\110 \097 \110\101\119 \116\097\098\108\101",function()local W={};(expect(G(W,function() end))).never.to.equal(W)end)it("\115\104\111\117\108\100 \110\111\116 \109\117\116\097\116\101 \112\097\115\115\101\100 \105\110 \116\097\098\108\101\115",function()local W={foo=true;bar=true;baz=true}local Y=0 setmetatable(W,{__newindex=function()Y=Y+1 end})local function R()return true end G(W,R);(expect(Y)).to.equal(0)end)it("\115\104\111\117\108\100 \099\097\108\108 \116\104\101 \099\097\108\108\098\097\099\107 \102\111\114 \101\097\099\104 \101\108\101\109\101\110\116",function()local W={foo=true;bar=true;baz=true}local Y={}local function R(W)Y[W]=true return true end G(W,R)for W,R in pairs(W)do(expect(Y[W])).to.equal(R)end for Y,R in pairs(Y)do(expect(R)).to.equal(W[Y])end end)it("\115\104\111\117\108\100 \099\111\114\114\101\099\116\108\121 \117\115\101 \116\104\101 \102\105\108\116\101\114 \099\097\108\108\098\097\099\107",function()local W={[1]=true,[2]=true;[3]=true,[4]=true,[5]=true}local function Y(W)return W%2==0 end local R=G(W,Y);(expect(R[1])).never.to.be.ok();(expect(R[2])).to.be.ok();(expect(R[3])).never.to.be.ok();(expect(R[4])).to.be.ok();(expect(R[5])).never.to.be.ok()end)it("\115\104\111\117\108\100 \099\111\112\121 \116\104\101 \116\097\098\108\101 \099\111\114\114\101\099\116\108\121",function()local W={foo=true,bar=true,baz=true}local function Y()return true end local R=G(W,Y)for W,Y in pairs(W)do(expect(R[W])).to.equal(Y)end for Y,R in pairs(R)do(expect(R)).to.equal(W[Y])end end)it("\115\104\111\117\108\100 \119\111\114\107 \119\105\116\104 \097\110 \101\109\112\116\121 \116\097\098\108\101",function()local W=false local function Y()W=true return true end local R=G({},Y);(expect(next(R))).never.to.be.ok();(expect(W)).to.equal(false)end)it("\115\104\111\117\108\100 \114\101\109\111\118\101 \097\108\108 \101\108\101\109\101\110\116\115 \102\114\111\109 \103\105\118\101\110 \116\097\098\108\101 \119\104\101\110 \099\097\108\108\098\097\099\107 \114\101\116\117\114\110 \097\108\119\097\121\115 \102\097\108\115\101",function()local W={foo=true;bar=true,baz=true}local function Y()return false end local R=G(W,Y);(expect(next(R))).never.to.be.ok()end)end
return function()
	local ReplicatedStorage = game:GetService("ReplicatedStorage")

	local Packages = ReplicatedStorage.Packages
	local Llama = require(Packages.Llama)

	local Set = Llama.Set
	local filter = Set.filter

	it("should validate types", function()
		local args = {
			{ 0 },
			{ {}, 0 },
			{ 0, function() end }
		}

		for i = 1, #args do
			local _, err = pcall(function()
				filter(unpack(args[i]))
			end)

			expect(string.find(err, "expected, got")).to.be.ok()
		end
	end)

	it("should return a new table", function()
		local a = {}

		expect(filter(a, function() end)).never.to.equal(a)
	end)

	it("should not mutate passed in tables", function()
		local a = {
			foo = true, 
			bar = true, 
			baz = true,
		}
		local mutations = 0

		setmetatable(a, {
			__newindex = function()
				mutations = mutations + 1
			end,
		})

		local function alwaysTrue()
			return true
		end

		filter(a, alwaysTrue)

		expect(mutations).to.equal(0)
	end)

	it("should call the callback for each element", function()
		local a = {
			foo = true, 
			bar = true, 
			baz = true,
		}
		local copy = {}

		local function copyCallback(v)
			copy[v] = true
			return true
		end

		filter(a, copyCallback)

		for k, v in pairs(a) do
			expect(copy[k]).to.equal(v)
		end

		for k, v in pairs(copy) do
			expect(v).to.equal(a[k])
		end
	end)

	it("should correctly use the filter callback", function()
		local a = {
			[1] = true,
			[2] = true,
			[3] = true,
			[4] = true,
			[5] = true,
		}

		local function evenOnly(v)
			return v % 2 == 0
		end

		local b = filter(a, evenOnly)

		expect(b[1]).never.to.be.ok()
		expect(b[2]).to.be.ok()
		expect(b[3]).never.to.be.ok()
		expect(b[4]).to.be.ok()
		expect(b[5]).never.to.be.ok()
	end)

	it("should copy the table correctly", function()
		local a = {
			foo = true, 
			bar = true, 
			baz = true,
		}

		local function keepAll()
			return true
		end

		local b = filter(a, keepAll)

		for k, v in pairs(a) do
			expect(b[k]).to.equal(v)
		end

		for k, v in pairs(b) do
			expect(v).to.equal(a[k])
		end
	end)

	it("should work with an empty table", function()
		local called = false

		local function callback()
			called = true
			return true
		end

		local a = filter({}, callback)

		expect(next(a)).never.to.be.ok()
		expect(called).to.equal(false)
	end)

	it("should remove all elements from given table when callback return always false", function()
		local a = {
			foo = true, 
			bar = true, 
			baz = true,
		}

		local function removeAll()
			return false
		end

		local b = filter(a, removeAll)

		expect(next(b)).never.to.be.ok()
	end)
end