msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

Reduce Params2 unittest (still fails)

Browse Source
This commit is contained in:
John J. Camilleri
2021-02-26 10:26:11 +01:00
parent 8324ad8801
commit 6a5d735904
2 changed files with 10 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
testsuite/lpgf/unittests/Params2.treebank
View File

@@ -1,2 +1,2 @@
Params2: SuchMassKind Good Salt
Params2Cnc: gutes Salz
Params2Cnc: Salz gutes

54
testsuite/lpgf/unittests/Params2Cnc.gf
View File

@@ -1,66 +1,30 @@
concrete Params2Cnc of Params2 = {
param ParamX_Number = ParamX_Sg | ParamX_Pl;
param Prelude_Bool = Prelude_False | Prelude_True;
param ResGer_Adjf = ResGer_Strong | ResGer_Weak;
param ResGer_Case =
ResGer_Nom | ResGer_Acc | ResGer_Dat | ResGer_Gen;
param ResGer_AForm =
ResGer_APred | ResGer_AMod ResGer_GenNum ResGer_Case;
param ResGer_AForm = ResGer_APred | ResGer_AMod ResGer_GenNum;
param ResGer_GenNum = ResGer_GSg ResGer_Gender | ResGer_GPl;
param ResGer_Gender = ResGer_Masc | ResGer_Fem | ResGer_Neutr;
lincat
Quality = {s : ResGer_AForm => Str};
MassKind =
{s : ResGer_Adjf => ParamX_Number => ResGer_Case => Str;
g : ResGer_Gender; };
MassKind = {s : Str; g : ResGer_Gender};
lin
SuchMassKind Quality_0 MassKind_1 =
{s =
table {_ => -- Strong/Weak
table {_ => -- Sg/Pl
table {_ => -- Nom/Acc/Dat/Gen
(((MassKind_1.s)!ResGer_Strong)!ParamX_Sg)!ResGer_Nom ++
(Quality_0.s)!(ResGer_AMod (ResGer_GSg (MassKind_1.g)) ResGer_Nom)}}};
(MassKind_1.s) ++
(Quality_0.s)!(ResGer_AMod (ResGer_GSg (MassKind_1.g)));
g = MassKind_1.g};
Salt =
{s =
table {ResGer_Strong =>
table {ParamX_Sg =>
table {ResGer_Nom => "Salz"; ResGer_Acc => "Salz";
ResGer_Dat => "Salz"; ResGer_Gen => "Salzes"};
ParamX_Pl =>
table {ResGer_Nom => "Salze"; ResGer_Acc => "Salze";
ResGer_Dat => "Salzen"; ResGer_Gen => "Salze"}};
ResGer_Weak =>
table {ParamX_Sg =>
table {ResGer_Nom => "Salz"; ResGer_Acc => "Salz";
ResGer_Dat => "Salz"; ResGer_Gen => "Salzes"};
ParamX_Pl =>
table {ResGer_Nom => "Salze"; ResGer_Acc => "Salze";
ResGer_Dat => "Salzen"; ResGer_Gen => "Salze"}}};
{s = "Salz";
g = ResGer_Neutr};
Good =
{s =
table {ResGer_APred => "gut";
ResGer_AMod (ResGer_GSg ResGer_Masc) ResGer_Nom => "guter";
ResGer_AMod (ResGer_GSg ResGer_Masc) ResGer_Acc => "guten";
ResGer_AMod (ResGer_GSg ResGer_Masc) ResGer_Dat => "gutem";
ResGer_AMod (ResGer_GSg ResGer_Masc) ResGer_Gen => "guten";
ResGer_AMod (ResGer_GSg ResGer_Fem) ResGer_Nom => "gute";
ResGer_AMod (ResGer_GSg ResGer_Fem) ResGer_Acc => "gute";
ResGer_AMod (ResGer_GSg ResGer_Fem) ResGer_Dat => "guter";
ResGer_AMod (ResGer_GSg ResGer_Fem) ResGer_Gen => "guter";
ResGer_AMod (ResGer_GSg ResGer_Neutr) ResGer_Nom => "gutes";
ResGer_AMod (ResGer_GSg ResGer_Neutr) ResGer_Acc => "gutes";
ResGer_AMod (ResGer_GSg ResGer_Neutr) ResGer_Dat => "gutem";
ResGer_AMod (ResGer_GSg ResGer_Neutr) ResGer_Gen => "guten";
ResGer_AMod ResGer_GPl ResGer_Nom => "gute";
ResGer_AMod ResGer_GPl ResGer_Acc => "gute";
ResGer_AMod ResGer_GPl ResGer_Dat => "guten";
ResGer_AMod ResGer_GPl ResGer_Gen => "guter"}};
ResGer_AMod (ResGer_GSg ResGer_Masc) => "guter";
ResGer_AMod (ResGer_GSg ResGer_Fem) => "gute";
ResGer_AMod (ResGer_GSg ResGer_Neutr) => "gutes";
ResGer_AMod ResGer_GPl => "gute"}};
}