--- a/quickSelfTest/RunUnitTests.st Thu Oct 12 11:24:40 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st Thu Oct 12 11:29:45 2017 +0200
@@ -128,6 +128,10 @@
eachClass notNil ifTrue:[
eachClass isTestCaseLike ifTrue:[
+ self
+ logInfo:('unit test class "%1" added.'
+ bindWith:eachClassName).
+
unitTestSuite addTest:eachClass suite.
].
] ifFalse:[
@@ -135,6 +139,10 @@
logWarning:('unit test class "%1" is not loaded.'
bindWith:eachClassName).
].
+ ] ifFalse:[
+ self
+ logInfo:('unit test class "%1" skipped.'
+ bindWith:eachClassName).
].
].
].