Need to be fixed

See issue #598

Author: wallymathieu

tests/FSharpPlus.Tests/Asyncs.fs

@@ -35,7 +35,7 @@ module Async =
                     return value }
 
 
-        [<Test>]
+        [<Test;Ignore("To be fixed see issue #598")>]
         let testAsyncZip () =
             let t1 = createAsync true 0 1
             let t2 = createAsync true 0 2
@@ -65,7 +65,7 @@ module Async =
             let ac2 = Async.AsTaskAndWait(t13).Exception.InnerExceptions |> Seq.map (fun x -> int (Char.GetNumericValue x.Message.[35]))
             CollectionAssert.AreEquivalent ([1; 3], ac2, "Async.zip between 2 exceptions => both exceptions returned, even after combining with cancellation and values.")
 
-        [<Test>]
+        [<Test;Ignore("To be fixed see issue #598")>]
         let testAsyncZipAsync () =
             let t1 = createAsync true 20 1
             let t2 = createAsync true 10 2

tests/FSharpPlus.Tests/Task.fs

@@ -159,7 +159,7 @@ module Task =
             let r20 = Task.lift3 (mapping3 false) (x1 ()) (x2 ()) (e3 ())
             r20.Exception.InnerExceptions |> areEquivalent [TestException "Ouch, can't create: 3"]
 
-        [<Test>]
+        [<Test;Ignore("To be fixed see issue #598")>]
         let testTaskZip () =
             let t1 = createTask true 0 1
             let t2 = createTask true 0 2
@@ -193,7 +193,7 @@ module Task =
             let ac2 = t13.Exception.InnerExceptions |> Seq.map (fun x -> int (Char.GetNumericValue x.Message.[35]))
             CollectionAssert.AreEquivalent ([1; 3], ac2, "Task.zip between 2 exceptions => both exceptions returned, even after combining with cancellation and values.")
 
-        [<Test>]
+        [<Test;Ignore("To be fixed see issue #598")>]
         let testTaskZipAsync () =
             let t1 = createTask true 20 1
             let t2 = createTask true 10 2

tests/FSharpPlus.Tests/ValueTask.fs

@@ -117,7 +117,7 @@ module ValueTask =
             r09.AsTask().Exception.InnerExceptions |> areEquivalent [TestException "I was told to fail"]
 
 
-        [<Test>]
+        [<Test;Ignore("To be fixed see issue #598")>]
         let testValueTaskZip () =
             let t1 = createValueTask true 0 1
             let t2 = createValueTask true 0 2
@@ -151,7 +151,7 @@ module ValueTask =
             let ac2 = (t13.AsTask ()).Exception.InnerExceptions |> Seq.map (fun x -> int (Char.GetNumericValue x.Message.[35]))
             CollectionAssert.AreEquivalent ([1; 3], ac2, "ValueTask.zip between 2 exceptions => both exceptions returned, even after combining with cancellation and values.")
 
-        [<Test>]
+        [<Test;Ignore("To be fixed see issue #598")>]
         let testValueTaskZipAsync () =
             let t1 = createValueTask true 20 1
             let t2 = createValueTask true 10 2