Fix Fable tests

Author: njlr

src/FsToolkit.ErrorHandling/Async.fs

@@ -126,13 +126,23 @@ module Async =
         (input1: Async<'input1>)
         (input2: Async<'input2>)
         : Async<'output> =
+
+#if FABLE_COMPILER && FABLE_COMPILER_PYTHON
+        Async.Parallel(
+            [|
+                map box input1
+                map box input2
+            |]
+        )
+#else
         Async.Parallel(
             [|
                 map box input1
                 map box input2
             |],
             maxDegreeOfParallelism = 2
         )
+#endif
         |> map (fun results ->
             let a =
                 results[0]
@@ -159,6 +169,15 @@ module Async =
         (input2: Async<'input2>)
         (input3: Async<'input3>)
         : Async<'output> =
+#if FABLE_COMPILER && FABLE_COMPILER_PYTHON
+        Async.Parallel(
+            [|
+                map box input1
+                map box input2
+                map box input3
+            |]
+        )
+#else
         Async.Parallel(
             [|
                 map box input1
@@ -167,6 +186,7 @@ module Async =
             |],
             maxDegreeOfParallelism = 3
         )
+#endif
         |> map (fun results ->
             let a =
                 results[0]

tests/FsToolkit.ErrorHandling.Tests/TestHelpers.fs

@@ -3,15 +3,17 @@ namespace FsToolkit.ErrorHandling
 [<RequireQualifiedAccess>]
 module Async =
 
+    open System
+
     /// An Async that never completes but can be cancelled
     let never<'a> : Async<'a> =
-        async {
-            let! ct = Async.CancellationToken
-
-            let! _ = Async.AwaitWaitHandle(ct.WaitHandle)
+        let rec loop () =
+            async {
+                do! Async.Sleep(TimeSpan.FromHours 1)
+                return! loop ()
+            }
 
-            return failwith "Unreachable"
-        }
+        loop ()
 
 module TestHelpers =
     let makeDisposable (callback) =