X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=sequence_slow%2Ftest.icl;h=48de0f0ac85fc9e7d29537ada1bbfc9aa23898be;hb=ee4c83a9c7be2c7c45a8f0815bd35fed6de346c0;hp=58ea03419bf30b6e261a879dcf1f5e1d45d811ae;hpb=9f05ee89761c00fe033bddc6a4a3c25c21c77a68;p=clean-tests.git diff --git a/sequence_slow/test.icl b/sequence_slow/test.icl index 58ea034..48de0f0 100644 --- a/sequence_slow/test.icl +++ b/sequence_slow/test.icl @@ -5,7 +5,7 @@ import iTasks import iTasks.Extensions.DateTime Start w = startEngine ( - sequence (map t [0..3]) >>- traceValue) w + sequence (map t [0..20]) >>- traceValue) w t i = waitForTimer 1 -|| viewInformation () [] (toString i +++ "th item") >>- \_->treturn i