Minilisp.pm/t/when.t

6 lines
133 B
Perl
Raw Normal View History

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