mirror of
https://github.com/ParadiseSS13/Paradise.git
synced 2025-12-24 01:02:06 +00:00
4ace2d6c2b
* Implement map tests for catching common errors. - Adds test runner: - to make it easier to track things across test types - for example to ensure a fully specified log can be emitted - Adds map tile test type: - when writing a test, coders implement CheckTile, which is handed a single turf - when the test runner runs these tests, it iterates over all turfs in the specified z-level, and runs each test's CheckTile on each turf in turn. - Adds two sample map tile tests: - check to see if a pipe exists on the same tile as a scrubber or vent - check to see if a tile contains two cables, each with a center node * Review #1: - Replace nested loops over map tiles with `block` - Remove check for valid turf in individual tests, I think it's safe to assume `block` will always return legit turfs - Added proper duration tracking for old tests - Gave log file an appropriate extension - Actually use `Fail` for tests * whoops * add more tests suggested by @Vi3trice * Add some more tests courtesy @Bm0n and @Vi3trice * windows are okay in space as long as it's nearspace * Add failure threshold to prevent excessive logging. Once this threshold is reached, a test will stop being processed for every tile. Note that this applies to `log_world` and `text2file` equally when logging large amounts of failures. * Document each test. * Remove unnecessary reboot * Let all map tests run to completion in CI matrix. * I know what alphabetical means
112 lines
3.4 KiB
Plaintext
112 lines
3.4 KiB
Plaintext
/**
|
|
* Map per-tile test.
|
|
*
|
|
* Per-tile map tests iterate over each tile of a map to perform a check, and
|
|
* fails the test if a tile does not pass the check. A new test can be
|
|
* written by extending /datum/map_per_tile_test, and implementing the check
|
|
* in CheckTile.
|
|
*/
|
|
/datum/map_per_tile_test
|
|
var/succeeded = TRUE
|
|
var/list/fail_reasons
|
|
var/failure_count = 0
|
|
|
|
/datum/map_per_tile_test/proc/CheckTile(turf/T)
|
|
Fail("CheckTile() called parent or not implemented")
|
|
|
|
/datum/map_per_tile_test/proc/Fail(turf/T, reason)
|
|
succeeded = FALSE
|
|
LAZYADD(fail_reasons, "[T.x],[T.y],[T.z]: [reason]")
|
|
failure_count++
|
|
|
|
/**
|
|
* Check atmos pipes are not routed under unary devices such as vents and
|
|
* scrubbers.
|
|
*/
|
|
/datum/map_per_tile_test/pipe_vent_checker
|
|
var/list/pipe_roots = list(
|
|
/obj/machinery/atmospherics/pipe/manifold/hidden/supply,
|
|
/obj/machinery/atmospherics/pipe/simple/hidden/scrubbers
|
|
)
|
|
var/list/unary_roots = list(
|
|
/obj/machinery/atmospherics/unary
|
|
)
|
|
|
|
/datum/map_per_tile_test/pipe_vent_checker/CheckTile(turf/T)
|
|
var/has_pipe = FALSE
|
|
var/has_unary = FALSE
|
|
|
|
for(var/pipe_root in pipe_roots)
|
|
if(locate(pipe_root) in T.contents)
|
|
has_pipe = TRUE
|
|
|
|
if(locate(/obj/machinery/atmospherics/unary) in T.contents)
|
|
has_unary = TRUE
|
|
|
|
if(has_pipe && has_unary)
|
|
Fail(T, "pipe on same tile as vent or scrubber")
|
|
|
|
/**
|
|
* Check that only one cable node exists on a tile.
|
|
*/
|
|
/datum/map_per_tile_test/cable_node_checker
|
|
|
|
/datum/map_per_tile_test/cable_node_checker/CheckTile(turf/T)
|
|
var/center_nodes = 0
|
|
|
|
for(var/obj/structure/cable/cable in T.contents)
|
|
if(cable.d1 == 0 || cable.d2 == 0)
|
|
center_nodes++
|
|
|
|
if(center_nodes > 1)
|
|
Fail(T, "tile has multiple center cable nodes")
|
|
|
|
/**
|
|
* Check to ensure that APCs have a cable node on their tile.
|
|
*/
|
|
/datum/map_per_tile_test/apc_cable_node_checker
|
|
|
|
/datum/map_per_tile_test/apc_cable_node_checker/CheckTile(turf/T)
|
|
var/missing_node = TRUE
|
|
var/obj/machinery/power/apc/apc = locate(/obj/machinery/power/apc) in T.contents
|
|
if(apc)
|
|
for(var/obj/structure/cable/cable in T.contents)
|
|
if(cable.d1 == 0 || cable.d2 == 0)
|
|
missing_node = FALSE
|
|
|
|
if(missing_node)
|
|
Fail(T, "tile has an APC bump but no center cable node")
|
|
|
|
/**
|
|
* Check to ensure pipe trunks exist under disposals devices.
|
|
*/
|
|
/datum/map_per_tile_test/disposal_with_trunk_checker
|
|
|
|
/datum/map_per_tile_test/disposal_with_trunk_checker/CheckTile(turf/T)
|
|
var/obj/machinery/disposal/disposal = locate(/obj/machinery/disposal) in T.contents
|
|
if(disposal)
|
|
if(!locate(/obj/structure/disposalpipe/trunk) in T.contents)
|
|
Fail(T, "tile has disposal unit/chute but no pipe trunk")
|
|
|
|
/**
|
|
* Check for certain objects that should never be over space turfs.
|
|
*/
|
|
/datum/map_per_tile_test/invalid_objs_over_space_checker
|
|
var/list/invalid_types = list(
|
|
/obj/machinery/door/airlock
|
|
)
|
|
|
|
/datum/map_per_tile_test/invalid_objs_over_space_checker/CheckTile(turf/T)
|
|
for(var/invalid_type in invalid_types)
|
|
if(isspaceturf(T) && locate(invalid_type) in T.contents)
|
|
Fail(T, "space turf contains at least one invalid object of type [invalid_type]")
|
|
|
|
/**
|
|
* Check that structures in space are always in near-station space.
|
|
*/
|
|
/datum/map_per_tile_test/structures_in_farspace_checker
|
|
|
|
/datum/map_per_tile_test/structures_in_farspace_checker/CheckTile(turf/T)
|
|
if(T.loc.type == /area/space && locate(/obj/structure) in T.contents)
|
|
Fail(T, "tile contains at least one structure found in non-near space area")
|