Files
Aurora.3/code/unit_tests/map_tests.dm
ccomp5950 a647194565 Unit tests: Adds check for multiple cables on top of each other.
...that are going the same direction
2016-01-14 03:07:18 -05:00

110 lines
2.7 KiB
Plaintext

/*
*
* Map Unit Tests.
* Zone checks / APC / Scrubber / Vent.
*
*
*/
#define FAILURE 0
#define SUCCESS 1
datum/unit_test/apc_area_test
name = "MAP: Area Test APC / Scrubbers / Vents Z level 1"
datum/unit_test/apc_area_test/start_test()
var/list/bad_areas = list()
var/area_test_count = 0
var/list/exempt_areas = typesof(/area/space, \
/area/syndicate_station, \
/area/skipjack_station, \
/area/solar, \
/area/shuttle, \
/area/holodeck, \
/area/supply/station \
)
var/list/exempt_from_atmos = typesof( /area/maintenance, \
/area/storage, \
/area/engineering/atmos/storage, \
/area/rnd/test_area, \
/area/construction, \
/area/server
)
var/list/exempt_from_apc = typesof( /area/construction, \
/area/medical/genetics
)
for(var/area/A in world)
if(A.z == 1 && !(A.type in exempt_areas))
area_test_count++
var/area_good = 1
var/bad_msg = "[ascii_red]--------------- [A.name]([A.type])"
if(isnull(A.apc) && !(A.type in exempt_from_apc))
log_unit_test("[bad_msg] lacks an APC.[ascii_reset]")
area_good = 0
if(!A.air_scrub_info.len && !(A.type in exempt_from_atmos))
log_unit_test("[bad_msg] lacks an Air scrubber.[ascii_reset]")
area_good = 0
if(!A.air_vent_info.len && !(A.type in exempt_from_atmos))
log_unit_test("[bad_msg] lacks an Air vent.[ascii_reset]")
area_good = 0
if(!area_good)
bad_areas.Add(A)
if(bad_areas.len)
fail("\[[bad_areas.len]/[area_test_count]\]Some areas lacked APCs, Air Scrubbers, or Air vents.")
else
pass("All \[[area_test_count]\] areas contained APCs, Air scrubbers, and Air vents.")
return 1
//=======================================================================================
datum/unit_test/wire_test
name = "MAP: Cable Test Z level 1"
datum/unit_test/wire_test/start_test()
var/wire_test_count = 0
var/bad_tests = 0
var/turf/T = null
var/obj/structure/cable/C = null
var/list/cable_turfs = list()
var/list/dirs_checked = list()
for(C in world)
T = null
T = get_turf(C)
if(T && T.z == 1)
cable_turfs |= get_turf(C)
for(T in cable_turfs)
var/bad_msg = "[ascii_red]--------------- [T.name] \[[T.x] / [T.y] / [T.z]\]"
dirs_checked.Cut()
for(C in T)
wire_test_count++
var/combined_dir = "[C.d1]-[C.d2]"
if(combined_dir in dirs_checked)
bad_tests++
log_unit_test("[bad_msg] Contains multiple wires with same direction on top of each other.")
dirs_checked.Add(combined_dir)
if(bad_tests)
fail("\[[bad_tests] / [wire_test_count]\] Some turfs had overlapping wires going the same direction.")
else
pass("All \[[wire_test_count]\] wires had no overlapping cables going the same direction.")
return 1
#undef SUCCESS
#undef FAILURE