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