File tree Expand file tree Collapse file tree 2 files changed +13
-5
lines changed
Expand file tree Collapse file tree 2 files changed +13
-5
lines changed Original file line number Diff line number Diff line change @@ -12,8 +12,6 @@ let s2 = describe "Suite 2" {
1212 info " This test passes in Suite 2"
1313 }
1414}
15- runTestSuite ( describe " Main Suite" { s1; s2 })
16- |> Async.RunSynchronously
1715
1816let suite = describe " A larger test suite" {
1917 Info " Top level info message"
@@ -85,9 +83,10 @@ let asyncSuite = describe "Async Tests" {
8583}
8684
8785[
86+ runTestSuite ( describe " Main Suite" { s1; s2 })
8887 runTestSuite suite
8988 runTestSuiteCustom
90- ( DefaultRunner( Reporters.ConsoleReporter () :> ITestReporter, id))
89+ ( DefaultRunner( Reporters.TapReporter () :> ITestReporter, id))
9190 suite
9291 runTestSuite asyncSuite
9392]
Original file line number Diff line number Diff line change 1+ [32mMain Suite[0m
2+ [32mSuite 1[0m
3+ [32mSuite 2[0m
4+ [90mBefore each test in Suite 2[0m
5+ [37mThis test passes in Suite 2[0m
6+ [32m ✅ passed: should pass in Suite 2[0m
7+ All tests passed!
8+ Summary: 1 passed, 0 failed, 0 pending
9+ Total time: 00:00:00.0078413
110[32mA larger test suite[0m
211[37mTop level info message[0m
312[90mBefore each test[0m
@@ -33,7 +42,7 @@ There were 2 test failures:
3342- [31mA larger test suite / should fail - Intentional failure[0m
3443- [31mA larger test suite / Arithmetic / Faulty Addition / should fail when adding incorrect numbers - Expected 5 but got 4[0m
3544Summary: 4 passed, 2 failed, 1 pending
36- Total time: 00:00:00.0124887
45+ Total time: 00:00:00.0048570
3746TAP version 14
38471..7
3948ok should pass
@@ -59,4 +68,4 @@ not ok should fail when adding incorrect numbers
5968There were 1 test failures:
6069- [31mAsync Tests / should handle async failure - Intentional async failure[0m
6170Summary: 1 passed, 1 failed, 0 pending
62- Total time: 00:00:00.4115251
71+ Total time: 00:00:00.4131968
You can’t perform that action at this time.
0 commit comments