update the testsuite

This commit is contained in:
krasimir
2010-01-29 11:13:31 +00:00
parent 53a081bf0b
commit ed446a4295
2 changed files with 36 additions and 14 deletions
+2 -2
View File
@@ -1,2 +1,2 @@
i -src -erasing=on testsuite/compiler/check/lins/linsCnc.gf i -src testsuite/compiler/check/lins/linsCnc.gf
pg -printer=pmcfg_pretty pg -printer=pgf_pretty
+34 -12
View File
@@ -1,15 +1,37 @@
checking module linsCnc␍ checking module linsCnc␍
Warning: no linearization type for C, inserting default {s : Str}␍ Warning: no linearization type for C, inserting default {s : Str}␍
Warning: no linearization of test␍ Warning: no linearization of test␍
language linsCnc␍ abstract lins {␍
productions␍ cat C Nat␍
C1 -> F0[]␍ cat Float␍
functions␍ cat Int␍
F0 := () [zero]␍ cat Nat␍
sequences␍ cat String␍
startcats␍ fun test : C zero␍
C := [C0]␍ fun zero : Nat␍
Float := [CFloat]␍ }␍
Int := [CInt]␍ concrete linsCnc {␍
Nat := [C1]␍ productions␍
String := [CString]␍ C0 -> F0[CVar]␍
C1 -> F1[CVar]␍
C1 -> F2[]␍
functions␍
F0 := (S0) [__gfV]␍
F1 := () [__gfV]␍
F2 := () [zero]␍
sequences␍
S0 := <0,0>␍
categories␍
C := range [C0 .. C0]␍
labels ["s"]␍
Float := range [CFloat .. CFloat]␍
labels ["s"]␍
Int := range [CInt .. CInt]␍
labels ["s"]␍
Nat := range [C1 .. C1]␍
labels []␍
String := range [CString .. CString]␍
labels ["s"]␍
__gfVar := range [CVar .. CVar]␍
labels ["s"]␍
}␍