functions-as-parameters testcase

diff --git a/testsuite/Makefile b/testsuite/Makefile
index b132393bada911cac59e2e85c163e1c3aa7aef91..e902e55612af9bcf84edc96b597d56cdf33abc68 100644 (file)
--- 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 (file)
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 (file)
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);
+};