local tests = require("Module:UnitTests")

-- arguments: parent_frame, frame, pagename?
local test_headword = require("Module:grc-headword/sandbox").test

local show_template = require("Module:template link").format_link
local clone = require("Module:table").shallowClone

-- For now the categories don't really need testing.
local to_be_removed = { "categories", "pos_category" }

local function tag_and_link(term)
	return '<span class="polytonic" lang="grc">]</span>'
end

local abbrevs = { adjectives = "adj", participles = "part" }
local function display(frame, parent_frame, pagename)
	parent_frame = clone(parent_frame)
	local name = ("grc-" .. (abbrevs] or frame) .. (frame and "-" .. frame or "")):gsub("s$", "")
		.. "/sandbox"
	table.insert(parent_frame, 1, name)
	return tag_and_link(pagename) .. ":<br>" .. show_template(parent_frame)
end

local options = {
	nowiki = true,
	display = function (text)
		return "<code>" .. text:gsub("&#(%d+);", string.char):gsub("(%a*=%b{},) ", "%1<br>") .. "</code>"
	end,
	show_difference = true,
}
function tests:check(frame, parent_frame, pagename, expected)
	local data = test_headword(frame, parent_frame, pagename)
	for _, key in ipairs(to_be_removed) do
		data = nil
	end
	self:equals_deep(display(frame, parent_frame, pagename),
		data, expected, options)
end

function tests:test()
	local examples = {
		"nouns",
		{
			{ "nouns" }, { "δήμου", "m", "second" }, "δῆμος",
			{genders={"m"}, heads={"δῆμος"}, inflections={{"δήμου", label="genitive"}}}
		},
		{
			{ "nouns" }, { "ῐ̔́ππος", "ῐ̔́ππου", "m", "second" }, "ἵππος",
			{genders={"m"}, heads={"ῐ̔́ππος"}, inflections={{"ῐ̔́ππου", label="genitive"}}}
		},
		"indeclinable nouns",
		{
			{ "proper nouns" }, { "Γαβρῑήλ", "m" }, "Γαβριήλ",
			{heads={"Γαβρῑήλ"}, genders={"m"}, inflections={{label="]"}}}
		},
		{
			{ "proper nouns" }, { "m" }, "Γαβριήλ",
			{heads={"Γαβριήλ"}, genders={"m"}, inflections={{label="]"}}}
		},
		{
			{ "proper nouns" }, { head = "Γαβρῑήλ", g = "m" }, "Γαβριήλ",
			{heads={"Γαβρῑήλ"}, genders={"m"}, inflections={{label="]"}}}
		},
		"verbs",
		{
			{ "verbs" }, { "ῐ̔́στημῐ" }, "ἵστημι",
			{genders={}, heads={"ῐ̔́στημῐ"}, inflections={}}
		},
		"particles",
		{
			{ "particles" }, { disc = 1 }, "γε",
			{genders={}, heads={"γε"}, inflections={{label="discourse particle"}}}
		},
		"adjectives and participles",
		{
			{ "adjectives", "1&2" }, { "σή", "σόν" }, "σός",
			{genders={"m"}, heads={"σός"}, inflections={{"σή", label="feminine"}, {"σόν", label="neuter"}}}
		},
		{
			{ "participles", "1&2" }, { "στᾰ́μενος", "στᾰμένη", "στᾰ́μενον" }, "στάμενος",
			{genders={"m"}, heads={"στᾰ́μενος"}, inflections={{"στᾰμένη", label="feminine"}, {"στᾰ́μενον", label="neuter"}}}
		},
		{
			{ "adjectives", "1&3" }, { "βᾰρῠ́ς", "βᾰρεῖᾰ", "βᾰρῠ́" }, "βαρύς",
			{genders={"m"}, heads={"βᾰρῠ́ς"}, inflections={{"βᾰρεῖᾰ", label="feminine"}, {"βᾰρῠ́", label="neuter"}}}
		},
		{
			{ "participles", "1&3" }, { "στᾱ́ς", "στᾶσᾰ", "στᾰ́ν" }, "στάς",
			{genders={"m"}, heads={"στᾱ́ς"}, inflections={{"στᾶσᾰ", label="feminine"}, {"στᾰ́ν", label="neuter"}}}
		},
		{
			{ "adjectives", "2nd" }, { "ᾰ̓́δῐκος", "ᾰ̓́δῐκον" }, "ἄδικος",
			{genders={"m", "f"}, heads={"ᾰ̓́δῐκος"}, inflections={{"ᾰ̓́δῐκον", label="neuter"}}}
		},
		{
			{ "adjectives", "3rd" }, { "ῠ̔γῐής", "ῠ̔γῐές" }, "ὑγιής",
			{genders={"m", "f"}, heads={"ῠ̔γῐής"}, inflections={{"ῠ̔γῐές", label="neuter"}}}
		},
		--[[
		{
			{}, {}, "",
			{}
		},
		--]]
	}
	
	self:iterate(examples, "check")
end

return tests