reports/extensions.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 11 Mar 2017 21:41:58 +0000
branchjv
changeset 326 113031dfa759
parent 161 272aec4b1764
child 529 d000086cab5e
permissions -rw-r--r--
Workaround for bug (?) in ProcessorScheduler "Due to some bug (?) in ProcessorScheduler, we need to set exitWhenNoMoreUserProcesses to prevent process dispatcher to exit prematurely. Sometimes, ProcessorScheduler>>checkForEndOfSispatch thought there's no runnable user proless even though test runner did not finish (was merely waiting for external command to finish). Happened sometimes. not always.

"{ 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$'
! !