--- a/quickSelfTest/RunUnitTests.st Tue Sep 19 10:17:02 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st Thu Sep 21 14:34:44 2017 +0200
@@ -65,21 +65,21 @@
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'.
+ (excludedUnitTestClassNames includes:eachClassName) ifFalse:[
+ (corruptedUnitTestClassNames includes:eachClassName) ifTrue:[
+ self
+ logWarning:('corrupted unit test class detected, please fix #%1'
+ bindWith: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.
+ ].
].
].
].
@@ -117,6 +117,7 @@
#'RegressionTests::ExternalInterfaceTests'
#'RegressionTests::HTTPServerTests'
#'RegressionTests::DebuggerTest'
+ #'RegressionTests::ContextTest2'
)
!
@@ -139,6 +140,10 @@
#'RegressionTests::SnapshotRestartTests'
#'RegressionTests::GraphicDrawingTest'
#'RegressionTests::OS_OLE_Tests'
+ #'RegressionTests::ExternalInterfaceTests'
+ #'RegressionTests::HTTPServerTests'
+ #'RegressionTests::DebuggerTest'
+ #'RegressionTests::ContextTest2'
)
! !