Files
OpenSS13/Code/Test.dm

22 lines
397 B
Plaintext

/proc/dd_run_tests()
var/test_classes = typesof(/obj/test)
for(var/class in test_classes)
var/obj/test/tester = new class( )
for(var/test in tester.verbs)
call(tester, test)()
if (!( tester.success ))
else
if (!( tester.success ))
world << "Test failed."
return
world << "All tests passed."
return
/obj/test/proc/die(message)
src.success = 0
CRASH(message)
return