Minilisp.pm/t/cond.t

9 lines
185 B
Perl
Raw Normal View History

2021-04-09 00:01:27 +02:00
(plan 1)
(expect "cond"
(equal 'ok
(cond ((> 1 2) 'fail)
(nil 'fail)
((zerop 0) 'ok)
(t 'fail))))