From ba021ed7bf8e40584c45721b880567c6afd4c5e3 Mon Sep 17 00:00:00 2001 From: Nicolas Dandrimont Date: Thu, 4 Apr 2013 11:20:10 +0200 Subject: [PATCH] Count the number of expressions executed in do --- tests/native_tests/language.hy | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/tests/native_tests/language.hy b/tests/native_tests/language.hy index 0538f44..79fa344 100644 --- a/tests/native_tests/language.hy +++ b/tests/native_tests/language.hy @@ -85,6 +85,17 @@ (assert (= 1 1)) (assert (= 1 1))))) +(defn test-branching-expr-count-with-do [] + "NATIVE: make sure we execute the right number of expressions in the branch" + (setv counter 0) + (if false + (assert (= 2 1)) + (do + (setv counter (+ counter 1)) + (setv counter (+ counter 1)) + (setv counter (+ counter 1)))) + (assert (= counter 3))) + (defn test-cond [] "NATIVE: test if cond sorta works."