Mini / Embedded test runner: show number of skipped tests in report
Previusly, skipped tests were simply ignored which was confusing.
Thanks Guillermo for pushing me to fix this.
--- a/Tools__TestRunnerMini.st Fri Nov 17 12:22:55 2017 -0300
+++ b/Tools__TestRunnerMini.st Fri Nov 17 12:27:21 2017 -0300
@@ -1249,7 +1249,7 @@
!
info
- |numTests numPassed numFailed numRun resources numError |
+ |numTests numPassed numFailed numRun resources numError numSkipped |
result isNil ifTrue:[^''].
@@ -1257,7 +1257,8 @@
numPassed := result passedCount.
numFailed := result failureCount.
numError := result errorCount.
- numRun := numPassed + numFailed + numError.
+ numSkipped := result skippedCount.
+ numRun := numPassed + numFailed + numError + numSkipped.
"/ (result passedCount + result failureCount + result errorCount) = 1 ifTrue:[^''].
resources := TestRunnerMini resources.
numRun == 0 ifTrue:[
@@ -1285,10 +1286,14 @@
"/ ', %5 errors'...
s nextPut: $,. numError printOn: s. s space; nextPutAll: (resources string: (numError > 1 ifTrue:[ 'errors' ] ifFalse:[ 'error' ])).
].
+ numSkipped > 0 ifTrue:[
+ "/ ', %4 failed'...
+ s nextPut: $,. numSkipped printOn: s. s space; nextPutAll: (resources string: 'skipped').
+ ].
].
"Created: / 15-03-2010 / 20:23:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 17-11-2017 / 12:23:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-11-2017 / 12:25:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
name