Aurora.3/code/unit_tests/sql_tests.dm

/datum/unit_test/sql_preferences_columns
	name = "SQL: Preferences Columns"
	groups = list("generic")

/datum/unit_test/sql_preferences_columns/start_test()
	if(!config.sql_enabled)
		TEST_WARN("--------------- Database not Configured - Skipping Preference Column UT")
		return UNIT_TEST_PASSED

	TEST_DEBUG("--------------- Database Configured - Running SQL Preference UTs")

	if(!establish_db_connection(dbcon))
		TEST_FAIL("Database connection could not be established.")
		return UNIT_TEST_FAILED

	var/faults = 0
	var/valid_columns = list()

	// this is the worst unit test in the history of unit tests - geeves
	// At least the credentials are no longer hardcoded - arrow768
	var/list/table_names = list(
		"ss13_characters",
		"ss13_characters_flavour",
		"ss13_player",
		"ss13_player_preferences",
		"ss13_player_pai",
		"ss13_characters_ipc_tags"
	)
	for (var/T in table_names)
		var/DBQuery/get_cs = dbcon.NewQuery("SELECT `COLUMN_NAME` FROM `INFORMATION_SCHEMA`.`COLUMNS` WHERE `TABLE_NAME` = :table:")
		get_cs.Execute(list("table" = T))

		if (get_cs.ErrorMsg())
			TEST_FAIL("SQL error encountered: [get_cs.ErrorMsg()]")
			return UNIT_TEST_FAILED

		valid_columns[T] = list()

		while (get_cs.NextRow())
			valid_columns[T][get_cs.item[1]] = TRUE

	var/datum/preferences/P = new(null)

	for (var/datum/category_group/player_setup_category/G in P.player_setup.categories)
		for (var/datum/category_item/player_setup_item/A in G.items)
			var/list/test_columns = list()
			var/list/temp

			temp = A.gather_load_query()
			for (var/B in temp)
				if (!test_columns[B])
					test_columns[B] = list()

				test_columns[B] |= temp[B]["vars"]
				test_columns[B] |= temp[B]["args"]
			temp.Cut()

			temp = A.gather_load_parameters()
			var/list/unfound = temp.Copy()
			for (var/C in temp)
				for (var/B in test_columns)
					if (C in test_columns[B])
						unfound -= C
						break

			if (unfound.len)
				for (var/C in unfound)
					TEST_FAIL("load parameter '[C]' not found in any queries for '[A.name]':[A.type].")
					faults++
			temp.Cut()

			temp = A.gather_save_query()
			for (var/B in temp)
				if (!test_columns[B])
					test_columns[B] = list()

				test_columns[B] |= temp[B]
			temp.Cut()

			for (var/B in test_columns)
				var/list/valids = valid_columns[B]
				if (!valids || !valids.len)
					TEST_FAIL("table '[B]' referenced but not found for '[A.name]':[A.type].")
					faults++
					continue

				for (var/C in test_columns[B])
					if (!(C in valids))
						TEST_FAIL("column '[C]' referenced but not in table '[B]' for item '[A.name]':[A.type].")
						faults++

	if (faults)
		TEST_FAIL("\[[faults]\] faults found in the SQL preferences setup.")
		return UNIT_TEST_FAILED
	else
		TEST_PASS("No faults found in the SQL preferences setup.")
		return UNIT_TEST_PASSED

/datum/unit_test/sql_preferences_vars
	name = "SQL: Preferences Variables"
	groups = list("generic")

/datum/unit_test/sql_preferences_vars/start_test()
	var/faults = 0
	var/total = 0
	var/datum/preferences/P = new(null)

	for (var/datum/category_group/player_setup_category/G in P.player_setup.categories)
		for (var/datum/category_item/player_setup_item/A in G.items)
			var/list/test = list()
			var/list/temp = A.gather_load_query()

			for (var/B in temp)
				var/list/some_vars = temp[B]["vars"]
				for (var/C in some_vars)
					if (some_vars[C])
						C = some_vars[C]
						var/list/layers = splittext(C, "/")
						if (layers.len == 1)
							test |= C
						else
							test |= layers[1]
					else
						test |= C

			total += test.len
			for (var/V in test)
				if (!(V in P.vars))
					TEST_FAIL("variable '[V]' referenced by, but not found in preferences class variables, '[A.name]':[A.type].")
					faults++

	if (faults)
		TEST_FAIL("\[[faults] / [total]\] variable references found invalid in the SQL preferences setup.")
		return UNIT_TEST_FAILED
	else
		TEST_PASS("All \[[total]\] variable references found valid in the SQL preferences setup.")
		return UNIT_TEST_PASSED