From e2b2d9b21ddaf5c3a9e3ac10337ebc70715b6099 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Sat, 1 Aug 2020 18:37:56 -0400 Subject: [PATCH] Issue #398 - Added test cases --- tests/unit-tests.scm | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/tests/unit-tests.scm b/tests/unit-tests.scm index e6f2a657..315dacfd 100644 --- a/tests/unit-tests.scm +++ b/tests/unit-tests.scm @@ -86,6 +86,14 @@ ((lambda () (- x y)))) 5 4) 1) +;; Anonymous lambda's +(assert:equal "execute anonymous lambda" ((lambda (a . Y) Y) 'x) '()) +(assert:equal "execute anonymous lambda" ((lambda (a . Y) Y) 'x 'y) '(y)) +(assert:equal "execute anonymous lambda" ((lambda (a . Y) Y) 'x 'y 'z) '(y z)) +(assert:equal "execute anonymous lambda" ((lambda (a b . Y) Y) 'x 'y 'z) '(z)) +(assert:equal "execute anonymous lambda" ((lambda Y Y) 'x 'y 'z) '(x y z)) +(assert:equal "execute anonymous lambda" ((lambda Y Y) ) '()) + ;; Factorial (define (fac n) (if (= n 0) 1 (* n (fac (- n 1))))) (assert:equal "Factorial example" (fac 10) 3628800)