From 59e7694dc067bc4629c95aad0377ae05e8773174 Mon Sep 17 00:00:00 2001 From: MadMaurice Date: Fri, 2 Apr 2021 16:20:07 +0200 Subject: [PATCH] Add recursion test --- t/recursion.t | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 t/recursion.t diff --git a/t/recursion.t b/t/recursion.t new file mode 100644 index 0000000..0c5838c --- /dev/null +++ b/t/recursion.t @@ -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))