Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 04:25:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Issue #398 - Added test cases

Browse source
This commit is contained in:
Justin Ethier 2020-08-01 18:37:56 -04:00
parent bbbe9ecd40
commit e2b2d9b21d
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/unit-tests.scm
View file

@ -86,6 +86,14 @@
((lambda () (- x y)))) 5 4) ((lambda () (- x y)))) 5 4)
1) 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 ;; Factorial
(define (fac n) (if (= n 0) 1 (* n (fac (- n 1))))) (define (fac n) (if (= n 0) 1 (* n (fac (- n 1)))))
(assert:equal "Factorial example" (fac 10) 3628800) (assert:equal "Factorial example" (fac 10) 3628800)