#FEATURE by cg
class: TestResult
class definition
added: #endTime
comment/format in:
#timestamp
#timestamp:
changed:
#endTime:
#executionTime
"{ Package: 'stx:goodies/sunit' }"
Object subclass:#TestCaseOutcome
instanceVariableNames:'testCase result properties'
classVariableNames:''
poolDictionaries:''
category:'SUnit-Base'
!
!TestCaseOutcome class methodsFor:'documentation'!
documentation
"
will keep additional info for a testCase run:
startTime, endTime,
backtrace (if fail or error)
and collectedStdout
"
! !
!TestCaseOutcome class methodsFor:'instance creation'!
forCase: aTestCase
^self new testCase: aTestCase; yourself
"Created: / 16-08-2011 / 15:24:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!TestCaseOutcome methodsFor:'accessing'!
collectedOutput
^self propertyAt: #collectedOutput
"Modified: / 16-08-2011 / 15:27:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 16-08-2011 / 18:19:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
collectedOutput: aString
^self propertyAt: #collectedOutput put: aString
"Modified: / 16-08-2011 / 15:28:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Created: / 16-08-2011 / 18:19:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
endTime
^self propertyAt: #endTime
"Modified: / 16-08-2011 / 15:28:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
endTime: anObject
^self propertyAt: #endTime put: anObject
"Modified: / 16-08-2011 / 15:28:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
exceptionDetail
^self propertyAt: #exceptionDetail
"Modified: / 16-08-2011 / 15:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
exceptionDetail: anObject
^self propertyAt: #exceptionDetail put: anObject
"Modified: / 16-08-2011 / 15:29:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
propertyAt: aSymbol
self propertyAt: aSymbol ifAbsent: [nil]
"Created: / 16-08-2011 / 15:26:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
propertyAt: aSymbol ifAbsent: aBlock
properties isNil ifTrue: [^aBlock value].
^properties at: aSymbol ifAbsent:aBlock.
"Created: / 16-08-2011 / 15:27:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
propertyAt: aSymbol put: anObject
properties isNil ifTrue: [properties := Dictionary new].
properties at: aSymbol put: anObject.
"Created: / 16-08-2011 / 15:28:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
result
^ result
!
result:something
result := something.
!
selector
^testCase selector
"Created: / 16-08-2011 / 15:38:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
startTime
^self propertyAt: #startTime
"Modified: / 16-08-2011 / 15:29:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
startTime: anObject
^self propertyAt: #startTime put: anObject
"Modified: / 16-08-2011 / 15:29:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
testCase
^ testCase
!
testCase:something
testCase := something.
! !
!TestCaseOutcome class methodsFor:'documentation'!
version_CVS
^ '$Header: /cvs/stx/stx/goodies/sunit/TestRunInfo.st,v 1.5 2011-08-16 18:17:40 vrany Exp $'
! !