Minilisp.pm/t/unless.t

6 lines
139 B
Perl
Raw Normal View History

2021-04-04 01:53:18 +02:00
(expect "unless - true condition"
(null (unless t 'fail)))
(expect "unless - false condition"
(equal 'ok (unless f 'ok)))