11#if INTERACTIVE
2- #load @" ../../.paket/load/net8.0 /Test/NUnit.fsx"
2+ #load @" ../../.paket/load/netcoreapp3.1 /Test/NUnit.fsx"
33#time " on"
44#else
55
@@ -10,25 +10,7 @@ open NUnit.Framework
1010open FSharp.Control
1111open System
1212open System.Threading
13-
14- type Assert with
15- static member True ( x : bool ) =
16- Assert.That( x)
17-
18- static member True ( x : bool , message : string ) =
19- Assert.That( x, message)
20-
21- static member AreEqual ( x : 'a , y : 'a ) : unit =
22- Assert.That(( x = y))
23-
24- static member LessOrEqual ( x : 'a , y : 'a , message : string ) =
25- Assert.That( x <= y, message)
26-
27- static member Less ( x : 'a , y : 'a , message : string ) =
28- Assert.That( x < y, message)
29-
30- static member Less ( x : 'a , y : 'a ) =
31- Assert.That( x < y)
13+ open System.Threading .Tasks
3214
3315type AsyncOps = AsyncOps with
3416 static member unit : Async < unit > = async { return () }
@@ -303,7 +285,7 @@ let ``AsyncSeq.cache does not slow down late consumers``() =
303285 consume 5000 5
304286 ]
305287 |> Async.RunSynchronously
306- Assert.LessOrEqual( abs( times.[ 0 ] - 10.0 ), 2.0 , " Sanity check: lead consumer should take 10s" )
288+ Assert.LessOrEqual( abs( times.[ 0 ] - 10.0 ), 2.0 f , " Sanity check: lead consumer should take 10s" )
307289 Assert.LessOrEqual( times.[ 1 ], 2.0 , " Test purpose: follower should only read cached items" )
308290
309291[<Test>]
0 commit comments