objectives.dm

/datum/unit_test/objectives_category/Run()
	var/datum/traitor_category_handler/category_handler = allocate(/datum/traitor_category_handler)
	var/list/objectives_that_exist = list()
	for(var/datum/traitor_objective_category/category as anything in category_handler.all_categories)
		for(var/value in category.objectives)
			TEST_ASSERT(isnum(category.objectives[value]), "[category.type] does not have a valid format for its objectives as an objective category! ([value] requires a weight to be assigned to it)")
			if(islist(value))
				recursive_check_list(category.type, value, objectives_that_exist)
			else
				objectives_that_exist += value

	SStraitor.generate_objectives = FALSE
	for(var/datum/traitor_objective/objective_typepath as anything in subtypesof(/datum/traitor_objective))
		var/datum/traitor_objective/objective = allocate(objective_typepath)
		if(objective.abstract_type == objective_typepath)
			// In this case, we don't want abstract types to define values that should be defined on non-abstract types
			// Nor do we want abstract types to appear in the pool of traitor objectives.
			if(objective_typepath in objectives_that_exist)
				TEST_FAIL("[objective_typepath] is in a traitor category and is an abstract type! Please remove it from the [/datum/traitor_objective_category].")
			// Since we didn't generate the objective, the rewards are going to be in list form: (min, max)
			if(!reward_is_zero(objective.progression_reward))
				TEST_FAIL("[objective_typepath] has set a progression reward as an abstract type! Please define progression rewards on non-abstract types rather than abstract types.")
			// Since we didn't generate the objective, the rewards are going to be in list form: (min, max)
			if(!reward_is_zero(objective.telecrystal_reward))
				TEST_FAIL("[objective_typepath] has set a telecrystal reward as an abstract type! Please define telecrystal rewards on non-abstract types rather than abstract types.")
			continue
		if(!(objective_typepath in objectives_that_exist))
			TEST_FAIL("[objective_typepath] is not in a traitor category and isn't an abstract type! Place it into a [/datum/traitor_objective_category] or remove it from code.")
		if(objective.progression_minimum == null)
			TEST_FAIL("[objective_typepath] has not defined a minimum progression level and isn't an abstract type! Please define the progression minimum variable on the datum")
		if(objective.needs_reward && reward_is_zero(objective.progression_reward) && reward_is_zero(objective.telecrystal_reward))
			TEST_FAIL("[objective_typepath] has not set either a progression reward or a telecrystal reward! Please set either a telecrystal or progression reward for this objective.")

/// Returns whether the reward specified (in format (min, max)) is zero or not.
/datum/unit_test/objectives_category/proc/reward_is_zero(list/reward)
	return (reward[1] == 0 && reward[2] == 0)

/datum/unit_test/objectives_category/Destroy()
	SStraitor.generate_objectives = TRUE
	return ..()


/datum/unit_test/objectives_category/proc/recursive_check_list(base_type, list/to_check, list/to_add_to)
	for(var/value in to_check)
		TEST_ASSERT(isnum(to_check[value]), "[base_type] does not have a valid format for its objectives as an objective category! ([value] requires a weight to be assigned to it)")
		if(islist(value))
			recursive_check_list(base_type, value, to_add_to)
		else
			to_add_to += value