sql_tests.dm

var/DBConnection/dbcon_ut

/proc/check_ut_db()
	if (!dbcon_ut)
		dbcon_ut = new("127.0.0.1", 3306, "ss13_test", "root")

	return establish_db_connection(dbcon_ut)

/datum/unit_test/sql_preferences_columns
	name = "SQL: Preferences Columns"

/datum/unit_test/sql_preferences_columns/start_test()
	if (!check_ut_db())
		fail("Test DB setup failed.")
		return TRUE

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

	var/list/table_names = list(
		"ss13_characters",
		"ss13_characters_flavour",
		"ss13_player",
		"ss13_player_preferences",
		"ss13_player_pai"
	)
	for (var/T in table_names)
		var/DBQuery/get_cs = dbcon_ut.NewQuery("SELECT `COLUMN_NAME` FROM `INFORMATION_SCHEMA`.`COLUMNS` WHERE `TABLE_NAME` = :table:")
		get_cs.Execute(list("table" = T))

		if (get_cs.ErrorMsg())
			log_unit_test("[ascii_red]--------------- SQL error encountered: [get_cs.ErrorMsg()].[ascii_reset]")
			fail("SQL error encountered.")
			return TRUE

		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)
					log_unit_test("[ascii_red]--------------- load parameter '[C]' not found in any queries for '[A.name]':[A.type].[ascii_reset]")
					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)
					log_unit_test("[ascii_red]--------------- table '[B]' referenced but not found for '[A.name]':[A.type].[ascii_reset]")
					faults++
					continue

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

	if (faults)
		fail("\[[faults]\] faults found in the SQL preferences setup.")
	else
		pass("No faults found in the SQL preferences setup.")

	return TRUE

/datum/unit_test/sql_preferences_vars
	name = "SQL: Preferences Variables"

/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))
					log_unit_test("[ascii_red]--------------- variable '[V]' referenced by, but not found in preferences class variables, '[A.name]':[A.type].[ascii_reset]")
					faults++

	if (faults)
		fail("\[[faults] / [total]\] variable references found invalid in the SQL preferences setup.")
	else
		pass("All \[[total]\] variable references found valid in the SQL preferences setup.")

	return TRUE