Added more detailed information to smoketest failure result string.

This commit is contained in:
Stephan Bergmann 2011-09-15 20:40:48 +02:00
parent 7d64f8ac5d
commit ee02d6eb26

View file

@ -448,7 +448,11 @@ Function RecordTestCaseStatus( nAction as Integer, bState as Boolean, sFailureAn
gErrorState (nStatusType, nAction) = nState
If ( nState = cLogFalse ) And ( sFailureAnnotation <> "" ) Then
gTestCaseAnnotations( nStatusType, nAction ) = gTestCaseAnnotations( nStatusType, nAction ) + sFailureAnnotation + chr(13)
if gTestCaseAnnotations(nStatusType, nAction) <> "" then
gTestCaseAnnotations(nStatusType, nAction) = _
gTestCaseAnnotations(nStatusType, nAction) & "; "
end if
gTestCaseAnnotations( nStatusType, nAction ) = gTestCaseAnnotations( nStatusType, nAction ) + sFailureAnnotation
End If
RecordTestCaseStatus = bState
@ -721,6 +725,10 @@ Function StartTestWithDefaultOptions
result = result & action(j)
end if
end if
if gTestCaseAnnotations(i, j) <> "" then
result = result & "(" & _
gTestCaseAnnotations(i, j) & ")"
end if
end if
next j
next i