mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
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