Refactor timeout scaling factor initialization
In order to stabilize tests on (heavily loaded) CI infrastructure,
reasses scaling factor every three minutes. Also include (simple)
I/O benchmark to compensate for (overloaded) I/O subsystem of
CI slaves.
For details, see `Builder::TestReport::Result >> timeoutScale`
"{ Package: 'stx:goodies/builder/reports' }"!
!TestCase methodsFor:'accessing'!
nameForHDTestReport
^(self class package asString replaceAll: $: with: $.; replaceAll: $/ with: $.) , '.' , self name
"
Object nameForHDTestReport
SVN::Repository nameForHDTestReport
"
"Created: / 01-04-2011 / 16:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 06-04-2011 / 13:36:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!TestCase methodsFor:'accessing'!
selectorForHDTestReport
^testSelector
! !
!TestCase methodsFor:'accessing'!
timeout
"Returns a default timeout (sec) for the test.
If nil is returned, no timeout enforced.
Note that the timeout is set only when running under
report runner, interactive tools does not use it"
| method |
method := self class lookupMethodFor: testSelector.
method annotationsAt:#timeout: do:[:annotation|
^annotation arguments first
].
^60"sec - default timeout"
"Created: / 12-01-2012 / 17:48:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 26-04-2013 / 16:58:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!TestCase class methodsFor:'testing'!
isJUnitTestCaseProxy
^false
! !
!TestCase class methodsFor:'testing'!
isTestletTestCaseProxy
^false
! !
!stx_goodies_builder_reports class methodsFor:'documentation'!
extensionsVersion_CVS
^ '$Header$'
! !