6 lines
131 B
Perl
6 lines
131 B
Perl
|
(expect "when - true condition"
|
||
|
(equal 'ok (when t 'ok)))
|
||
|
|
||
|
(expect "when - false condition"
|
||
|
(null (when f 'fail)))
|