Module:hit-translit/testcases

Documentation for this module may be created at Module:hit-translit/testcases/doc

local hit_translit = require('Module:hit-translit')
local hit_tag = require('Module:hit-translit/tag')
local tests = require('Module:UnitTests')

function tests:test_1_tr()
	local test_tr = {
		{ "𒊭𒁉𒅅𒆪𒍑𒋫", "ša-pí-ik-ku-uš-ta" },
		{ "𒄿𒅀𒀜𒋫", "i-ya-at-ta" },
		{ "𒀠𒉺𒀸", "al-pa-aš" },
		{ "𒆠𒅕", "ke-er" },
		{ "𒋼𒀀𒋾𒅀𒀸", "kar-ti-ya-aš" },
		{ "𒊮𒅕", hit_tag.tag_sumerogram("ŠÀ") .. "-er" },
		{ "𒉺𒄴𒄷𒉿𒅈", "pa-aḫ-ḫu-wa-ar" },
		{ "𒉺𒄴𒄯", "pa-aḫ-ḫur" },
		{ "𒉺𒄴𒄷𒌋𒌨", "pa-aḫ-ḫu-u-ur" },
		{ "𒉺𒄴𒄷𒂊𒈾𒀭𒍝", "pa-aḫ-ḫu-e-na-an-za" },
		{ "𒉺𒄴𒄷𒂊𒉌", "pa-aḫ-ḫu-e-ni" },
		{ "𒉺𒄴𒄷𒂊𒉌𒀉", "pa-aḫ-ḫu-e-ni-it" },
		{ "𒉺𒄴𒄷𒀭𒋫", "pa-aḫ-ḫu-an-ta" },
		{ "𒄩𒀸𒋼𒅕𒍝", "ḫa-aš-te-er-za" },
		{ "𒀭𒋫𒊏𒀸", "an-ta-ra-aš" },
		{ "𒉺𒀀𒄿", "pa-a-i" },
		{ "𒀀𒀀𒊏", "a-a-ra" },
		{ "𒀀𒊭𒀀𒀭𒋫𒀭", "a-ša-a-an-ta-an" },
		{ "𒀀𒊭𒀀𒀭𒋫𒀸", "a-ša-a-an-ta-aš" },
		{ "𒈗𒍑", hit_tag.tag_sumerogram("LUGAL") .. "-uš" },
		{ "𒈗𒌑𒉿𒀸", hit_tag.tag_sumerogram("LUGAL") .. "-ú-wa-aš" },
		{ "𒄯𒁖𒂵𒀸", "ḫar-tág-ga-aš" },
		{ "𒄯𒁖𒄀", "ḫar-tág-gi" },
		{ "𒍝𒀊𒍝𒋡𒅀", "za-ap-za-ka₄-ya" },
		{ "𒄭𒅖𒊭𒀭", "ḫi-iš-ša-an" },
		{ "𒄯𒁖𒄀𒌍", "ḫar-tág-ge-eš" },
		{ "𒋼𒊑𒀉𒋾𒌅𒌋𒉌𒅖", "te-ri-it-ti-tu-u-ni-iš" },
		{ "𒁺𒌓𒋻𒊑𒅀𒋾𒅀𒀸", "tù-ut-tar-ri-ya-ti-ya-aš" },
		{ "𒀭𒌅𒉿𒄴𒄩𒀸", "an-tu-wa-aḫ-ḫa-aš" },
		{ "𒋻𒆪𒉿𒀭𒍣", "tar-ku-wa-an-zi" },
		{ "𒋫𒀀𒊒", "ta-a-ru" },
	}
	
	tests:iterate(test_tr, function(self, text, tr)
		self:equals(hit_tag.tag_hittite(text), hit_translit.tr(text, "hit", "Xsux"), hit_tag.tag_hittite_tr(tr))
	end)
end

local test_syls = {
	{ "aš", { "a", "s" } },
	{ "ḫal", { "h", "l" } },
	{ "pal", { "p", "l" } },
	{ "bal", { "b", "l" } },
	{ "šir", { "s", "r" } },
	{ "ḫaš", { "h", "s" } },
	{ "pát", { "p", "t" } },
	{ "ga₅", { "g", "a" } },
	{ "ka₄", { "k", "a" } },
	{ "in₄", { "i", "n" } },
	{ "né", { "n", "e" } },
	{ "30", { "3", "0" } },
}

function tests:find_seg(func, index)
	return function(self, syl, lauts)
		self:equals(syl, func(syl), lauts[index])
	end
end

function tests:test_2_find_onset()
	tests:iterate(test_syls, tests:find_seg(hit_translit.find_onset, 1))
end

function tests:test_3_find_coda()
	tests:iterate(test_syls, tests:find_seg(hit_translit.find_coda, 2))
end

function tests:test_4_hash_sign()
	local test_signs = {
		{
			{ "it", "id", "et", "ed", hit = true },
			{
				{ "it", o = "i", c = "t" },
				{ "id", o = "i", c = "d" },
				{ "et", o = "e", c = "t" },
				{ "ed", o = "e", c = "d" },
				o_hash = 6,
				c_hash = 192,
				hit = true,
			}
		},
	}
	
	tests:iterate(test_signs, function(self, sign, initialized)
		self:equals_deep("-", hit_translit.hash_sign(sign), initialized)
	end)
end

function tests:test_5_copy_sign()
	local test_signs = {
		{
			"𒄫",
			{
				{ "paš", c = "s", o = "p" },
				{ "pùš", c = "s", o = "p" },
				{ "piš", c = "s", o = "p" },
				{ "biš", c = "s", o = "b" },
				{ "kir", c = "r", o = "k" },
				{ "gir", c = "r", o = "g" },
				{ "gir", c = "r", o = "g" },
				c_hash = 69632,
				hit = true,
				o_hash = 816
			}
		},
	}
	
	tests:iterate(test_signs, function(self, sign, init_copy)
		self:equals_deep("-", hit_translit.copy_sign(sign), init_copy)
	end)
end

return tests