7 lines
177 B
Perl
7 lines
177 B
Perl
|
(expect "loop"
|
||
|
|
(equal (let ((i 0))
|
||
|
|
(loop (set i (+ i 1))
|
||
|
|
(when (> i 3)
|
||
|
|
(return i))))
|
||
|
|
4))
|