Need to be fixed

See issue #598
fsprojects · Feb 13, 2024 · ce50c59 · ce50c59
1 parent 09503a8
commit ce50c59
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/tests/FSharpPlus.Tests/Asyncs.fs b/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

diff --git a/tests/FSharpPlus.Tests/Task.fs b/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

diff --git a/tests/FSharpPlus.Tests/ValueTask.fs b/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