6 lines
116 B
Perl
6 lines
116 B
Perl
|
(expect "cond" 2
|
||
|
|
(cond ((> 1 2) 10)
|
||
|
|
(f 20)
|
||
|
|
((zerop 0) 2)
|
||
|
|
(t 10)))
|