--- a/RegressionTests__QuickTestRunner.st Thu Feb 21 15:24:42 2013 +0100
+++ b/RegressionTests__QuickTestRunner.st Thu Feb 21 19:08:39 2013 +0100
@@ -3,10 +3,10 @@
"{ NameSpace: RegressionTests }"
Object subclass:#QuickTestRunner
- instanceVariableNames:'suite anyError result'
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression'
+ instanceVariableNames:'suite anyError result'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression'
!
!QuickTestRunner class methodsFor:'documentation'!
@@ -14,7 +14,7 @@
documentation
"
ATTENTION: if you change anything here, please verify compatibility with the
- SeltTestRunner script found in exept/regression.
+ SeltTestRunner script found in exept/regression.
This is meant to be called via a script or command-line argument, when executing
selftests via jenkins.
@@ -28,15 +28,15 @@
to use with jenkins (+ jUnit plugin):
use the following buildscript (in jenkins):
(after checkout of stx)
- cd stx
- call bmake
- cd goodies\selftest
- ..\..\projects\smalltalk\stx.com --noBanner -I --execute SelfTestRunner.st
+ cd stx
+ call bmake
+ cd goodies\selftest
+ ..\..\projects\smalltalk\stx.com --noBanner -I --execute SelfTestRunner.st
and configure the jenkins junit plugin, to scan for 'testresult.xml'
[author:]
- Claus Gittinger
+ Claus Gittinger
[instance variables:]
@@ -62,12 +62,12 @@
runner := self new.
runner
- prepare;
- buildSuite;
- runSuite.
+ prepare;
+ buildSuite;
+ runSuite.
Smalltalk isStandAloneApp ifTrue:[
- Smalltalk exit:(runner anyError ifTrue:[1] ifFalse:[0])
+ Smalltalk exit:(runner anyError ifTrue:[1] ifFalse:[0])
].
! !
@@ -83,17 +83,17 @@
Stdout showCR:'Loading regression tests...'.
self listOfTestClasses do:[:className |
- |fullName|
+ |fullName|
- fullName := ('RegressionTests::',className).
- Stdout showCR:('Loading ',className,'...').
- Smalltalk fileInClass:fullName package:'exept:regression'.
- (Smalltalk classNamed:fullName) isNil ifTrue:[
- Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
- anyMissing := true.
- ] ifFalse:[
- suite addTest:(Smalltalk classNamed:fullName) suite.
- ]
+ fullName := ('RegressionTests::',className).
+ Stdout showCR:('Loading ',className,'...').
+ Smalltalk fileInClass:fullName package:'exept:regression'.
+ (Smalltalk classNamed:fullName) isNil ifTrue:[
+ Stdout showCR:('**** Ouch - missing class: "',fullName,'"').
+ anyMissing := true.
+ ] ifFalse:[
+ suite addTest:(Smalltalk classNamed:fullName) suite.
+ ]
].
anyError := anyError | anyMissing.
@@ -102,9 +102,9 @@
generateReport
Stdout showCR:'Generating report...'.
TestResultReporter
- report:result
- format:#xml_jUnit
- as:'testresult.xml'.
+ report:result
+ format:#xml_jUnit
+ as:'testresult.xml'.
Stdout showCR:'Summary:'.
Stdout showCR:(' %1 tests;' bindWith:result runCount).
@@ -116,57 +116,58 @@
listOfTestClasses
^ #(
- "/ 'SunitXMLOutputTest'
- 'CoverageInstrumentationTest'
- 'AssociationTests'
- 'BinaryIOTests'
- 'BinaryTreeTester'
- "/ 'BlockTest'
- 'CharacterTests'
- 'CollectionTests'
- 'CompilerTest'
- 'ComplexTest'
- 'CryptTests'
- 'STCCompilerTests'
- "/ 'DebuggerTest'
- "/ 'DeepCopyTests'
- 'DelayTest'
- 'DictionaryTest'
- 'EnumerationTests'
- 'ExceptionTest'
- "/ 'ExternalInterfaceTests'
- "/ 'FileOpenTest'
- 'FileStreamTest'
- 'FloatTest'
- 'FractionTest'
- "/ 'GCTest'
- "/ 'GraphicDrawingTest'
- "/ 'HTMLParserTests'
- "/ 'ImageReaderTest'
- 'IntegerTest'
- 'JavaScriptTests'
- "/ 'MeasurementValueTests'
- "/ 'MemoryTest'
- 'NumberTest'
- "/ 'ParserTest'
- 'ScaledDecimalTest'
- "/ 'SemaphoreTest'
- "/ 'SharedQueueTest'
- 'SmallIntegerTest'
- "/ 'SortTests'
- 'StringTests'
- 'StreamTests'
- 'TimeAndDateTest'
- 'TimeDurationTest'
- "/ 'URLTest'
- "/ 'XMLCoderTests'
- "/ 'ZipArchiveTests'
- 'ClassBuilderTests'
- 'CompilerTests2'
- 'ChangeSetTests'
+ "/ 'SunitXMLOutputTest'
+ 'CoverageInstrumentationTest'
+ 'AssociationTests'
+ 'BinaryIOTests'
+ 'BinaryTreeTester'
+ "/ 'BlockTest'
+ 'CharacterTests'
+ 'CollectionTests'
+ 'CompilerTest'
+ 'ComplexTest'
+ 'CryptTests'
+ 'STCCompilerTests'
+ "/ 'DebuggerTest'
+ "/ 'DeepCopyTests'
+ 'DelayTest'
+ 'DictionaryTest'
+ 'EnumerationTests'
+ 'ExceptionTest'
+ "/ 'ExternalInterfaceTests'
+ "/ 'FileOpenTest'
+ 'FileStreamTest'
+ 'FloatTest'
+ 'FractionTest'
+ "/ 'GCTest'
+ "/ 'GraphicDrawingTest'
+ "/ 'HTMLParserTests'
+ "/ 'ImageReaderTest'
+ 'IntegerTest'
+ 'JavaScriptTests'
+ "/ 'MeasurementValueTests'
+ "/ 'MemoryTest'
+ 'NumberTest'
+ "/ 'ParserTest'
+ 'ScaledDecimalTest'
+ "/ 'SemaphoreTest'
+ "/ 'SharedQueueTest'
+ 'SmallIntegerTest'
+ "/ 'SortTests'
+ 'StringTests'
+ 'StreamTests'
+ 'TimeAndDateTest'
+ 'TimeDurationTest'
+ "/ 'URLTest'
+ "/ 'XMLCoderTests'
+ "/ 'ZipArchiveTests'
+ 'ClassBuilderTests'
+ 'CompilerTests2'
+ 'ChangeSetTests'
+ 'FilenameTests'
)
- "Modified: / 12-02-2013 / 16:34:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 21-02-2013 / 18:05:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
prepare
@@ -183,8 +184,8 @@
ObjectMemory infoPrinting:false.
Processor activeProcess exceptionHandlerSet
- on:(Class updateChangeFileQuerySignal)
- do:[:ex | ex proceedWith:false ].
+ on:(Class updateChangeFileQuerySignal)
+ do:[:ex | ex proceedWith:false ].
Stdout showCR:'Selftest Started'.
@@ -200,11 +201,11 @@
runSuite
Stdout showCR:'Running suite...'.
result := suite
- run:TestResultStX new beforeEachDo:[:test |
- Stdout showCR:('- running ',test printString).
- ]
- afterEachDo:[:test| ]
- debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
+ run:TestResultStX new beforeEachDo:[:test |
+ Stdout showCR:('- running ',test printString).
+ ]
+ afterEachDo:[:test| ]
+ debug:(Smalltalk commandLineArgumentNamed:'--debug') notNil.
! !
!QuickTestRunner methodsFor:'initialization'!