madmaurice/Minilisp.pm
1
1
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Add recursion test

Browse source
This commit is contained in:
madmaurice 2021-04-02 16:20:07 +02:00
parent d35611b813
commit 59e7694dc0
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
t/recursion.t Normal file
View file

@ -0,0 +1,9 @@
;; Factorial
(defun factorial (n)
(if (> n 1)
(* n (factorial (- n 1)))
1))
(expect "Factorial of 5 is 120" (= (factorial 5) 120))
(expect "Factorial of 1 is 1" (= (factorial 1) 1))