2018-07-20 20:27:15 -07:00
|
|
|
#!/usr/bin/env nomsu -V2.5.4.3
|
2018-06-15 00:40:36 -07:00
|
|
|
#
|
|
|
|
|
Tests for the stuff defined in core/control_flow.nom
|
|
|
|
|
|
|
|
|
|
use "core"
|
2018-07-20 20:27:15 -07:00
|
|
|
|
2018-07-18 01:27:56 -07:00
|
|
|
%nums = []
|
2018-07-20 20:27:15 -07:00
|
|
|
%co = (..)
|
|
|
|
|
coroutine:
|
|
|
|
|
-> 4
|
|
|
|
|
-> 5
|
|
|
|
|
repeat 3 times: -> 6
|
|
|
|
|
|
2018-07-18 01:27:56 -07:00
|
|
|
for % in coroutine %co (add % to %nums)
|
|
|
|
|
assume (%nums == [4, 5, 6, 6, 6]) or barf "Coroutine iteration failed"
|
2018-07-22 15:01:05 -07:00
|
|
|
say "Coroutines test passed."
|
