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`` =
413
413
}
414
414
]
415
415
416
+
416
417
let ``AsyncResultCE Stack Trace Tests`` =
417
418
419
+
420
+
418
421
let failureAsync = async {
419
422
failwith " Intentional failure"
420
423
return ()
@@ -437,6 +440,7 @@ let ``AsyncResultCE Stack Trace Tests`` =
437
440
return 42
438
441
}
439
442
443
+ #if ! FABLE_ COMPILER
440
444
// These are intentionally marked as pending
441
445
// This is useful for reviewing stacktrack traces but asserting against them is very brittle
442
446
// I'm open to suggestions around Assertions
@@ -449,9 +453,14 @@ let ``AsyncResultCE Stack Trace Tests`` =
449
453
let! r = mainExeuctorAsyncResult ()
450
454
()
451
455
}
456
+
452
457
453
458
]
454
459
460
+ #else
461
+ testList " AsyncResultCE Stack Trace Tests" []
462
+
463
+ #endif
455
464
456
465
let allTests = testList " AsyncResultCETests" [
457
466
`` AsyncResultCE return Tests ``
You can’t perform that action at this time.
0 commit comments