added testcase for categories with lincat C = {};

This commit is contained in:
krasimir
2009-05-20 16:27:12 +00:00
parent 4a2b219921
commit c6dcec2e9c
4 changed files with 34 additions and 0 deletions

View File

@@ -0,0 +1,9 @@
abstract lins = {
cat Nat ;
cat C Nat ;
fun zero : Nat ;
test : C zero ;
}

View File

@@ -0,0 +1,2 @@
i -erasing=on testsuite\check\lins\linsCnc.gf
pg -printer=pmcfg_pretty

View File

@@ -0,0 +1,12 @@
language linsCnc
productions
C1 -> F0[]
functions
F0 := () [zero]
sequences

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