Add test for uninitialised parent class error

Author: vaisest

spec/System/TestCommon_spec.lua

@@ -0,0 +1,21 @@
+describe("Common", function()
+	describe("Class creation and use", function()
+		it("produces error when parent constructors are not called", function ()
+			local ParentClass = newClass("ConstructorTestParentClass")
+			function ParentClass:ConstructorTestParentClass()
+			end
+			local ChildClass = newClass("ConstructorTestProblemChildClass", "ConstructorTestParentClass")
+			function ChildClass:ConstructorTestProblemChild()
+				-- Intentionally does not call self:ConstructorTestParentClass()
+			end
+			common.classes.ConstructorTestParent = ParentClass
+			common.classes.ConstructorTestProblemChild = ChildClass
+
+			assert.has_error(function()
+				new("ConstructorTestProblemChild"):ConstructorTestProblemChild()
+			end, "Parent class 'ConstructorTestParentClass' of class 'ConstructorTestProblemChild' must be initialised")
+			common.classes.ConstructorTestParent = nil
+			common.classes.ConstructorTestProblemChild = nil
+		end)
+	end)
+end)