msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests 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

20
testsuite/lpgf/unittests/Params4.gf Normal file
View File

@@ -0,0 +1,20 @@
abstract Params4 = {
cat
P_ ;
Q_ ;
S ;
fun
p1 : P_ ;
p2 : P_ ;
q1 : Q_ ;
q2 : Q_ ;
pqrec : P_ -> Q_ -> S ;
rp : P_ -> S ;
rpq : P_ -> Q_ -> S ;
r0 : S ;
xpq : P_ -> Q_ -> S ;
}

44
testsuite/lpgf/unittests/Params4.treebank Normal file
View File

@@ -0,0 +1,44 @@
Params4: pqrec p1 q1
Params4Cnc: P1 ; Q1
Params4: pqrec p1 q2
Params4Cnc: P1 ; Q2
Params4: pqrec p2 q1
Params4Cnc: P2 ; Q1
Params4: pqrec p2 q2
Params4Cnc: P2 ; Q2
Params4: r0
Params4Cnc: R0
Params4: rp p1
Params4Cnc: RP P1
Params4: rp p2
Params4Cnc: RP P2
Params4: rpq p1 q1
Params4Cnc: RPQ P1 Q1
Params4: rpq p1 q2
Params4Cnc: RPQ P1 Q2
Params4: rpq p2 q1
Params4Cnc: RPQ P2 Q1
Params4: rpq p2 q2
Params4Cnc: RPQ P2 Q2
Params4: xpq p1 q1
Params4Cnc: XPQ P1 Q1
Params4: xpq p1 q2
Params4Cnc: XPQ P1 Q2
Params4: xpq p2 q1
Params4Cnc: XPQ P2 Q1
Params4: xpq p2 q2
Params4Cnc: XPQ P2 Q2

61
testsuite/lpgf/unittests/Params4Cnc.gf Normal file
View File

@@ -0,0 +1,61 @@
concrete Params4Cnc of Params4 = {
param
P = P1 | P2 ;
Q = Q1 | Q2 ;
R = RP P | RPQ P Q | R0 ;
X = XPQ P Q ;
lincat
P_ = P ;
Q_ = Q ;
S = Str ;
lin
p1 = P1 ;
p2 = P2 ;
q1 = Q1 ;
q2 = Q2 ;
pqrec p q = tblPQRec ! { p = p ; q = q } ;
rp p = tblR ! RP p ;
rpq p q = tblR ! RPQ p q ;
r0 = tblR ! R0 ;
xpq p q = tblX ! XPQ p q ;
oper
tblP : P => Str ;
tblP = table {
P1 => "P1";
P2 => "P2"
} ;
tblPQRec : {p:P; q:Q} => Str ;
tblPQRec = table {
{p=P1; q=Q1} => "P1 ; Q1";
{p=P1; q=Q2} => "P1 ; Q2";
{p=P2; q=Q1} => "P2 ; Q1";
{p=P2; q=Q2} => "P2 ; Q2"
} ;
tblR : R => Str ;
tblR = table {
RP P1 => "RP P1";
RP P2 => "RP P2";
RPQ P1 Q1 => "RPQ P1 Q1";
RPQ P1 Q2 => "RPQ P1 Q2";
RPQ P2 Q1 => "RPQ P2 Q1";
RPQ P2 Q2 => "RPQ P2 Q2";
R0 => "R0"
} ;
tblX : X => Str ;
tblX = table {
XPQ P1 Q1 => "XPQ P1 Q1";
XPQ P1 Q2 => "XPQ P1 Q2";
XPQ P2 Q1 => "XPQ P2 Q1";
XPQ P2 Q2 => "XPQ P2 Q2"
} ;
}

19
testsuite/lpgf/unittests/Params5.gf Normal file
View File

@@ -0,0 +1,19 @@
abstract Params5 = {
cat
P_ ;
Q_ ;
R_ ;
S ;
fun
p1 : P_ ;
pq : Q_ -> P_ ;
q1 : Q_ ;
qr : R_ -> Q_ ;
r1 : R_ ;
r2 : R_ ;
showP : P_ -> S ;
showPQ : P_ -> Q_ -> S ;
showQP : Q_ -> P_ -> S ;
}

83
testsuite/lpgf/unittests/Params5.treebank Normal file
View File

@@ -0,0 +1,83 @@
Params5: showP p1
Params5Cnc: P1
Params5: showP (pq q1)
Params5Cnc: PQ Q1
Params5: showP (pq (qr r1))
Params5Cnc: PQ (QR R1)
Params5: showP (pq (qr r2))
Params5Cnc: PQ (QR R2)
Params5: showPQ p1 q1
Params5Cnc: P1 ; Q1
Params5: showPQ p1 (qr r1)
Params5Cnc: P1 ; QR R1
Params5: showPQ p1 (qr r2)
Params5Cnc: P1 ; QR R2
Params5: showPQ (pq q1) q1
Params5Cnc: PQ Q1 ; Q1
Params5: showPQ (pq q1) (qr r1)
Params5Cnc: PQ Q1 ; QR R1
Params5: showPQ (pq q1) (qr r2)
Params5Cnc: PQ Q1 ; QR R2
Params5: showPQ (pq (qr r1)) q1
Params5Cnc: PQ (QR R1) ; Q1
Params5: showPQ (pq (qr r1)) (qr r1)
Params5Cnc: PQ (QR R1) ; QR R1
Params5: showPQ (pq (qr r1)) (qr r2)
Params5Cnc: PQ (QR R1) ; QR R2
Params5: showPQ (pq (qr r2)) q1
Params5Cnc: PQ (QR R2) ; Q1
Params5: showPQ (pq (qr r2)) (qr r1)
Params5Cnc: PQ (QR R2) ; QR R1
Params5: showPQ (pq (qr r2)) (qr r2)
Params5Cnc: PQ (QR R2) ; QR R2
Params5: showQP q1 p1
Params5Cnc: Q1 ; P1
Params5: showQP q1 (pq q1)
Params5Cnc: Q1 ; PQ Q1
Params5: showQP q1 (pq (qr r1))
Params5Cnc: Q1 ; PQ (QR R1)
Params5: showQP q1 (pq (qr r2))
Params5Cnc: Q1 ; PQ (QR R2)
Params5: showQP (qr r1) p1
Params5Cnc: QR R1 ; P1
Params5: showQP (qr r1) (pq q1)
Params5Cnc: QR R1 ; PQ Q1
Params5: showQP (qr r1) (pq (qr r1))
Params5Cnc: QR R1 ; PQ (QR R1)
Params5: showQP (qr r1) (pq (qr r2))
Params5Cnc: QR R1 ; PQ (QR R2)
Params5: showQP (qr r2) p1
Params5Cnc: QR R2 ; P1
Params5: showQP (qr r2) (pq q1)
Params5Cnc: QR R2 ; PQ Q1
Params5: showQP (qr r2) (pq (qr r1))
Params5Cnc: QR R2 ; PQ (QR R1)
Params5: showQP (qr r2) (pq (qr r2))
Params5Cnc: QR R2 ; PQ (QR R2)

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"
} ;
}