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

Add another function test

Browse source
This commit is contained in:
madmaurice 2021-04-04 02:33:49 +02:00
parent 7db1cce024
commit 1df85fd67c
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
t/function.t
View file

@ -2,3 +2,10 @@
(expect "inc 5 == 6" (eq (inc 5) 6)) (expect "inc 5 == 6" (eq (inc 5) 6))
(expect "inc 6 == 7" (eq (inc 6) 7)) (expect "inc 6 == 7" (eq (inc 6) 7))
(defun range (start end)
(if (>= start end)
'()
(cons start (range (+ start 1) end))))
(expect "range" (equal (range 1 10) '(1 2 3 4 5 6 7 8 9)))