19 lines
311 B
Plaintext
19 lines
311 B
Plaintext
#
|
|
Tests for the stuff defined in core/control_flow.nom
|
|
|
|
use "core"
|
|
|
|
%nums <- []
|
|
%co <-
|
|
coroutine
|
|
-> 4
|
|
-> 5
|
|
repeat 3 times
|
|
-> 6
|
|
for % in coroutine %co
|
|
add % to %nums
|
|
|
|
assume (%nums = [4,5,6,6,6]) or barf "Coroutine iteration failed"
|
|
|
|
say "Coroutines test passed."
|