added recursive sum test

michiakig · Oct 26, 2011 · 0565e64 · 0565e64
1 parent 1892e88
commit 0565e64
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/test/incremental/test/procedures.clj b/test/incremental/test/procedures.clj
@@ -8,4 +8,10 @@
   (is (compiled= (letrec ((double (lambda (x) (fx+ x x)))
                           (triple (lambda (x) (fx+ x (fx+ x x)))))
                          (app double (app triple 3)))
-                 "18")))
+                 "18"))
+  (is (compiled= (letrec ((sum (lambda (x)
+                                        (if (fx= 0 x)
+                                          0
+                                          (fx+ x (app sum (fx- x 1)))))))
+                         (app sum 100))
+                 "5050")))