File tree Expand file tree Collapse file tree 2 files changed +11
-1
lines changed
tests/FsToolkit.ErrorHandling.Tests Expand file tree Collapse file tree 2 files changed +11
-1
lines changed Original file line number Diff line number Diff line change @@ -5,6 +5,7 @@ open FsToolkit.ErrorHandling
55open System
66open System.Threading .Tasks
77
8+ #if ! FABLE_ COMPILER
89let testCaseTask name test =
910 testCaseAsync
1011 name
@@ -32,6 +33,7 @@ let ftestCaseTask name test =
3233 |> Async.AwaitTask
3334 })
3435
36+ #endif
3537
3638module Expect =
3739 open Expecto
@@ -65,7 +67,8 @@ type Expect =
6567 static member CancellationRequested ( operation : Async < 'a >) =
6668 Expect.throwsTAsync< 'a, OperationCanceledException> ( operation) " Should have been cancelled"
6769
68-
70+ #if ! FABLE _ COMPILER
6971 static member CancellationRequested ( operation : Task < _ >) =
7072 Expect.CancellationRequested( Async.AwaitTask operation)
7173 |> Async.StartImmediateAsTask
74+ #endif
Original file line number Diff line number Diff line change @@ -793,6 +793,8 @@ let traverseAsyncTests =
793793 }
794794 ]
795795
796+ #if ! FABLE_ COMPILER
797+
796798let sequenceTaskTests =
797799 testList " sequenceTask Tests" [
798800 testCase " sequenceTask returns the task value if Ok"
@@ -820,6 +822,8 @@ let sequenceTaskTests =
820822 Expect.equal value ( Error " foo" ) " "
821823 ]
822824
825+ #endif
826+
823827let valueOrTests =
824828 testList " valueOrTests Tests" [
825829 testCase " valueOrTests returns the value if Ok"
@@ -963,6 +967,9 @@ let allTests =
963967 teeErrorIfTests
964968 sequenceAsyncTests
965969 traverseAsyncTests
970+ #if ! FABLE_ COMPILER
971+ sequenceTaskTests
972+ #endif
966973 valueOrTests
967974 zipTests
968975 zipErrorTests
You can’t perform that action at this time.
0 commit comments