--- a/quickSelfTest/RunUnitTests.st Thu Mar 28 13:59:32 2019 +0100
+++ b/quickSelfTest/RunUnitTests.st Thu Mar 28 14:06:01 2019 +0100
@@ -177,7 +177,7 @@
result := unitTestSuite
run:TestResultStX new
beforeEachDo:[:test |
- self logInfo:'performing unit test "%1"' with:test printString
+ self logInfo:'Run "%1"' with:test printString
]
afterEachDo:[:test :result|
|execTime status|
@@ -213,7 +213,7 @@
self logInfo:' %1 passed' with:result passedCount.
self logInfo:' %1 failed' with:result failureCount.
self logInfo:' %1 errors' with:result errorCount.
- self logInfo:' exec. time: %1' with:(TimeDuration fromSeconds:result executionTime).
+ "/ self logInfo:' exec. time: %1' with:(TimeDuration fromSeconds:result executionTime).
"Modified (format): / 16-05-2018 / 13:59:47 / sr"
"Modified: / 26-03-2019 / 19:00:38 / Claus Gittinger"
@@ -347,7 +347,7 @@
Transcript notNil ifTrue:[
Transcript showCR:'%1 [%2] : %3'
with:Timestamp now printString
- with:(aType printString asLowercase paddedTo:'warning' size)
+ with:(aType printString asLowercase "paddedTo:'warning' size")
with:aString.
^ self
].