#BUGFIX by sr
class: RunUnitTests class
changed: #runWithCompiledUnitTestClasses:arguments:debug:
--- a/quickSelfTest/RunUnitTests.st Thu Oct 12 13:22:28 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st Thu Oct 12 13:58:23 2017 +0200
@@ -53,7 +53,7 @@
|doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames
cmdArgs
unitTestSuite
- eachClassName eachClass
+ eachClass
result index
settingsFilePathName resultFilePathName forceTestCase|
@@ -73,7 +73,6 @@
Smalltalk exit.
].
-
index := cmdArgs indexOf:'--settingsFile'.
index > 0 ifTrue:[
settingsFilePathName := cmdArgs at:index + 1.
@@ -108,14 +107,7 @@
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.
- ].
-
+ (Smalltalk at: #'stx_goodies_regression') classNames do:[:eachClassName |
(excludedUnitTestClassNames includes:eachClassName) ifTrue:[
self
logInfo:('excluded unit test class "%1".'
@@ -156,12 +148,17 @@
].
eachClass notNil ifTrue:[
- eachClass isTestCaseLike ifTrue:[
+ (eachClass isTestCaseLike
+ and:[eachClass isAbstract not]) ifTrue:[
self
logInfo:('added unit test class "%1".'
bindWith:eachClassName).
unitTestSuite addTest:eachClass suite.
+ ] ifFalse:[
+ self
+ logInfo:('not a unit test class "%1" (class is abstract or something else).'
+ bindWith:eachClassName).
].
] ifFalse:[
self
@@ -201,6 +198,10 @@
self logInfo:('%1 errors' bindWith:result errorCount).
"
+ Processor activeProcess exceptionHandlerSet
+ on:Class updateChangeFileQuerySignal
+ do:[:ex | ex proceedWith:false].
+
self
runWithCompiledUnitTestClasses:true
arguments:#('--runOnlyExpeccoUnitTests')