@@ -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 )
@@ -508,23 +509,23 @@ module CancellableTaskTests =
508509 let actor data =
509510 cancellableTask {
510511 use d = TestHelpers.makeAsyncDisposable ( doDispose)
511- do ! fun ct -> timeProvider.Delay( TimeSpan.FromMilliseconds( 200 ), ct)
512+ do ! fun ct -> timeProvider.Delay( TimeSpan.FromMilliseconds( 200. ), ct)
512513 return ()
513514 }
514515
515516 use cts =
516- timeProvider.CreateCancellationTokenSource( TimeSpan.FromMilliseconds( 100 ))
517+ timeProvider.CreateCancellationTokenSource( TimeSpan.FromMilliseconds( 100. ))
517518
518519 let inProgress = actor data cts.Token
519520
520521 do !
521- timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 100 ))
522+ timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 100. ))
522523 |> Async.AwaitTask
523524
524525 Expect.isFalse wasDisposed " "
525526
526527 do !
527- timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 100 ))
528+ timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 100. ))
528529 |> Async.AwaitTask
529530
530531 do !
@@ -1183,7 +1184,7 @@ module CancellableTaskTests =
11831184
11841185 do !
11851186 timeProvider.Delay(
1186- TimeSpan.FromMilliseconds( 1000 ),
1187+ TimeSpan.FromMilliseconds( 1000. ),
11871188 ct
11881189 )
11891190 }
@@ -1192,13 +1193,13 @@ module CancellableTaskTests =
11921193
11931194 use cts =
11941195 timeProvider.CreateCancellationTokenSource(
1195- TimeSpan.FromMilliseconds( 100 )
1196+ TimeSpan.FromMilliseconds( 100. )
11961197 )
11971198
11981199 let runningTask = fooTask cts.Token
1199- do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50 ))
1200+ do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50. ))
12001201 Expect.isFalse runningTask.IsCanceled " "
1201- do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50 ))
1202+ do ! timeProvider.ForwardTimeAsync( TimeSpan.FromMilliseconds( 50. ))
12021203 do ! runningTask
12031204 }
12041205 )
0 commit comments