Upload

lua/pac3/core/client/tests/smoke.lua

@@ -0,0 +1,46 @@
+--[[
+| This file was obtained through the combined efforts
+| of Madbluntz & Plymouth Antiquarian Society.
+|
+| Credits: lifestorm, Gregory Wayne Rossel JR.,
+| 	Maloy, DrPepper10 @ RIP, Atle!
+|
+| Visit for more: https://plymouth.thetwilightzone.ru/
+--]]
+
+
+function test.Run(done)
+	local function find_part_in_entities(part)
+		for k,v in pairs(ents.GetAll()) do
+			if v.PACPart == part then
+				return v.PACPart
+			end
+		end
+	end
+
+	for _, part in pairs(pac.GetLocalParts()) do
+		part:Remove()
+	end
+
+	assert(table.Count(pac.GetLocalParts()) == 0)
+
+	local part = pac.CreatePart("group")
+	local model = part:CreatePart("model")
+	assert(table.Count(pac.GetLocalParts()) == 2)
+
+	model:SetModel("models/props_combine/breenchair.mdl")
+
+	assert(find_part_in_entities(model) == model)
+
+	assert(model:GetOwner():GetModel() == model:GetOwner():GetModel())
+
+	model:Remove()
+
+	assert(table.Count(pac.GetLocalParts()) == 1)
+
+	part:Remove()
+
+	assert(table.Count(pac.GetLocalParts()) == 0)
+
+	done()
+end