--- a/TestResult.st Mon Feb 13 04:35:21 2017 +0000
+++ b/TestResult.st Mon May 22 18:37:54 2017 +0200
@@ -316,10 +316,10 @@
!TestResult methodsFor:'adding / removing'!
addError:testcase detail:detail
- "Called when a test outcome is error. testCase
- is the errorneous testcase, detail is platform
+ "Called when a test outcome is error. testCase
+ is the erroneous testcase, detail is platform
specific object describing the error. Actually,
- on all platforms exept GemStone, detail is an instance
+ on all platforms except GemStone, detail is an instance
of an exception that caused the error"
"JV2011-08-03: TODO: Validate the comment above with GS,
possibly change name to 'exception'"
@@ -332,18 +332,19 @@
"Created: / 03-08-2011 / 13:50:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 06-08-2011 / 09:46:41 / cg"
"Modified: / 20-08-2011 / 12:46:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 22-05-2017 / 18:27:02 / mawalch"
!
-addFailure:testcase detail:detail
- "Called when a test fails. testCase is the failed
+addFailure:testcase detail:detail
+ "Called when a test fails. testCase is the failed
testcase, detail is platform specific object describing
- the failure. Actually, on all platforms exept GemStone,
+ the failure. Actually, on all platforms except GemStone,
detail is an instance of an exception that caused the failure"
"JV2011-08-03: TODO: Validate the comment above with GS,
possibly change name to 'exception'"
"Special handling here, because failures can be resumable"
- self failureOutcomes do:[:outcome |
+ self failureOutcomes do:[:outcome |
outcome testCase = testcase ifTrue:[
^ self
].
@@ -355,6 +356,7 @@
"Created: / 03-08-2011 / 13:53:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 06-08-2011 / 09:55:17 / cg"
"Modified: / 20-08-2011 / 12:46:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 22-05-2017 / 18:25:30 / mawalch"
!
addPass:testCase