added some tests in the testsuite for the compiler

testsuite/compiler/check/lins/lins.gfs.gold

@@ -1,8 +1,6 @@
 checking module linsCnc
-
-Warning: no linearization type for C, inserting default {s : Str}
-
-checking module linsCnc
+
+   Warning: no linearization type for C, inserting default {s : Str}
 
    Warning: no linearization of test
 

testsuite/compiler/check/oper-definition/Res.gf

@@ -0,0 +1,5 @@
+resource Res = {
+
+oper my_oper : Str -> Str ;
+
+}

testsuite/compiler/check/oper-definition/test.gfs

@@ -0,0 +1 @@
+i testsuite/compiler/check/oper-definition/Res.gf

testsuite/compiler/check/oper-definition/test.gfs.gold

@@ -0,0 +1,5 @@
+
+
+
+
+checking module Res

testsuite/compiler/check/restricted-inheritance/A.gf

@@ -0,0 +1,8 @@
+abstract A = {
+
+cat A1; A2 ;
+fun f1 : A1 ;
+    f2 : A1 ;
+    g  : A2 ;
+
+}

testsuite/compiler/check/restricted-inheritance/B.gf

@@ -0,0 +1,3 @@
+abstract B = A - [A1] ** {
+
+}

testsuite/compiler/typecheck/abstract/A.gf

@@ -0,0 +1,6 @@
+abstract A = {
+
+cat A ;
+    B (A 1) ;
+
+}

testsuite/compiler/typecheck/abstract/B.gf

@@ -0,0 +1,7 @@
+abstract B = {
+
+cat S ;
+
+fun f : S -> S 1 ;
+
+}

testsuite/compiler/typecheck/abstract/C.gf

@@ -0,0 +1,8 @@
+abstract C = {
+
+cat S ;
+
+fun f : S -> S ;
+def f x = 1 ;
+
+}

testsuite/compiler/typecheck/abstract/test_A.gfs

@@ -0,0 +1 @@
+i testsuite/compiler/typecheck/abstract/A.gf

testsuite/compiler/typecheck/abstract/test_A.gfs.gold

@@ -0,0 +1,5 @@
+
+
+
+
+checking module A

testsuite/compiler/typecheck/abstract/test_B.gfs

@@ -0,0 +1 @@
+i testsuite/compiler/typecheck/abstract/B.gf

testsuite/compiler/typecheck/abstract/test_B.gfs.gold

@@ -0,0 +1,5 @@
+
+
+
+
+checking module B

testsuite/compiler/typecheck/abstract/test_C.gfs

@@ -0,0 +1 @@
+i testsuite/compiler/typecheck/abstract/C.gf

testsuite/compiler/typecheck/abstract/test_C.gfs.gold

@@ -0,0 +1,5 @@
+
+
+
+
+checking module C

testsuite/compiler/typecheck/concrete/A.gf

@@ -0,0 +1,7 @@
+resource A = {
+
+oper a_Det : Str = "a" ;
+     
+     silly : Str = a_Det "X" ;
+
+}

testsuite/compiler/typecheck/concrete/test_A.gfs

@@ -0,0 +1 @@
+i testsuite/compiler/typecheck/concrete/A.gf

testsuite/compiler/typecheck/concrete/test_A.gfs.gold

@@ -0,0 +1,5 @@
+
+
+
+
+checking module A