From 70fea39e2bacef646f442cd88c32fcb5f1212725 Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Mon, 14 Sep 2009 12:17:57 +0000
Subject: added some tests in the testsuite for the compiler

---
 testsuite/compiler/check/lins/lins.gfs.gold            | 6 ++----
 testsuite/compiler/check/oper-definition/Res.gf        | 5 +++++
 testsuite/compiler/check/oper-definition/test.gfs      | 1 +
 testsuite/compiler/check/oper-definition/test.gfs.gold | 5 +++++
 testsuite/compiler/check/restricted-inheritance/A.gf   | 8 ++++++++
 testsuite/compiler/check/restricted-inheritance/B.gf   | 3 +++
 6 files changed, 24 insertions(+), 4 deletions(-)
 create mode 100644 testsuite/compiler/check/oper-definition/Res.gf
 create mode 100644 testsuite/compiler/check/oper-definition/test.gfs
 create mode 100644 testsuite/compiler/check/oper-definition/test.gfs.gold
 create mode 100644 testsuite/compiler/check/restricted-inheritance/A.gf
 create mode 100644 testsuite/compiler/check/restricted-inheritance/B.gf

(limited to 'testsuite/compiler/check')

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
-- 
cgit v1.2.3