mirror of
https://github.com/keymanapp/keyman.git
synced 2026-08-18 14:27:43 +00:00
chore(windows): Split tests to easier see which ones fail
This commit is contained in:
Eberhard Beilharz
parent
b208edc2ba
commit
4e27f64e1b
2 changed files with 64 additions and 5 deletions
|
|
@ -12,8 +12,24 @@ type
|
|||
[Setup]
|
||||
procedure Setup;
|
||||
|
||||
[Test]
|
||||
procedure TestGlkTag;
|
||||
[Test]
|
||||
procedure TestSqtTag;
|
||||
[Test]
|
||||
procedure TestSomeTags;
|
||||
[Test]
|
||||
procedure TestRawTag;
|
||||
[Test]
|
||||
procedure TestKmTag;
|
||||
[Test]
|
||||
procedure TestThTag;
|
||||
[Test]
|
||||
procedure TestTagsWithScript;
|
||||
[Test]
|
||||
procedure TestFonipaTags;
|
||||
[Test]
|
||||
procedure TestAzTag;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
|
@ -28,7 +44,7 @@ begin
|
|||
Assert.IgnoreCaseDefault := False;
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestSomeTags;
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestGlkTag;
|
||||
begin
|
||||
// #3485 - Gilaki (Latin) script
|
||||
Assert.AreEqual('glk-Arab-IR', TCanonicalLanguageCodeUtils.FindBestTag('glk', True, True));
|
||||
|
|
@ -37,28 +53,43 @@ begin
|
|||
Assert.AreEqual('glk-Arab-IR', TCanonicalLanguageCodeUtils.FindBestTag('glk-IR', True, True));
|
||||
Assert.AreEqual('glk-Latn-IR', TCanonicalLanguageCodeUtils.FindBestTag('glk-Latn', True, True));
|
||||
Assert.AreEqual('glk-Latn-IR', TCanonicalLanguageCodeUtils.FindBestTag('glk-Latn-IR', True, True));
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestSqtTag;
|
||||
begin
|
||||
// #1719
|
||||
Assert.AreEqual('sqt-Arab-YE', TCanonicalLanguageCodeUtils.FindBestTag('sqt', True, True));
|
||||
Assert.AreEqual('sqt-Arab-YE', TCanonicalLanguageCodeUtils.FindBestTag('sqt-YE', True, True));
|
||||
Assert.AreEqual('sqt-Arab-YE', TCanonicalLanguageCodeUtils.FindBestTag('sqt-Arab', True, True));
|
||||
Assert.AreEqual('sqt-Latn-YE', TCanonicalLanguageCodeUtils.FindBestTag('sqt-Latn', True, True));
|
||||
Assert.AreEqual('sqt-Latn-YE', TCanonicalLanguageCodeUtils.FindBestTag('sqt-Latn-YE', True, True));
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestSomeTags;
|
||||
begin
|
||||
Assert.AreEqual('sa-Latn', TCanonicalLanguageCodeUtils.FindBestTag('sa-Latn', True, True));
|
||||
Assert.AreEqual('he-Latn', TCanonicalLanguageCodeUtils.FindBestTag('he-Latn', True, True));
|
||||
Assert.AreEqual('hi-Latn-IN', TCanonicalLanguageCodeUtils.FindBestTag('hi-Latn', True, True));
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestRawTag;
|
||||
begin
|
||||
// #1282
|
||||
Assert.AreEqual('raw-Latn-MM', TCanonicalLanguageCodeUtils.FindBestTag('raw', True, True));
|
||||
Assert.AreEqual('raw-Latn-MM', TCanonicalLanguageCodeUtils.FindBestTag('raw-MM', True, True));
|
||||
Assert.AreEqual('raw-Latn-MM', TCanonicalLanguageCodeUtils.FindBestTag('raw-Latn', True, True));
|
||||
end;
|
||||
|
||||
// Various extended tags and tests
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestKmTag;
|
||||
begin
|
||||
Assert.AreEqual('km-KH', TCanonicalLanguageCodeUtils.FindBestTag('km', True, True));
|
||||
Assert.AreEqual('km-KH', TCanonicalLanguageCodeUtils.FindBestTag('km-kh', True, True));
|
||||
Assert.AreEqual('km-KH', TCanonicalLanguageCodeUtils.FindBestTag('km-khmr', True, True));
|
||||
Assert.AreEqual('km-KH', TCanonicalLanguageCodeUtils.FindBestTag('km-khmr-kh', True, True));
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestThTag;
|
||||
begin
|
||||
Assert.AreEqual('th-TH', TCanonicalLanguageCodeUtils.FindBestTag('th', True, True));
|
||||
Assert.AreEqual('th-TH', TCanonicalLanguageCodeUtils.FindBestTag('th-th', True, True));
|
||||
Assert.AreEqual('th-TH', TCanonicalLanguageCodeUtils.FindBestTag('th-thai-th', True, True));
|
||||
|
|
@ -67,7 +98,10 @@ begin
|
|||
// it was not found in our canonicalization tables. This is expected behaviour.
|
||||
// (Remember that BCP 47 tags are not case sensitive)
|
||||
Assert.AreEqual('th-Latn-DE', TCanonicalLanguageCodeUtils.FindBestTag('th-latn-de', True, True));
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestTagsWithScript;
|
||||
begin
|
||||
Assert.AreEqual('fr-FR', TCanonicalLanguageCodeUtils.FindBestTag('fr', True, True));
|
||||
Assert.AreEqual('fr-FR', TCanonicalLanguageCodeUtils.FindBestTag('fr-FR', True, True));
|
||||
Assert.AreEqual('fr-FR', TCanonicalLanguageCodeUtils.FindBestTag('fr-Latn-fr', True, True));
|
||||
|
|
@ -83,7 +117,10 @@ begin
|
|||
Assert.AreEqual('tpi-PG', TCanonicalLanguageCodeUtils.FindBestTag('tpi-Latn-PG', True, True));
|
||||
Assert.AreEqual('sv-SE', TCanonicalLanguageCodeUtils.FindBestTag('sv', True, True));
|
||||
Assert.AreEqual('en-US', TCanonicalLanguageCodeUtils.FindBestTag('en', True, True));
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestFonipaTags;
|
||||
begin
|
||||
// fonipa
|
||||
Assert.AreEqual('en-fonipa', TCanonicalLanguageCodeUtils.FindBestTag('en-fonipa', True, True));
|
||||
Assert.AreEqual('tpi-Latn-fonipa', TCanonicalLanguageCodeUtils.FindBestTag('tpi-Latn-fonipa', True, True));
|
||||
|
|
@ -92,7 +129,10 @@ begin
|
|||
Assert.AreEqual('fr-fonipa', TCanonicalLanguageCodeUtils.FindBestTag('fr-fonipa', True, True));
|
||||
Assert.AreEqual('und-fonipa', TCanonicalLanguageCodeUtils.FindBestTag('und-Latn-fonipa', True, True));
|
||||
Assert.AreEqual('und-fonipa', TCanonicalLanguageCodeUtils.FindBestTag('und-Latn-fonipa-x-test', True, True));
|
||||
end;
|
||||
|
||||
procedure TCanonicalLanguageCodeUtilsTest.TestAzTag;
|
||||
begin
|
||||
// az-Cyrl
|
||||
Assert.AreEqual('az-Cyrl-RU', TCanonicalLanguageCodeUtils.FindBestTag('az-Cyrl', True, True));
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -13,7 +13,15 @@ type
|
|||
procedure Setup;
|
||||
|
||||
[Test]
|
||||
procedure TestSomeTags;
|
||||
procedure TestTokPisinTag;
|
||||
[Test]
|
||||
procedure TestKhmerTag;
|
||||
[Test]
|
||||
procedure TestAkqTag;
|
||||
[Test]
|
||||
procedure TestAllTags;
|
||||
[Test]
|
||||
procedure TestUndTag;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
|
@ -28,7 +36,7 @@ begin
|
|||
Assert.IgnoreCaseDefault := False;
|
||||
end;
|
||||
|
||||
procedure TLangTagsTest.TestSomeTags;
|
||||
procedure TLangTagsTest.TestTokPisinTag;
|
||||
begin
|
||||
// Tok Pisin
|
||||
Assert.AreEqual('tpi', TLangTagsMap.LangTags['tpi'].tag);
|
||||
|
|
@ -39,7 +47,10 @@ begin
|
|||
Assert.AreEqual('Latn', TLangTagsMap.LangTags['tpi'].script);
|
||||
Assert.AreEqual(True, TLangTagsMap.LangTags['tpi'].suppress);
|
||||
Assert.AreEqual('tpi', TLangTagsMap.LangTags['tpi'].windows);
|
||||
end;
|
||||
|
||||
procedure TLangTagsTest.TestKhmerTag;
|
||||
begin
|
||||
// Khmer
|
||||
Assert.AreEqual('km', TLangTagsMap.LangTags['km'].tag);
|
||||
Assert.AreEqual('km-Khmr-KH', TLangTagsMap.LangTags['km'].full);
|
||||
|
|
@ -49,7 +60,10 @@ begin
|
|||
Assert.AreEqual('Khmr', TLangTagsMap.LangTags['km'].script);
|
||||
Assert.AreEqual(True, TLangTagsMap.LangTags['km'].suppress);
|
||||
Assert.AreEqual('km', TLangTagsMap.LangTags['km'].windows);
|
||||
end;
|
||||
|
||||
procedure TLangTagsTest.TestAkqTag;
|
||||
begin
|
||||
// Ak
|
||||
Assert.AreEqual('akq', TLangTagsMap.LangTags['akq'].tag);
|
||||
Assert.AreEqual('akq-Latn-PG', TLangTagsMap.LangTags['akq'].full);
|
||||
|
|
@ -57,13 +71,18 @@ begin
|
|||
Assert.AreEqual('PG', TLangTagsMap.LangTags['akq'].region);
|
||||
Assert.AreEqual(False, TLangTagsMap.LangTags['akq'].suppress);
|
||||
Assert.AreEqual('akq-Latn', TLangTagsMap.LangTags['akq'].windows);
|
||||
end;
|
||||
|
||||
procedure TLangTagsTest.TestAllTags;
|
||||
begin
|
||||
// All Tags
|
||||
|
||||
Assert.AreEqual('arx', TLangTagsMap.AllTags['arx-BR']);
|
||||
Assert.AreEqual('bfi-Zzzz-x-stokoe', TLangTagsMap.AllTags['sgn-bfi-GB-x-stokoe']);
|
||||
Assert.AreEqual('bfy', TLangTagsMap.AllTags['ppa-Deva-IN']);
|
||||
end;
|
||||
|
||||
procedure TLangTagsTest.TestUndTag;
|
||||
begin
|
||||
// und
|
||||
Assert.AreEqual('und', TLangTagsMap.LangTags['und'].tag);
|
||||
Assert.AreEqual('und-Zyyy-001', TLangTagsMap.LangTags['und'].full);
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue