diff options
| author | krasimir <krasimir@chalmers.se> | 2009-06-13 13:54:06 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-06-13 13:54:06 +0000 |
| commit | 9142fcff76eabaabe984760c211be1a0f31bcb55 (patch) | |
| tree | cdf8b8e5fa53b9049f96d7a37affa38ae42e3408 /testsuite/compiler | |
| parent | c25d7be8773f2a2ee643d1d266b02bd2076f04be (diff) | |
split the testsuite to different directories for compiler, runtime and libraries
Diffstat (limited to 'testsuite/compiler')
| -rw-r--r-- | testsuite/compiler/check/lins/lins.gf | 9 | ||||
| -rw-r--r-- | testsuite/compiler/check/lins/lins.gfs | 2 | ||||
| -rw-r--r-- | testsuite/compiler/check/lins/lins.gfs.gold | 17 | ||||
| -rw-r--r-- | testsuite/compiler/check/lins/linsCnc.gf | 11 | ||||
| -rw-r--r-- | testsuite/compiler/typecheck/Check.gf | 14 | ||||
| -rw-r--r-- | testsuite/compiler/update/ArrityCheck.gf | 5 | ||||
| -rw-r--r-- | testsuite/compiler/update/ArrityCheck.gfs | 1 | ||||
| -rw-r--r-- | testsuite/compiler/update/ArrityCheck.gfs.gold | 8 |
8 files changed, 67 insertions, 0 deletions
diff --git a/testsuite/compiler/check/lins/lins.gf b/testsuite/compiler/check/lins/lins.gf new file mode 100644 index 000000000..9da3058d9 --- /dev/null +++ b/testsuite/compiler/check/lins/lins.gf @@ -0,0 +1,9 @@ +abstract lins = {
+
+cat Nat ;
+cat C Nat ;
+
+fun zero : Nat ;
+ test : C zero ;
+
+}
\ No newline at end of file diff --git a/testsuite/compiler/check/lins/lins.gfs b/testsuite/compiler/check/lins/lins.gfs new file mode 100644 index 000000000..f84b865d9 --- /dev/null +++ b/testsuite/compiler/check/lins/lins.gfs @@ -0,0 +1,2 @@ +i -src -erasing=on testsuite/compiler/check/lins/linsCnc.gf
+pg -printer=pmcfg_pretty
diff --git a/testsuite/compiler/check/lins/lins.gfs.gold b/testsuite/compiler/check/lins/lins.gfs.gold new file mode 100644 index 000000000..bce4d9d05 --- /dev/null +++ b/testsuite/compiler/check/lins/lins.gfs.gold @@ -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]
diff --git a/testsuite/compiler/check/lins/linsCnc.gf b/testsuite/compiler/check/lins/linsCnc.gf new file mode 100644 index 000000000..3d430f5a0 --- /dev/null +++ b/testsuite/compiler/check/lins/linsCnc.gf @@ -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"} ;
+
+}
\ No newline at end of file diff --git a/testsuite/compiler/typecheck/Check.gf b/testsuite/compiler/typecheck/Check.gf new file mode 100644 index 000000000..38d098209 --- /dev/null +++ b/testsuite/compiler/typecheck/Check.gf @@ -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 ; + +} diff --git a/testsuite/compiler/update/ArrityCheck.gf b/testsuite/compiler/update/ArrityCheck.gf new file mode 100644 index 000000000..9ee03ba6e --- /dev/null +++ b/testsuite/compiler/update/ArrityCheck.gf @@ -0,0 +1,5 @@ +abstract ArrityCheck = {
+ fun f : Int -> Int -> Int ;
+ def f 0 = \x -> x ;
+ f 1 1 = 0 ;
+}
diff --git a/testsuite/compiler/update/ArrityCheck.gfs b/testsuite/compiler/update/ArrityCheck.gfs new file mode 100644 index 000000000..69d739975 --- /dev/null +++ b/testsuite/compiler/update/ArrityCheck.gfs @@ -0,0 +1 @@ +i testsuite/compiler/update/ArrityCheck.gf
diff --git a/testsuite/compiler/update/ArrityCheck.gfs.gold b/testsuite/compiler/update/ArrityCheck.gfs.gold new file mode 100644 index 000000000..d6ea2bb0c --- /dev/null +++ b/testsuite/compiler/update/ArrityCheck.gfs.gold @@ -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
|