From 8e9a16cc61268314d7df2e751684374e86389c38 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Mon, 6 May 2013 15:48:00 +0200 Subject: [PATCH] Add test case for issue #137 Signed-off-by: Julien Danjou --- tests/native_tests/language.hy | 15 +++++++++++++++ 1 file changed, 15 insertions(+) diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy index 20f4d1c..732a47d 100644 --- a/tests/native_tests/language.hy +++ b/tests/native_tests/language.hy @@ -648,3 +648,18 @@ xxx (assert False)) (except [NameError]))) + +(defn test-if-let-mixing [] + "NATIVE: test that we can now mix if and let" + (assert (= 0 (if true (let [[x 0]] x) 42)))) + +(defn test-if-in-if [] + "NATIVE: test that we can use if in if" + (assert (= 42 + (if (if 1 True False) + 42 + 43))) + (assert (= 43 + (if (if 0 True False) + 42 + 43))))