testing nested things

2013-04-04 21:58:26 -04:00 · 2013-04-04 21:58:26 -04:00 · 936d1bcec7
commit 936d1bcec7
parent 7da1129298
1 changed files with 5 additions and 0 deletions
--- a/tests/native_tests/language.hy
+++ b/tests/native_tests/language.hy
@ -281,3 +281,8 @@
      (+ x 42)  ; noop
      (+ x 1)))
  (assert (= 43 (my-fun 42))))
+
+
+(defn test-mangles []
+  "NATIVE: test mangles"
+  (assert (= 2 ((fn [] (+ 1 1))))))