--- a/quickSelfTest/RunUnitTests.st Tue Sep 12 13:33:30 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st Tue Sep 12 15:37:32 2017 +0200
@@ -18,7 +18,7 @@
documentation to be added.
[author:]
- sr
+ sr
[instance variables:]
@@ -33,75 +33,75 @@
run
|doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames
- cmdArgs
- unitTestSuite
+ cmdArgs
+ unitTestSuite
eachClassName eachClass
result|
doRunSpecificUnitTests := false.
- unitTestSuiteName := 'All Unit Tests'.
+ unitTestSuiteName := 'All Unit Tests'.
excludedUnitTestClassNames := self excludedUnitTestClassNamesForAll.
corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
cmdArgs := Smalltalk commandLineArguments.
(cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
- self logInfo:'configured to run expecco unit tests only'.
- doRunSpecificUnitTests := true.
- unitTestSuiteName := 'expecco Unit Tests'.
- excludedUnitTestClassNames := self excludedUnitTestClassNamesForExpecco.
+ self logInfo:'configured to run expecco unit tests only'.
+ doRunSpecificUnitTests := true.
+ unitTestSuiteName := 'expecco Unit Tests'.
+ excludedUnitTestClassNames := self excludedUnitTestClassNamesForExpecco.
].
doRunSpecificUnitTests ifFalse:[
- self logInfo:'configured to run all available unit tests'.
+ self logInfo:'configured to run all available unit tests'.
].
self logInfo:'collecting unit test classes to run'.
unitTestSuite := TestSuite named:unitTestSuiteName.
(Smalltalk at: #'stx_goodies_regression') classNamesAndAttributes do:[:eachClassNameAndAttributes |
- eachClassNameAndAttributes isSymbol ifTrue:[
- eachClassName := eachClassNameAndAttributes.
- ] ifFalse:[
- eachClassName := eachClassNameAndAttributes
- firstIfEmpty:nil.
- ].
+ eachClassNameAndAttributes isSymbol ifTrue:[
+ eachClassName := eachClassNameAndAttributes.
+ ] ifFalse:[
+ eachClassName := eachClassNameAndAttributes
+ firstIfEmpty:nil.
+ ].
- (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
- self
- logWarning:('corrupted unit test class detected, please fix #%1'
- bindWith:eachClassName).
- ] ifFalse:[
- (excludedUnitTestClassNames includes:eachClassName) ifFalse:[
- eachClassName notNil ifTrue:[
- eachClass := Smalltalk
- fileInClass:eachClassName
- package:'stx:goodies/regression'.
+ (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
+ self
+ logWarning:('corrupted unit test class detected, please fix #%1'
+ bindWith:eachClassName).
+ ] ifFalse:[
+ (excludedUnitTestClassNames includes:eachClassName) ifFalse:[
+ eachClassName notNil ifTrue:[
+ eachClass := Smalltalk
+ fileInClass:eachClassName
+ package:'stx:goodies/regression'.
- eachClass notNil ifTrue:[
- eachClass isTestCaseLike ifTrue:[
- unitTestSuite addTest:eachClass suite.
- ].
- ].
- ].
- ].
- ].
+ eachClass notNil ifTrue:[
+ eachClass isTestCaseLike ifTrue:[
+ unitTestSuite addTest:eachClass suite.
+ ].
+ ].
+ ].
+ ].
+ ].
].
- self
- logInfo:('%1 unit test classes collected'
- bindWith:unitTestSuite tests size).
+ self
+ logInfo:('%1 unit test classes collected'
+ bindWith:unitTestSuite tests size).
self logInfo:'starting unit tests'.
result := unitTestSuite
- run:TestResultStX new
- beforeEachDo:[:test | self logInfo:'performing unit test ', test printString]
- afterEachDo:[:test| ]
- debug:(cmdArgs includes:'--debug').
+ run:TestResultStX new
+ beforeEachDo:[:test | self logInfo:'performing unit test ', test printString]
+ afterEachDo:[:test| ]
+ debug:(cmdArgs includes:'--debug').
self logInfo:'generating report'.
TestResultReporter
- report:result
- format:#xml_jUnit
- as:'testresult.xml'.
+ report:result
+ format:#xml_jUnit
+ as:'testresult.xml'.
self logInfo:'summary:'.
self logInfo:('%1 tests' bindWith:result runCount).
@@ -114,14 +114,14 @@
corruptedUnitTestClassNames
^ #(
- #'RegressionTests::ExternalInterfaceTests'
- #'RegressionTests::Win32OLETests'
- #'RegressionTests::HTTPServerTests'
- #'RegressionTests::SocketTests'
- #'RegressionTests::DelayTest'
- #'RegressionTests::ContextTest2'
- #'RegressionTests::DebuggerTest'
- #'RegressionTests::OperatingSystem'
+ #'RegressionTests::ExternalInterfaceTests'
+ #'RegressionTests::Win32OLETests'
+ #'RegressionTests::HTTPServerTests'
+ #'RegressionTests::SocketTests'
+ #'RegressionTests::DelayTest'
+ #'RegressionTests::ContextTest2'
+ #'RegressionTests::DebuggerTest'
+ #'RegressionTests::OperatingSystem'
)
!
@@ -129,11 +129,12 @@
^ #()
!
-excludedUnitTestClassNamesForExpecco
+excludedUnitTestClassNamesForExpecco
^ self excludedUnitTestClassNamesForAll
- , #(
- #'RegressionTests::BreakpointTests'
- )
+ , #(
+ #'RegressionTests::BreakpointTests'
+ #'RegressionTests::SunitXMLOutputTest'
+ )
! !
!RunUnitTests class methodsFor:'logging'!
@@ -141,22 +142,21 @@
log:aString
type:aType
- Stdout
- showCR:('%1 [%2] : %3'
- bindWith:Timestamp now printString
- with:(aType printString asLowercase paddedTo:'warning' size)
- with:aString).
+ Stdout
+ showCR:('%1 [%2] : %3'
+ bindWith:Timestamp now printString
+ with:(aType printString asLowercase paddedTo:'warning' size)
+ with:aString).
!
logInfo:aString
self
- log:aString
- type:'INFO'
+ log:aString
+ type:'INFO'
!
logWarning:aString
self
- log:aString
- type:'WARNING'
+ log:aString
+ type:'WARNING'
! !
-