Lights Per Tile MS Test (#1160)

* Lights Per Tile MS Test

* Fix

Author: francinum

code/modules/unit_tests/mapping_standards/__include.dm

@@ -3,3 +3,4 @@
 #include "_mapping_standards.dm"
 
 #include "ladders_must_have_openspace.dm"
+#include "one_light_per_tile.dm"

code/modules/unit_tests/mapping_standards/ladders_must_have_openspace.dm

@@ -4,6 +4,7 @@
 // If you encounter it, well. Good luck and god help you -Francinum
 
 /datum/unit_test/mapping_standards/ladders_must_have_openspace
+	name = "MAPSTANDARDS: Ladders must have openspace"
 
 /datum/unit_test/mapping_standards/ladders_must_have_openspace/Run()
 	if(..()) {return};

code/modules/unit_tests/mapping_standards/one_light_per_tile.dm

@@ -0,0 +1,29 @@
+/datum/unit_test/mapping_standards/lights_per_tile
+	name = "MAPSTANDARDS: Tiles should have only one light"
+
+/datum/unit_test/mapping_standards/lights_per_tile/Run()
+	if(..()) {return};
+
+	var/list/turf/checked_turfs = list()
+	var/list/turf/failed_turfs = list()
+
+	for(var/obj/machinery/light/fixture in INSTANCES_OF(/obj/machinery/light))
+		var/area/fixture_area = get_area(fixture)
+		if(!(fixture_area.type in GLOB.the_station_areas))
+			continue //Skip non-station lights.
+
+		var/turf/light_turf = get_turf(fixture)
+		if(light_turf in checked_turfs)
+
+			if(light_turf in failed_turfs)
+				continue //We've already reported this tile.
+
+			failed_turfs.Add(light_turf)
+
+			var/light_count = 0
+			for(var/obj/machinery/light/_counter in light_turf)
+				light_count++
+			TEST_FAIL("[light_count] lights on tile at [AREACOORD(light_turf)]")
+			continue //Continue, we've already added it to the list.
+
+		checked_turfs.Add(light_turf)