From 9cf696e0fae66030aa82a7107294c68a93682f07 Mon Sep 17 00:00:00 2001
From: "Wolfgang (Blub) Bumiller" <blub@speed.at>
Date: Thu, 1 Nov 2012 18:24:48 +0100
Subject: [PATCH] functions-as-parameters testcase

---
 testsuite/Makefile                         |  8 +++++++-
 testsuite/functions-as-parameters/expected |  1 +
 testsuite/functions-as-parameters/main.qc  | 13 +++++++++++++
 3 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 testsuite/functions-as-parameters/expected
 create mode 100644 testsuite/functions-as-parameters/main.qc

diff --git a/testsuite/Makefile b/testsuite/Makefile
index b132393..e902e55 100644
--- a/testsuite/Makefile
+++ b/testsuite/Makefile
@@ -16,7 +16,8 @@ TESTLIST = \
 	invalid-types \
 	ngraphs    \
 	invalid-assign \
-	field-parameters
+	field-parameters \
+	functions-as-parameters
 
 .PHONY: clean test
 
@@ -162,6 +163,11 @@ field-parameters:
 	@$(VM) $< > $@/output
 	@diff $@/output $@/expected
 
+$(eval $(call maketest,functions-as-parameters,qcc))
+functions-as-parameters:
+	@$(VM) $< > $@/output
+	@diff $@/output $@/expected
+
 #######################################################################
 obj:
 	mkdir obj
diff --git a/testsuite/functions-as-parameters/expected b/testsuite/functions-as-parameters/expected
new file mode 100644
index 0000000..818e321
--- /dev/null
+++ b/testsuite/functions-as-parameters/expected
@@ -0,0 +1 @@
+correct
diff --git a/testsuite/functions-as-parameters/main.qc b/testsuite/functions-as-parameters/main.qc
new file mode 100644
index 0000000..7790e64
--- /dev/null
+++ b/testsuite/functions-as-parameters/main.qc
@@ -0,0 +1,13 @@
+void(string, string) print = #1;
+
+string() getter = {
+    return "correct";
+};
+
+void(string() f) printer = {
+    print(f(), "\n");
+};
+
+void() main = {
+    printer(getter);
+};
-- 
2.39.2