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

Improve test description for math.t

Browse source
This commit is contained in:
madmaurice 2021-04-04 01:53:30 +02:00
parent e163fdce59
commit 7db1cce024
1 changed files with 12 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
t/math.t
View file

@ -1,16 +1,16 @@
(expect "add" (= (+ 2 4 2) 8))
(expect "sub" (= (- 8 2 3) 3))
(expect "mul" (= (* 5 6) 30))
(expect "div" (= (/ 64 4) 16))
(expect "+ - 3 parameters" (= (+ 2 4 2) 8))
(expect "- - 3 parameters" (= (- 8 2 3) 3))
(expect "* - 2 parameters" (= (* 5 6) 30))
(expect "/ - 2 parameters" (= (/ 64 4) 16))
(expect "2 is even" (evenp 2))
(expect "3 is not even" (not (evenp 3)))
(expect "evenp - 2" (evenp 2))
(expect "evenp - 3" (not (evenp 3)))
(expect "5 is odd" (oddp 5))
(expect "6 is not odd" (not (oddp 6)))
(expect "oddp - 5" (oddp 5))
(expect "oddp - 6" (not (oddp 6)))
(expect "0 is 0" (zerop 0))
(expect "1 is not 0" (not (zerop 1)))
(expect "zerop - 0" (zerop 0))
(expect "zerop - 1" (not (zerop 1)))
(expect "max" (= (max 5 30) 30))
(expect "min" (= (min 5 30) 5))
(expect "max - 2 parameters" (= (max 5 30) 30))
(expect "min - 2 parameters" (= (min 5 30) 5))