attempt 4

TheAngryByrd · Apr 7, 2024 · cb4de44 · cb4de44
1 parent 893455f
commit cb4de44
Show file tree

Hide file tree

Showing 6 changed files with 6 additions and 0 deletions.
diff --git a/tests/IcedTasks.Tests/CancellablePoolingValueTaskTests.fs b/tests/IcedTasks.Tests/CancellablePoolingValueTaskTests.fs
@@ -977,6 +977,7 @@ module CancellablePoolingValueTaskTests =
                         // so we can see if they are sequenced or not
                         let fakeWork1 l =
                             cancellablePoolingValueTask {
+                                do! Task.Delay 15
                                 let! x = fakeWork 1 10000 l
                                 do! Task.Delay 15
                                 return x

diff --git a/tests/IcedTasks.Tests/CancellableTaskTests.fs b/tests/IcedTasks.Tests/CancellableTaskTests.fs
@@ -937,6 +937,7 @@ module CancellableTaskTests =
                         // so we can see if they are sequenced or not
                         let fakeWork1 l =
                             cancellableTask {
+                                do! Task.Delay 15
                                 let! x = fakeWork 1 10000 l
                                 do! Task.Delay 15
                                 return x

diff --git a/tests/IcedTasks.Tests/CancellableValueTaskTests.fs b/tests/IcedTasks.Tests/CancellableValueTaskTests.fs
@@ -974,6 +974,7 @@ module CancellableValueTaskTests =
                         // so we can see if they are sequenced or not
                         let fakeWork1 l =
                             cancellableValueTask {
+                                do! Task.Delay 15
                                 let! x = fakeWork 1 10000 l
                                 do! Task.Delay 15
                                 return x

diff --git a/tests/IcedTasks.Tests/PoolingValueTaskTests.fs b/tests/IcedTasks.Tests/PoolingValueTaskTests.fs
@@ -701,6 +701,7 @@ module PoolingValueTaskTests =
                         // so we can see if they are sequenced or not
                         let fakeWork1 l =
                             poolingValueTask {
+                                do! Task.Delay 15
                                 let! x = fakeWork 1 10000 l
                                 do! Task.Delay 15
                                 return x

diff --git a/tests/IcedTasks.Tests/TaskTests.fs b/tests/IcedTasks.Tests/TaskTests.fs
@@ -706,6 +706,7 @@ module TaskTests =
                         // so we can see if they are sequenced or not
                         let fakeWork1 l =
                             task {
+                                do! Task.Delay 15
                                 let! x = fakeWork 1 10000 l
                                 do! Task.Delay 15
                                 return x

diff --git a/tests/IcedTasks.Tests/ValueTaskTests.fs b/tests/IcedTasks.Tests/ValueTaskTests.fs
@@ -703,6 +703,7 @@ module ValueTaskTests =
                         // so we can see if they are sequenced or not
                         let fakeWork1 l =
                             valueTask {
+                                do! Task.Delay 15
                                 let! x = fakeWork 1 10000 l
                                 do! Task.Delay 15
                                 return x