@@ -468,6 +468,7 @@ module CancellableTaskTests =
468468
469469 testCaseAsync " use IAsyncDisposable propagate exception"
470470 <| async {
471+
471472 let doDispose () =
472473 task {
473474 do ! Task.Delay( 15 )
@@ -509,19 +510,19 @@ module CancellableTaskTests =
509510 let actor data =
510511 cancellableTask {
511512 use d = TestHelpers.makeAsyncDisposable ( doDispose)
512- do ! fun ct -> timeProvider.Delay( TimeSpan.FromMilliseconds( 200 ), ct)
513+ do ! fun ct -> timeProvider.Delay( TimeSpan.FromMilliseconds( 200. ), ct)
513514 return ()
514515 }
515516
516517 use cts =
517- timeProvider.CreateCancellationTokenSource( TimeSpan.FromMilliseconds( 100 ))
518+ timeProvider.CreateCancellationTokenSource( TimeSpan.FromMilliseconds( 100. ))
518519
519520 let inProgress = actor data cts.Token
520521
521522 Expect.isFalse wasDisposed " Dispose before cancellation"
522523
523524 do !
524- timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 100 ))
525+ timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 100. ))
525526 |> Async.AwaitTask
526527
527528
@@ -1192,7 +1193,7 @@ module CancellableTaskTests =
11921193
11931194 do !
11941195 timeProvider.Delay(
1195- TimeSpan.FromMilliseconds( 1000 ),
1196+ TimeSpan.FromMilliseconds( 1000. ),
11961197 ct
11971198 )
11981199 }
@@ -1201,13 +1202,13 @@ module CancellableTaskTests =
12011202
12021203 use cts =
12031204 timeProvider.CreateCancellationTokenSource(
1204- TimeSpan.FromMilliseconds( 100 )
1205+ TimeSpan.FromMilliseconds( 100. )
12051206 )
12061207
12071208 let runningTask = fooTask cts.Token
1208- do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50 ))
1209+ do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50. ))
12091210 Expect.isFalse runningTask.IsCanceled " "
1210- do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50 ))
1211+ do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50. ))
12111212 do ! runningTask
12121213 }
12131214 )
0 commit comments