forked from GitHub/gf-core
split the testsuite to different directories for compiler, runtime and libraries
This commit is contained in:
@@ -0,0 +1,9 @@
|
||||
abstract lins = {
|
||||
|
||||
cat Nat ;
|
||||
cat C Nat ;
|
||||
|
||||
fun zero : Nat ;
|
||||
test : C zero ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,2 @@
|
||||
i -src -erasing=on testsuite/compiler/check/lins/linsCnc.gf
|
||||
pg -printer=pmcfg_pretty
|
||||
@@ -0,0 +1,17 @@
|
||||
checking module linsCnc␍
|
||||
Warning: no linearization type for C, inserting default {s : Str}␍
|
||||
checking module linsCnc␍
|
||||
Warning: no linearization of test␍
|
||||
␍
|
||||
language linsCnc␍
|
||||
productions␍
|
||||
C1 -> F0[]␍
|
||||
functions␍
|
||||
F0 := () [zero]␍
|
||||
sequences␍
|
||||
startcats␍
|
||||
C := [C0]␍
|
||||
Float := [Float]␍
|
||||
Int := [Int]␍
|
||||
Nat := [C1]␍
|
||||
String := [String]␍
|
||||
@@ -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"} ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,14 @@
|
||||
abstract Check = {
|
||||
|
||||
cat Typ ; Exp Typ ;
|
||||
|
||||
fun plus : (t : Typ) -> (_,_ : Exp t) -> Exp t ;
|
||||
|
||||
fun TInt, TFloat : Typ ;
|
||||
|
||||
fun Zero : Exp TInt ;
|
||||
fun Pi : Exp TFloat ;
|
||||
|
||||
fun sqrt : Exp TFloat -> Exp TFloat ;
|
||||
|
||||
}
|
||||
@@ -0,0 +1,5 @@
|
||||
abstract ArrityCheck = {
|
||||
fun f : Int -> Int -> Int ;
|
||||
def f 0 = \x -> x ;
|
||||
f 1 1 = 0 ;
|
||||
}
|
||||
@@ -0,0 +1 @@
|
||||
i testsuite/compiler/update/ArrityCheck.gf
|
||||
@@ -0,0 +1,8 @@
|
||||
␍
|
||||
␍
|
||||
C:\gf_2\testsuite\compiler\update\ArrityCheck.gf:6:1: cannot unify the informations␍
|
||||
fun f : Int -> Int -> Int ;␍
|
||||
def f 0 = \x -> x ;␍
|
||||
and␍
|
||||
def f 1 1 = 0 ;␍
|
||||
in module ArrityCheck␍
|
||||
Reference in New Issue
Block a user