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