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