From 41b263cf6aa38e7c6ef090c0fa18949b86eec62c Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Fri, 22 May 2009 18:54:51 +0000
Subject: some work on evaluation with abstract expressions in PGF

---
 testsuite/update/ArrityCheck.gf       | 5 +++++
 testsuite/update/ArrityCheck.gfs      | 1 +
 testsuite/update/ArrityCheck.gfs.gold | 8 ++++++++
 3 files changed, 14 insertions(+)
 create mode 100644 testsuite/update/ArrityCheck.gf
 create mode 100644 testsuite/update/ArrityCheck.gfs
 create mode 100644 testsuite/update/ArrityCheck.gfs.gold

(limited to 'testsuite')

diff --git a/testsuite/update/ArrityCheck.gf b/testsuite/update/ArrityCheck.gf
new file mode 100644
index 000000000..9ee03ba6e
--- /dev/null
+++ b/testsuite/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/update/ArrityCheck.gfs b/testsuite/update/ArrityCheck.gfs
new file mode 100644
index 000000000..b63c0ca51
--- /dev/null
+++ b/testsuite/update/ArrityCheck.gfs
@@ -0,0 +1 @@
+i testsuite\update\ArrityCheck.gf
diff --git a/testsuite/update/ArrityCheck.gfs.gold b/testsuite/update/ArrityCheck.gfs.gold
new file mode 100644
index 000000000..924dddf1e
--- /dev/null
+++ b/testsuite/update/ArrityCheck.gfs.gold
@@ -0,0 +1,8 @@
+

+

+C:\gf_2\testsuite\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

-- 
cgit v1.2.3