25 lines
629 B
Raku
25 lines
629 B
Raku
(plan 7)
|
|
|
|
(let ((a 'ok))
|
|
(and nil (set a 'fail))
|
|
(expect "and - Short circuit" (equal a 'ok)))
|
|
|
|
(expect "and - returns last value if all operands evaluate to true"
|
|
(equal (and t 'ok) 'ok))
|
|
|
|
(expect "and - returns nil if any operand evaluates to false"
|
|
(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)))
|