+
−--[[ Static Mines Test
+
−
+
−This test tests if mines are able to stand still on the ground for a very long time. 8 mines are spawned on a few girders.
+
−
+
−The test passes if the mines don't move for a very long time.
+
−The test failes if any mine moves even the tiniest bit or is destroyed.
+
−
+
−This test case has been created as response to bug 96.
+
−]]
+
−
+
−-- Max. time to test
+
−local TEST_TIME_LIMIT = 3600000 * 5 -- 5 hours
+
−
+
−local hhs = {}
+
−
+
−function onGameInit()
+
−
+
−	ClearGameFlags()
+
−	EnableGameFlags(gfDisableWind, gfOneClanMode)
+
−	Map = ""
+
−	Seed = 12
+
−	Theme = "Desert"
+
−	MapGen = mgDrawn
+
−	TurnTime = -1
+
−	Explosives = 0
+
−	MinesNum = 0
+
−	CaseFreq = 0
+
−	Delay = 100
+
−	WaterRise = 0
+
−	HealthDecrease = 0
+
−	AirMinesNum = 0
+
−
+
−
+
−	AddTeam("Test Team", 0xFFFF00, "Statue", "Tank", "Default", "cm_test")
+
−	hhs[1] = AddHog("Test Hog", 0, 100, "cm_test")
+
−	SetGearPosition(hhs[1], 300, 1450)
+
−end
+
−
+
−local mines = {
+
−	{ x = 231, y = 1708},
+
−	{ x = 290, y = 1708},
+
−	{ x = 342, y = 1708},
+
−	{ x = 261, y = 1708},
+
−	{ x = 319, y = 1708},
+
−	{ x = 403, y = 1706},
+
−	{ x = 428, y = 1706},
+
−	{ x = 461, y = 1706},
+
−	{ x = 498, y = 1706},
+
−	{ x = 518, y = 1706},
+
−}
+
−
+
−function LoadGearData()
+
−	------ GIRDER LIST ------
+
−	PlaceGirder(290, 1718, 4)
+
−	PlaceGirder(290, 1790, 4)
+
−	PlaceGirder(452, 1716, 4)
+
−	PlaceGirder(452, 1790, 4)
+
−	
+
−	PlaceGirder(300, 1500, 4)
+
−
+
−	------ MINE LIST ------
+
−	for m=1, #mines do
+
−		mines[m].gear = AddGear(mines[m].x, mines[m].y, gtMine, 0, 0, 0, 0)
+
−	end
+
−
+
−end
+
−
+
−function onGameStart()
+
−	LoadGearData()
+
−end
+
−
+
−function onGearDelete(gear)
+
−	for m=#mines, 1, -1 do
+
−		if gear == mines[m] then
+
−			WriteLnToConsole(string.format("Mine %d died!", m))
+
−			table.remove(mines, m)
+
−		end
+
−	end
+
−end
+
−
+
−-- Give a short time for the mines to settle first.
+
−local checkTimer = -5000
+
−local initPosCheck = false
+
−-- Count the total times the mines managed to stand still
+
−local totalTime = 0
+
−local fin = false
+
−function onGameTick20()
+
−	if fin then
+
−		return
+
−	end
+
−	-- Infinite turn time
+
−	if TurnTimeLeft < 6000 then
+
−		TurnTimeLeft = -1
+
−	end
+
−	checkTimer = checkTimer + 20
+
−	if initPosCheck then
+
−		totalTime = totalTime + 20
+
−	end
+
−	if checkTimer >= 1000 then
+
−		local failed = false
+
−		for m=1, #mines do
+
−			if not initPosCheck then
+
−				-- Position initialization
+
−				-- Save “real” x and y values after the mines have settled
+
−				local x, y = GetGearPosition(mines[m].gear)
+
−				mines[m].rx = x
+
−				mines[m].ry = y
+
−			else
+
−				-- Position check
+
−				local x, y = GetGearPosition(mines[m].gear)
+
−				local rx, ry = mines[m].rx, mines[m].ry
+
−				if not x or not y then
+
−					WriteLnToConsole(string.format("Mine %d has died!", m))
+
−					failed = true
+
−				elseif x ~= rx or y ~= ry then
+
−					WriteLnToConsole(string.format("Mine %d has moved! Expected: (%d, %d). Actual: (%d, %d)", m, rx, ry, x, y))
+
−					failed = true
+
−				end
+
−			end
+
−		end
+
−		if not initPosCheck then
+
−			initPosCheck = true
+
−		end
+
−		if failed then
+
−			WriteLnToConsole(string.format("Test failed. The mines managed to stand still for %d ticks.", totalTime))
+
−			EndLuaTest(TEST_FAILED)
+
−			fin = true
+
−			return
+
−		end
+
−	end
+
−	if totalTime >= TEST_TIME_LIMIT then
+
−		WriteLnToConsole(string.format("All mines have been static for over %d ticks! Success!", TEST_TIME_LIMIT))
+
−		EndLuaTest(TEST_SUCCESSFUL)
+
−		fin = true
+
−		return
+
−	end
+
−end