Test the function return-o-matic

2013-04-05 19:59:33 -04:00 · 2013-04-05 19:59:33 -04:00 · 27e4772aa7
commit 27e4772aa7
parent 65ad7a3b87
1 changed files with 7 additions and 0 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -286,3 +286,10 @@
 (defn test-mangles []
  "NATIVE: test mangles"
  (assert (= 2 ((fn [] (+ 1 1))))))
+
+
+(defn test-fn-return []
+  "NATIVE: test function return"
+  (setv fn-test ((fn [] (fn [] (+ 1 1)))))
+  (assert (= (fn-test) 2)))
+