upgrade the testsuite to work with GHC 6.12

This commit is contained in:
krasimir
2010-04-30 19:27:53 +00:00
parent 87cc4d7624
commit 61a1171811
21 changed files with 311 additions and 311 deletions
@@ -1,4 +1,4 @@
␍
␍
checking module Test1Abs␍
circular definitions: A B␍
checking module Test1Abs
circular definitions: A B
@@ -1,4 +1,4 @@
␍
␍
checking module Test2Abs␍
circular definitions: f g␍
checking module Test2Abs
circular definitions: f g
@@ -1,8 +1,8 @@
␍
␍
checking module TestOpers␍
circular definitions: A B␍
␍
␍
checking module TestOperTypes␍
circular definitions: A T␍
checking module TestOpers
circular definitions: A B
checking module TestOperTypes
circular definitions: A T
@@ -1,4 +1,4 @@
␍
␍
checking module TestParams␍
circular definitions: A B␍
checking module TestParams
circular definitions: A B
@@ -1,7 +1,7 @@
␍
␍
checking module TestCnc␍
Happened in linearization type of S in TestCnc.gf, line 3:␍
type of PTrue␍
expected: Type␍
inferred: PBool␍
checking module TestCnc
Happened in linearization type of S in TestCnc.gf, line 3:
type of PTrue
expected: Type
inferred: PBool
+37 -37
View File
@@ -1,37 +1,37 @@
checking module linsCnc␍
Warning: no linearization type for C, inserting default {s : Str}␍
Warning: no linearization of test␍
abstract lins {␍
cat C Nat␍
cat Float␍
cat Int␍
cat Nat␍
cat String␍
fun test : C zero␍
fun zero : Nat␍
}␍
concrete linsCnc {␍
productions␍
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"]␍
}␍
checking module linsCnc
Warning: no linearization type for C, inserting default {s : Str}
Warning: no linearization of test
abstract lins {
cat C Nat
cat Float
cat Int
cat Nat
cat String
fun test : C zero
fun zero : Nat
}
concrete linsCnc {
productions
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"]
}
@@ -1,5 +1,5 @@
␍
␍
checking module Res␍
Happened in operation my_oper in Res.gf, line 3:␍
No definition given to the operation␍
checking module Res
Happened in operation my_oper in Res.gf, line 3:
No definition given to the operation