From 621291a575cd4462729a178158def39d0d411c8f Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Mon, 10 Dec 2012 13:25:32 +0000
Subject: Compute.ConcreteNew: add missing case for variant functions

Also adding a test case in the test suite for this.
---
 testsuite/compiler/compute/Variants.gf       | 7 +++++++
 testsuite/compiler/compute/Variants.gfs      | 2 ++
 testsuite/compiler/compute/Variants.gfs.gold | 1 +
 3 files changed, 10 insertions(+)
 create mode 100644 testsuite/compiler/compute/Variants.gf
 create mode 100644 testsuite/compiler/compute/Variants.gfs
 create mode 100644 testsuite/compiler/compute/Variants.gfs.gold

(limited to 'testsuite')

diff --git a/testsuite/compiler/compute/Variants.gf b/testsuite/compiler/compute/Variants.gf
new file mode 100644
index 000000000..e77b84469
--- /dev/null
+++ b/testsuite/compiler/compute/Variants.gf
@@ -0,0 +1,7 @@
+resource Variants = {
+  oper
+    hello = r.f "hello";
+    r = { f:Str->Str = (id|dup) };
+    id : Str->Str = \ s -> s;
+    dup : Str->Str = \ s -> s++s;
+}
diff --git a/testsuite/compiler/compute/Variants.gfs b/testsuite/compiler/compute/Variants.gfs
new file mode 100644
index 000000000..1f512694c
--- /dev/null
+++ b/testsuite/compiler/compute/Variants.gfs
@@ -0,0 +1,2 @@
+i -retain testsuite/compiler/compute/Variants.gf
+cc hello
diff --git a/testsuite/compiler/compute/Variants.gfs.gold b/testsuite/compiler/compute/Variants.gfs.gold
new file mode 100644
index 000000000..cd74b1c23
--- /dev/null
+++ b/testsuite/compiler/compute/Variants.gfs.gold
@@ -0,0 +1 @@
+variants {"hello"; "hello" ++ "hello"}
-- 
cgit v1.2.3