diff options
| author | krasimir <krasimir@chalmers.se> | 2009-09-14 12:17:57 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-09-14 12:17:57 +0000 |
| commit | 70fea39e2bacef646f442cd88c32fcb5f1212725 (patch) | |
| tree | 93849d33081c93661f37f3f5f881c6adfa678a69 /testsuite/compiler/check | |
| parent | 62ef772a2c996f2d7d17529eeee845be90586a78 (diff) | |
added some tests in the testsuite for the compiler
Diffstat (limited to 'testsuite/compiler/check')
6 files changed, 24 insertions, 4 deletions
diff --git a/testsuite/compiler/check/lins/lins.gfs.gold b/testsuite/compiler/check/lins/lins.gfs.gold index 7bcdd3932..bc3f9ebb0 100644 --- a/testsuite/compiler/check/lins/lins.gfs.gold +++ b/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 of test
-
+ Warning: no linearization type for C, inserting default {s : Str}
+ Warning: no linearization of test
language linsCnc
productions
C1 -> F0[]
diff --git a/testsuite/compiler/check/oper-definition/Res.gf b/testsuite/compiler/check/oper-definition/Res.gf new file mode 100644 index 000000000..c22cb33cd --- /dev/null +++ b/testsuite/compiler/check/oper-definition/Res.gf @@ -0,0 +1,5 @@ +resource Res = {
+
+oper my_oper : Str -> Str ;
+
+}
\ No newline at end of file diff --git a/testsuite/compiler/check/oper-definition/test.gfs b/testsuite/compiler/check/oper-definition/test.gfs new file mode 100644 index 000000000..19dbc0a16 --- /dev/null +++ b/testsuite/compiler/check/oper-definition/test.gfs @@ -0,0 +1 @@ +i testsuite/compiler/check/oper-definition/Res.gf
\ No newline at end of file diff --git a/testsuite/compiler/check/oper-definition/test.gfs.gold b/testsuite/compiler/check/oper-definition/test.gfs.gold new file mode 100644 index 000000000..1a7b407f2 --- /dev/null +++ b/testsuite/compiler/check/oper-definition/test.gfs.gold @@ -0,0 +1,5 @@ +
+
+checking module Res
+ Happened in operation my_oper in Res.gf, line 3 :
+ No definition given to the operation
diff --git a/testsuite/compiler/check/restricted-inheritance/A.gf b/testsuite/compiler/check/restricted-inheritance/A.gf new file mode 100644 index 000000000..4e8e7780b --- /dev/null +++ b/testsuite/compiler/check/restricted-inheritance/A.gf @@ -0,0 +1,8 @@ +abstract A = { + +cat A1; A2 ; +fun f1 : A1 ; + f2 : A1 ; + g : A2 ; + +}
\ No newline at end of file diff --git a/testsuite/compiler/check/restricted-inheritance/B.gf b/testsuite/compiler/check/restricted-inheritance/B.gf new file mode 100644 index 000000000..bc1f76d84 --- /dev/null +++ b/testsuite/compiler/check/restricted-inheritance/B.gf @@ -0,0 +1,3 @@ +abstract B = A - [A1] ** { + +}
\ No newline at end of file |