forked from GitHub/gf-core
added testcase for categories with lincat C = {};
This commit is contained in:
9
testsuite/check/lins/lins.gf
Normal file
9
testsuite/check/lins/lins.gf
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
abstract lins = {
|
||||||
|
|
||||||
|
cat Nat ;
|
||||||
|
cat C Nat ;
|
||||||
|
|
||||||
|
fun zero : Nat ;
|
||||||
|
test : C zero ;
|
||||||
|
|
||||||
|
}
|
||||||
2
testsuite/check/lins/lins.gfs
Normal file
2
testsuite/check/lins/lins.gfs
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
i -erasing=on testsuite\check\lins\linsCnc.gf
|
||||||
|
pg -printer=pmcfg_pretty
|
||||||
12
testsuite/check/lins/lins.gfs.gold
Normal file
12
testsuite/check/lins/lins.gfs.gold
Normal file
@@ -0,0 +1,12 @@
|
|||||||
|
language linsCnc
|
||||||
|
|
||||||
|
productions
|
||||||
|
|
||||||
|
C1 -> F0[]
|
||||||
|
|
||||||
|
functions
|
||||||
|
|
||||||
|
F0 := () [zero]
|
||||||
|
|
||||||
|
sequences
|
||||||
|
|
||||||
11
testsuite/check/lins/linsCnc.gf
Normal file
11
testsuite/check/lins/linsCnc.gf
Normal file
@@ -0,0 +1,11 @@
|
|||||||
|
concrete linsCnc of lins = {
|
||||||
|
|
||||||
|
lincat Nat = {} ;
|
||||||
|
|
||||||
|
-- we expect warnings because the lines bellow are commented out
|
||||||
|
-- we don't expect warning for zero because Nat = {}
|
||||||
|
|
||||||
|
-- lincat C = {s : Str} ;
|
||||||
|
-- lin test = {s = "test"} ;
|
||||||
|
|
||||||
|
}
|
||||||
Reference in New Issue
Block a user