reports/extensions.st
author Claus Gittinger <cg@exept.de>
Thu, 25 Oct 2012 15:13:58 +0200
changeset 96 1ce506fc7d85
parent 55 d6e89853991f
child 146 0cf5a47e69fc
permissions -rw-r--r--
*** empty log message ***
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
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    35
    ^60"sec"
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    36
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    37
    "Created: / 12-01-2012 / 17:48:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    38
! !
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    39
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    40
!TestCase class methodsFor:'testing'!
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
isJUnitTestCaseProxy
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    43
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    44
	^false
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
! !
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
!TestCase class methodsFor:'testing'!
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
isTestletTestCaseProxy
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
	^false
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
! !
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
!stx_goodies_builder_reports class methodsFor:'documentation'!
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
extensionsVersion_CVS
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    59
    ^ '$Header$'
d6e89853991f Initial commit (from SVN)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 54
diff changeset
    60
! !