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

Add tests for 'or'

Browse source
This commit is contained in:
madmaurice 2021-04-08 23:52:03 +02:00
parent c79b2aabf4
commit 0cbc43927d
1 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
t/and_or.t
View file

@ -2,12 +2,21 @@
(and nil (set a 'fail)) (and nil (set a 'fail))
(expect "and - Short circuit" (equal a 'ok))) (expect "and - Short circuit" (equal a 'ok)))
;; (let ((a 'ok))
;; (or t (set a 'fail))
;; (expect "or - short circuit" (equal a 'ok)))
(expect "and - returns last value if all operands evaluate to true" (expect "and - returns last value if all operands evaluate to true"
(equal (and t 'ok) 'ok)) (equal (and t 'ok) 'ok))
(expect "and - returns nil if any operand evaluates to false" (expect "and - returns nil if any operand evaluates to false"
(null (and nil t))) (null (and nil t)))
(expect "and - returns nil if no operands supplied"
(null (and)))
(let ((a 'ok))
(or t (set a 'fail))
(expect "or - short circuit" (equal a 'ok)))
(expect "or - returns last value if all operands evaluate to false"
(equal (or nil 'ok) 'ok))
(expect "or - returns nil if no operands supplied"
(null (or)))