We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
Task.Delay
1 parent 1e643eb commit 568f754Copy full SHA for 568f754
src/FSharp.Control.TaskSeq.Test/TaskSeq.Do.Tests.fs
@@ -44,3 +44,15 @@ let ``CE taskSeq: use 'do!' with a non-generic task`` () =
44
taskSeq { do! (task { do value <- value + 1 }) |> Task.ignore }
45
|> verifyEmpty
46
|> Task.map (fun _ -> value |> should equal 1)
47
+
48
+[<Fact>]
49
+let ``CE taskSeq: use 'do!' with a task-delay`` () =
50
+ let mutable value = 0
51
52
+ taskSeq {
53
+ do value <- value + 1
54
+ do! Task.Delay 50
55
56
+ }
57
+ |> verifyEmpty
58
+ |> Task.map (fun _ -> value |> should equal 2)
0 commit comments