*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 28 Mar 2019 14:06:01 +0100
changeset 54772e5307ece32
parent 546 3bf7132291da
child 548 8846155dc785
*** empty log message ***
quickSelfTest/RunUnitTests.st
     1.1 --- a/quickSelfTest/RunUnitTests.st	Thu Mar 28 13:59:32 2019 +0100
     1.2 +++ b/quickSelfTest/RunUnitTests.st	Thu Mar 28 14:06:01 2019 +0100
     1.3 @@ -177,7 +177,7 @@
     1.4      result := unitTestSuite
     1.5  	run:TestResultStX new
     1.6  	beforeEachDo:[:test |
     1.7 -	    self logInfo:'performing unit test "%1"' with:test printString
     1.8 +	    self logInfo:'Run "%1"' with:test printString
     1.9  	]
    1.10  	afterEachDo:[:test :result|
    1.11  	    |execTime status|
    1.12 @@ -213,7 +213,7 @@
    1.13      self logInfo:'  %1 passed' with:result passedCount.
    1.14      self logInfo:'  %1 failed' with:result failureCount.
    1.15      self logInfo:'  %1 errors' with:result errorCount.
    1.16 -    self logInfo:'  exec. time: %1' with:(TimeDuration fromSeconds:result executionTime).
    1.17 +    "/ self logInfo:'  exec. time: %1' with:(TimeDuration fromSeconds:result executionTime).
    1.18  
    1.19      "Modified (format): / 16-05-2018 / 13:59:47 / sr"
    1.20      "Modified: / 26-03-2019 / 19:00:38 / Claus Gittinger"
    1.21 @@ -347,7 +347,7 @@
    1.22      Transcript notNil ifTrue:[
    1.23  	Transcript showCR:'%1 [%2] : %3'
    1.24  		with:Timestamp now printString
    1.25 -		with:(aType printString asLowercase paddedTo:'warning' size)
    1.26 +		with:(aType printString asLowercase "paddedTo:'warning' size")
    1.27  		with:aString.
    1.28  	^ self
    1.29      ].