msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

upgrade the testsuite to work with GHC 6.12

Browse Source
This commit is contained in:
krasimir
2010-04-30 19:27:53 +00:00
parent 329c39b4d4
commit af5f12d672
21 changed files with 311 additions and 311 deletions
Download Patch File Download Diff File Expand all files Collapse all files
testsuite/compiler/check/cyclic/abs-types/test1.gfs.gold
+4 -4
View File
@@ -1,4 +1,4 @@
␍
␍
checking module Test1Abs␍ checking module Test1Abs
circular definitions: A B␍ circular definitions: A B
testsuite/compiler/check/cyclic/abs-types/test2.gfs.gold
+4 -4
View File
@@ -1,4 +1,4 @@
␍
␍
checking module Test2Abs␍ checking module Test2Abs
circular definitions: f g␍ circular definitions: f g
testsuite/compiler/check/cyclic/opers/test.gfs.gold
+8 -8
View File
@@ -1,8 +1,8 @@
␍
␍
checking module TestOpers␍ checking module TestOpers
circular definitions: A B␍ circular definitions: A B
␍
␍
checking module TestOperTypes␍ checking module TestOperTypes
circular definitions: A T␍ circular definitions: A T
testsuite/compiler/check/cyclic/params/test.gfs.gold
+4 -4
View File
@@ -1,4 +1,4 @@
␍
␍
checking module TestParams␍ checking module TestParams
circular definitions: A B␍ circular definitions: A B
testsuite/compiler/check/lincat-types/test.gfs.gold
+7 -7
View File
@@ -1,7 +1,7 @@
␍
␍
checking module TestCnc␍ checking module TestCnc
Happened in linearization type of S in TestCnc.gf, line 3:␍ Happened in linearization type of S in TestCnc.gf, line 3:
type of PTrue␍ type of PTrue
expected: Type␍ expected: Type
inferred: PBool␍ inferred: PBool
testsuite/compiler/check/lins/lins.gfs.gold
+37 -37
View File
@@ -1,37 +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
abstract lins {␍ abstract lins {
cat C Nat␍ cat C Nat
cat Float␍ cat Float
cat Int␍ cat Int
cat Nat␍ cat Nat
cat String␍ cat String
fun test : C zero␍ fun test : C zero
fun zero : Nat␍ fun zero : Nat
}␍ }
concrete linsCnc {␍ concrete linsCnc {
productions␍ productions
C0 -> F0[CVar]␍ C0 -> F0[CVar]
C1 -> F1[CVar]␍ C1 -> F1[CVar]
C1 -> F2[]␍ C1 -> F2[]
functions␍ functions
F0 := (S0) [__gfV]␍ F0 := (S0) [__gfV]
F1 := () [__gfV]␍ F1 := () [__gfV]
F2 := () [zero]␍ F2 := () [zero]
sequences␍ sequences
S0 := <0,0>␍ S0 := <0,0>
categories␍ categories
C := range [C0 .. C0]␍ C := range [C0 .. C0]
labels ["s"]␍ labels ["s"]
Float := range [CFloat .. CFloat]␍ Float := range [CFloat .. CFloat]
labels ["s"]␍ labels ["s"]
Int := range [CInt .. CInt]␍ Int := range [CInt .. CInt]
labels ["s"]␍ labels ["s"]
Nat := range [C1 .. C1]␍ Nat := range [C1 .. C1]
labels []␍ labels []
String := range [CString .. CString]␍ String := range [CString .. CString]
labels ["s"]␍ labels ["s"]
__gfVar := range [CVar .. CVar]␍ __gfVar := range [CVar .. CVar]
labels ["s"]␍ labels ["s"]
}␍ }
testsuite/compiler/check/oper-definition/test.gfs.gold
+5 -5
View File
@@ -1,5 +1,5 @@
␍
␍
checking module Res␍ checking module Res
Happened in operation my_oper in Res.gf, line 3:␍ Happened in operation my_oper in Res.gf, line 3:
No definition given to the operation␍ No definition given to the operation
testsuite/compiler/renamer/funpatt.gfs.gold
+5 -5
View File
@@ -1,5 +1,5 @@
␍
␍
renaming module funpatt␍ renaming module funpatt
renaming definition of d in funpatt.gf, line 12␍ renaming of d in funpatt.gf, line 11
data constructor expected but funpatt.D1 is found instead␍ data constructor expected but funpatt.D1 is found instead
testsuite/compiler/renamer/varpatt.gfs.gold
+4 -4
View File
@@ -1,4 +1,4 @@
1␍ 1
␍
1␍ 1
␍
testsuite/compiler/typecheck/abstract/LetInTypesAbs.gfs.gold
+1 -1
View File
@@ -1 +1 @@
fun f : (Int -> Int) -> Int -> Int␍ fun f : (Int -> Int) -> Int -> Int
testsuite/compiler/typecheck/abstract/test_A.gfs.gold
+5 -5
View File
@@ -1,5 +1,5 @@
␍
␍
checking module A␍ checking module A
Prod expected for function A instead of Type␍ Prod expected for function A instead of Type
in category B in A.gf, line 4␍ in category B in A.gf, line 4
testsuite/compiler/typecheck/abstract/test_B.gfs.gold
+5 -5
View File
@@ -1,5 +1,5 @@
␍
␍
checking module B␍ checking module B
Prod expected for function S instead of Type␍ Prod expected for function S instead of Type
in type of function f in B.gf, line 5␍ in type of function f in B.gf, line 5
testsuite/compiler/typecheck/abstract/test_C.gfs.gold
+5 -5
View File
@@ -1,5 +1,5 @@
␍
␍
checking module C␍ checking module C
{Int <> S}␍ {Int <> S}
in definition of function f in C.gf, line 6␍ in definition of function f in C.gf, line 6
testsuite/compiler/typecheck/concrete/test_A.gfs.gold
+5 -5
View File
@@ -1,5 +1,5 @@
␍
␍
checking module A␍ checking module A
Happened in operation silly in A.gf, line 5:␍ Happened in operation silly in A.gf, line 5:
A function type is expected for a_Det instead of type Str␍ A function type is expected for a_Det instead of type Str
testsuite/compiler/update/ArrityCheck.gfs.gold
+8 -8
View File
@@ -1,8 +1,8 @@
␍
␍
C:\gf_3\testsuite\compiler\update\ArrityCheck.gf:6:1: cannot unify the informations␍ C:\gf\testsuite\compiler\update\ArrityCheck.gf:6:1: cannot unify the informations
fun f : Int -> Int -> Int ;␍ fun f : Int -> Int -> Int ;
def f 0 = \x -> x ;␍ def f 0 = \x -> x ;
and␍ and
def f 1 1 = 0 ;␍ def f 1 1 = 0 ;
in module ArrityCheck␍ in module ArrityCheck
testsuite/runtime/eval/eval.gfs.gold
+64 -64
View File
@@ -1,64 +1,64 @@
\x -> x 1␍ \x -> x 1
␍
?1 1␍ ?1 1
␍
?3 1␍ ?3 1
␍
f 1 2␍ f 1 2
␍
\x -> x␍ \x -> x
␍
?1␍ ?1
␍
f␍ f
␍
f 1 2␍ f 1 2
␍
2␍ 2
␍
g 0␍ g 0
␍
\x -> g x␍ \x -> g x
␍
g ?1␍ g ?1
␍
5␍ 5
␍
3␍ 3
␍
g2␍ g2
␍
f 32␍ f 32
␍
g2 23␍ g2 23
␍
3.14␍ 3.14
␍
succ zero␍ succ zero
␍
?1␍ ?1
␍
zeroF␍ zeroF
␍
dec (succF zeroF)␍ dec (succF zeroF)
␍
dec zeroF␍ dec zeroF
␍
\x -> dec x␍ \x -> dec x
␍
dec ?1␍ dec ?1
␍
g3 ?3 0␍ g3 ?3 0
␍
g (g2 ?1 0)␍ g (g2 ?1 0)
␍
succ (succ zero)␍ succ (succ zero)
␍
zero␍ zero
␍
dec2 0 err␍ dec2 0 err
␍
succ err␍ succ err
␍
\x -> dec (dec x)␍ \x -> dec (dec x)
␍
testsuite/runtime/eval/lazy.gfs.gold
+2 -2
View File
@@ -1,2 +1,2 @@
succ (succ (succ zero))␍ succ (succ (succ zero))
␍
testsuite/runtime/linearize/linearize.gfs.gold
+30 -30
View File
@@ -1,30 +1,30 @@
?1 is even␍ ?1 is even
␍
␍
exists x such that x is even␍ exists x such that x is even
␍
␍
a␍ a
␍
␍
aa a␍ aa a
␍
␍
a b␍ a b
␍
␍
abcd is string␍ abcd is string
␍
␍
100 is integer␍ 100 is integer
␍
␍
12.4 is float␍ 12.4 is float
␍
␍
xyz is string␍ xyz is string
␍
␍
␍
␍
␍
testsuite/runtime/paraphrase/lambda.gfs.gold
+12 -12
View File
@@ -1,12 +1,12 @@
\x -> x␍ \x -> x
␍
1␍ 1
␍
\x -> x␍ \x -> x
␍
\x -> 2␍ \x -> 2
␍
1␍ 1
␍
2␍ 2
␍
testsuite/runtime/typecheck/implicit-arguments.gfs.gold
+22 -22
View File
@@ -1,22 +1,22 @@
Expression: join {n1} {n2} {n3} l12 (link {n2} {n3} l23)␍ Expression: join {n1} {n2} {n3} l12 (link {n2} {n3} l23)
Type: Path n1 n3␍ Type: Path n1 n3
␍
Expression: join {n1} {n2} {n3} l12 (link {n2} {n3} l23)␍ Expression: join {n1} {n2} {n3} l12 (link {n2} {n3} l23)
Type: Path n1 n3␍ Type: Path n1 n3
␍
Expression: <?2 : Label {?1}>␍ Expression: <?2 : Label {?1}>
Type: Label {?1}␍ Type: Label {?1}
␍
Expression: <?2 : Label {n1}>␍ Expression: <?2 : Label {n1}>
Type: Label {n1}␍ Type: Label {n1}
␍
{n1} is implicit argument but not implicit argument is expected here␍ {n1} is implicit argument but not implicit argument is expected here
Expression: <\{_1}, x -> x : ({m} : Node) -> (n : Node) -> Node>␍ Expression: <\{_1}, x -> x : ({m} : Node) -> (n : Node) -> Node>
Type: ({m} : Node) -> (n : Node) -> Node␍ Type: ({m} : Node) -> (n : Node) -> Node
␍
Expression: <\{_1} -> n1 : ({m} : Node) -> Node>␍ Expression: <\{_1} -> n1 : ({m} : Node) -> Node>
Type: ({m} : Node) -> Node␍ Type: ({m} : Node) -> Node
␍
Expression: <\{_1} -> ?1 : ({m} : Node) -> Node>␍ Expression: <\{_1} -> ?1 : ({m} : Node) -> Node>
Type: ({m} : Node) -> Node␍ Type: ({m} : Node) -> Node
␍
testsuite/runtime/typecheck/typecheck.gfs.gold
+74 -74
View File
@@ -1,74 +1,74 @@
Couldn't match expected type Nat␍ Couldn't match expected type Nat
against inferred type String␍ against inferred type String
In the expression: "0"␍ In the expression: "0"
Category Int should have 0 argument(s), but has been given 1␍ Category Int should have 0 argument(s), but has been given 1
In the type: Int 0␍ In the type: Int 0
A function type is expected for the expression 1 instead of type Int␍ A function type is expected for the expression 1 instead of type Int
Couldn't match expected type Int -> Int␍ Couldn't match expected type Int -> Int
against inferred type Int␍ against inferred type Int
In the expression: 1␍ In the expression: 1
unknown category of function identifier unknown_fun␍ unknown category of function identifier unknown_fun
␍
Category unknown_cat is not in scope␍ Category unknown_cat is not in scope
Cannot infer the type of expression \x -> x␍ Cannot infer the type of expression \x -> x
A function type is expected for the expression \x -> x instead of type Int␍ A function type is expected for the expression \x -> x instead of type Int
Expression: append (succ (succ zero)) (succ zero) (vector (succ (succ zero))) (vector (succ zero))␍ Expression: append (succ (succ zero)) (succ zero) (vector (succ (succ zero))) (vector (succ zero))
Type: Vector (succ (succ (succ zero)))␍ Type: Vector (succ (succ (succ zero)))
␍
Expression: <\m, n -> vector (plus m n) : (m : Nat) -> (n : Nat) -> Vector (plus m n)>␍ Expression: <\m, n -> vector (plus m n) : (m : Nat) -> (n : Nat) -> Vector (plus m n)>
Type: (m : Nat) -> (n : Nat) -> Vector (plus m n)␍ Type: (m : Nat) -> (n : Nat) -> Vector (plus m n)
␍
Expression: mkMorph (\x -> succ zero)␍ Expression: mkMorph (\x -> succ zero)
Type: Morph (\x -> succ zero)␍ Type: Morph (\x -> succ zero)
␍
Expression: idMorph (mkMorph (\x -> x))␍ Expression: idMorph (mkMorph (\x -> x))
Type: Nat␍ Type: Nat
␍
Couldn't match expected type Morph (\x -> x)␍ Couldn't match expected type Morph (\x -> x)
against inferred type Morph (\x -> succ zero)␍ against inferred type Morph (\x -> succ zero)
In the expression: mkMorph (\x -> succ zero)␍ In the expression: mkMorph (\x -> succ zero)
Expression: <append zero (succ zero) : Vector zero -> Vector (succ zero) -> Vector (succ zero)>␍ Expression: <append zero (succ zero) : Vector zero -> Vector (succ zero) -> Vector (succ zero)>
Type: Vector zero -> Vector (succ zero) -> Vector (succ zero)␍ Type: Vector zero -> Vector (succ zero) -> Vector (succ zero)
␍
Expression: <\n, v1, n1, v2 -> append n n1 v1 v2 : (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)>␍ Expression: <\n, v1, n1, v2 -> append n n1 v1 v2 : (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)>
Type: (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)␍ Type: (n : Nat) -> Vector n -> (m : Nat) -> Vector m -> Vector (plus n m)
␍
Category EQ is not in scope␍ Category EQ is not in scope
Expression: <\v1, v2 -> cmpVector ?7 v1 v2 : Vector ?7 -> Vector ?7 -> Int> (vector ?7)␍ Expression: <\v1, v2 -> cmpVector ?7 v1 v2 : Vector ?7 -> Vector ?7 -> Int> (vector ?7)
Type: Vector ?7 -> Int␍ Type: Vector ?7 -> Int
␍
Couldn't match expected type (m : Nat) -> Vector ?1␍ Couldn't match expected type (m : Nat) -> Vector ?1
against inferred type (n : Nat) -> Vector n␍ against inferred type (n : Nat) -> Vector n
In the expression: vector␍ In the expression: vector
Expression: f1 (\v -> v) vector␍ Expression: f1 (\v -> v) vector
Type: Int␍ Type: Int
␍
Expression: f1 (\v -> succ v) (\x -> vector (succ x))␍ Expression: f1 (\v -> succ v) (\x -> vector (succ x))
Type: Int␍ Type: Int
␍
Couldn't match expected type Vector x␍ Couldn't match expected type Vector x
against inferred type Vector (succ x)␍ against inferred type Vector (succ x)
In the expression: vector (succ x)␍ In the expression: vector (succ x)
Couldn't match expected type Vector n␍ Couldn't match expected type Vector n
against inferred type Vector (succ n)␍ against inferred type Vector (succ n)
In the expression: vector (succ n)␍ In the expression: vector (succ n)
Expression: h ?2 (u0 ?2)␍ Expression: h ?2 (u0 ?2)
Type: Int␍ Type: Int
␍
Couldn't match expected type U ?2 ?2␍ Couldn't match expected type U ?2 ?2
against inferred type U ?2 (succ ?2)␍ against inferred type U ?2 (succ ?2)
In the expression: u1 ?2␍ In the expression: u1 ?2
Meta variable(s) ?11 should be resolved␍ Meta variable(s) ?11 should be resolved
in the expression: cmpVector (succ (succ zero)) (vector (succ (succ zero))) (append ?11 (succ zero) (vector ?11) (vector (succ zero)))␍ in the expression: cmpVector (succ (succ zero)) (vector (succ (succ zero))) (append ?11 (succ zero) (vector ?11) (vector (succ zero)))
Expression: diff (succ (succ (succ zero))) (succ (succ zero)) (vector (succ (succ (succ (succ (succ zero)))))) (vector (succ (succ (succ zero))))␍ Expression: diff (succ (succ (succ zero))) (succ (succ zero)) (vector (succ (succ (succ (succ (succ zero)))))) (vector (succ (succ (succ zero))))
Type: Vector (succ (succ zero))␍ Type: Vector (succ (succ zero))
␍
Couldn't match expected type Vector (plus (succ (succ (succ zero))) (succ (succ zero)))␍ Couldn't match expected type Vector (plus (succ (succ (succ zero))) (succ (succ zero)))
against inferred type Vector (succ (succ (succ (succ zero))))␍ against inferred type Vector (succ (succ (succ (succ zero))))
In the expression: vector (succ (succ (succ (succ zero))))␍ In the expression: vector (succ (succ (succ (succ zero))))
Couldn't match expected type Vector ?1␍ Couldn't match expected type Vector ?1
against inferred type Vector zero␍ against inferred type Vector zero
In the expression: vector zero␍ In the expression: vector zero
Couldn't match expected type Vector zero␍ Couldn't match expected type Vector zero
against inferred type Vector n␍ against inferred type Vector n
In the expression: x␍ In the expression: x