Minilisp.pm/t/cond.t
2021-04-09 00:01:27 +02:00

9 lines
185 B
Raku

(plan 1)
(expect "cond"
(equal 'ok
(cond ((> 1 2) 'fail)
(nil 'fail)
((zerop 0) 'ok)
(t 'fail))))