luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Test.PrintSummary: Result in the last line

Browse source
This commit is contained in:
Christof Thalhofer 2020-05-01 18:59:20 +02:00
parent 4c2a4f47f5
commit 3cf670ef85
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
comp/src/gb.test/.src/TestMe.module
View file

@ -36,4 +36,4 @@ Public Sub Main()
Test.Main(Tests)
End
End

10
comp/src/gb.test/.src/TestSuite/Test.module
View file

@ -34,14 +34,16 @@ Private Sub PrintSummary()
Session = Test.Session
With Session
Test.Print(gb.Lf) ' better readability for humans
Test.Note(Subst$(("&2 - ran: '&1' "), .Summary.Description, IIf(.Summary.Success, "PASSED", "FAILED")))
Test.Note(Subst$(("Ran: '&1' "), .Summary.Description))
If .TestsRun <> .Plan Then Test.Note(Subst$(("Planned &1 tests but ran &2"), .Plan, .TestsRun))
Test.Note(gb.Lf)
If Not .Summary.Success Then ShowTestCollection(("&1 tests failed:"), FindFailures(.Summary.Subtests, ""))
ShowTestCollection(("&1 tests skipped:"), FindSkips(.Summary.Subtests, ""))
ShowTestCollection(("&1 tests todo:"), FindTodos(.Summary.Subtests, ""))
ShowTestCollection(("&1 tests bonus:"), FindBonus(.Summary.Subtests, ""))
ShowTestCollection(("&1 skipped:"), FindSkips(.Summary.Subtests, ""))
ShowTestCollection(("&1 todo:"), FindTodos(.Summary.Subtests, ""))
ShowTestCollection(("&1 bonus:"), FindBonus(.Summary.Subtests, ""))
Test.Note(IIf(.Summary.Success, "PASSED", "FAILED"))
End With
End