# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1553778361 -3600
# Node ID 72e5307ece3296abba26d7d2729754b4c65e0f53
# Parent  3bf7132291dac6e0ff9c4a863a340d9866fd0f60
*** empty log message ***

diff -r 3bf7132291da -r 72e5307ece32 quickSelfTest/RunUnitTests.st
--- 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
     ].