reports/extensions.st
author Claus Gittinger <cg@exept.de>
Thu, 28 Mar 2019 13:54:38 +0100
changeset 542 aa25a71be62a
parent 161 272aec4b1764
child 530 d000086cab5e
permissions -rw-r--r--
#DOCUMENTATION by cg
class: stx_goodies_builder_quickSelfTest
class definition

class: stx_goodies_builder_quickSelfTest class
added:18 methods
jan@55
     1
"{ Package: 'stx:goodies/builder/reports' }"!
jan@55
     2
jan@55
     3
!TestCase methodsFor:'accessing'!
jan@55
     4
jan@55
     5
nameForHDTestReport
jan@55
     6
jan@55
     7
    ^(self class package asString replaceAll: $: with: $.; replaceAll: $/ with: $.) , '.' , self name
jan@55
     8
jan@55
     9
    "
jan@55
    10
        Object nameForHDTestReport    
jan@55
    11
        SVN::Repository nameForHDTestReport
jan@55
    12
    "
jan@55
    13
jan@55
    14
    "Created: / 01-04-2011 / 16:09:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
jan@55
    15
    "Modified: / 06-04-2011 / 13:36:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
jan@55
    16
! !
jan@55
    17
jan@55
    18
!TestCase methodsFor:'accessing'!
jan@55
    19
jan@55
    20
selectorForHDTestReport
jan@55
    21
jan@55
    22
	^testSelector
jan@55
    23
jan@55
    24
! !
jan@55
    25
jan@55
    26
!TestCase methodsFor:'accessing'!
jan@55
    27
jan@55
    28
timeout
jan@55
    29
    "Returns a default timeout (sec) for the test.
jan@55
    30
     If nil is returned, no timeout enforced.
jan@55
    31
jan@55
    32
    Note that the timeout is set only when running under
jan@55
    33
    report runner, interactive tools does not use it"
jan@55
    34
jan@146
    35
    | method |
jan@146
    36
    method := self class lookupMethodFor: testSelector.
jan@146
    37
    method annotationsAt:#timeout: do:[:annotation|
jan@146
    38
         ^annotation arguments first
jan@146
    39
    ].
jan@146
    40
    ^60"sec - default timeout"
jan@55
    41
jan@55
    42
    "Created: / 12-01-2012 / 17:48:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
jan@146
    43
    "Modified: / 26-04-2013 / 16:58:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
jan@55
    44
! !
jan@55
    45
jan@55
    46
!TestCase class methodsFor:'testing'!
jan@55
    47
jan@55
    48
isJUnitTestCaseProxy
jan@55
    49
jan@55
    50
	^false
jan@55
    51
jan@55
    52
! !
jan@55
    53
jan@55
    54
!TestCase class methodsFor:'testing'!
jan@55
    55
jan@55
    56
isTestletTestCaseProxy
jan@55
    57
jan@55
    58
	^false
jan@55
    59
jan@55
    60
! !
jan@55
    61
jan@55
    62
!stx_goodies_builder_reports class methodsFor:'documentation'!
jan@55
    63
jan@55
    64
extensionsVersion_CVS
jan@55
    65
    ^ '$Header$'
jan@146
    66
! !
jan@161
    67