X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=sequence_slow%2Ftest.icl;h=48de0f0ac85fc9e7d29537ada1bbfc9aa23898be;hb=1eb7ba9a34eacb68c762bd9f7f81865cf37ecb0b;hp=58ea03419bf30b6e261a879dcf1f5e1d45d811ae;hpb=afe5bb5845b9b12c02834f0eb5745da84a92eab8;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