File tree Expand file tree Collapse file tree 1 file changed +9
-0
lines changed
tests/FsToolkit.ErrorHandling.Tests Expand file tree Collapse file tree 1 file changed +9
-0
lines changed Original file line number Diff line number Diff line change @@ -413,8 +413,11 @@ let ``AsyncResultCE applicative tests`` =
413413 }
414414 ]
415415
416+
416417let ``AsyncResultCE Stack Trace Tests`` =
417418
419+
420+
418421 let failureAsync = async {
419422 failwith " Intentional failure"
420423 return ()
@@ -437,6 +440,7 @@ let ``AsyncResultCE Stack Trace Tests`` =
437440 return 42
438441 }
439442
443+ #if ! FABLE_ COMPILER
440444 // These are intentionally marked as pending
441445 // This is useful for reviewing stacktrack traces but asserting against them is very brittle
442446 // I'm open to suggestions around Assertions
@@ -449,9 +453,14 @@ let ``AsyncResultCE Stack Trace Tests`` =
449453 let! r = mainExeuctorAsyncResult ()
450454 ()
451455 }
456+
452457
453458 ]
454459
460+ #else
461+ testList " AsyncResultCE Stack Trace Tests" []
462+
463+ #endif
455464
456465let allTests = testList " AsyncResultCETests" [
457466 `` AsyncResultCE return Tests ``
You can’t perform that action at this time.
0 commit comments