GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-08 02:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

Add more complex param/table unit tests and pass them. Still fails on Phrasebook though.

Browse Source
This commit is contained in:
John J. Camilleri
2021-03-04 12:37:12 +01:00
parent 0ba0438dc7
commit f5886bf447
9 changed files with 364 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
testsuite/lpgf/unittests/Params5Cnc.gf Normal file
View File

@@ -0,0 +1,72 @@
concrete Params5Cnc of Params5 = {
param
P = P1 | PQ Q ;
Q = Q1 | QR R ;
R = R1 | R2 ;
lincat
P_ = P ;
Q_ = Q ;
R_ = R ;
S = Str ;
lin
p1 = P1 ;
pq q = PQ q ;
q1 = Q1 ;
qr r = QR r ;
r1 = R1 ;
r2 = R2 ;
showP p = tblP ! p ;
showPQ p q = tblPQRec ! { p = p ; q = q } ;
showQP q p = tblQPRec ! { q = q ; p = p } ;
oper
tblP : P => Str ;
tblP = table {
P1 => "P1";
PQ Q1 => "PQ Q1";
PQ (QR R1) => "PQ (QR R1)";
PQ (QR R2) => "PQ (QR R2)"
} ;
tblQPRec : {q:Q ; p:P} => Str ;
tblQPRec = table {
{q=Q1 ; p=P1} => "Q1 ; P1";
{q=Q1 ; p=PQ Q1} => "Q1 ; PQ Q1";
{q=Q1 ; p=PQ (QR R1)} => "Q1 ; PQ (QR R1)";
{q=Q1 ; p=PQ (QR R2)} => "Q1 ; PQ (QR R2)";
{q=QR R1 ; p=P1} => "QR R1 ; P1";
{q=QR R1 ; p=PQ Q1} => "QR R1 ; PQ Q1";
{q=QR R1 ; p=PQ (QR R1)} => "QR R1 ; PQ (QR R1)";
{q=QR R1 ; p=PQ (QR R2)} => "QR R1 ; PQ (QR R2)";
{q=QR R2 ; p=P1} => "QR R2 ; P1";
{q=QR R2 ; p=PQ Q1} => "QR R2 ; PQ Q1";
{q=QR R2 ; p=PQ (QR R1)} => "QR R2 ; PQ (QR R1)";
{q=QR R2 ; p=PQ (QR R2)} => "QR R2 ; PQ (QR R2)"
} ;
tblPQRec : {p:P ; q:Q} => Str ;
tblPQRec = table {
{p=P1 ; q=Q1} => "P1 ; Q1";
{p=P1 ; q=QR R1} => "P1 ; QR R1";
{p=P1 ; q=QR R2} => "P1 ; QR R2";
{p=PQ Q1 ; q=Q1} => "PQ Q1 ; Q1";
{p=PQ Q1 ; q=QR R1} => "PQ Q1 ; QR R1";
{p=PQ Q1 ; q=QR R2} => "PQ Q1 ; QR R2";
{p=PQ (QR R1) ; q=Q1} => "PQ (QR R1) ; Q1";
{p=PQ (QR R1) ; q=QR R1} => "PQ (QR R1) ; QR R1";
{p=PQ (QR R1) ; q=QR R2} => "PQ (QR R1) ; QR R2";
{p=PQ (QR R2) ; q=Q1} => "PQ (QR R2) ; Q1";
{p=PQ (QR R2) ; q=QR R1} => "PQ (QR R2) ; QR R1";
{p=PQ (QR R2) ; q=QR R2} => "PQ (QR R2) ; QR R2"
} ;
}