diff -r 384514ae296e -r 6d27e1fed212 TestResult.st --- 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 " "Modified: / 06-08-2011 / 09:46:41 / cg" "Modified: / 20-08-2011 / 12:46:24 / Jan Vrany " + "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 " "Modified: / 06-08-2011 / 09:55:17 / cg" "Modified: / 20-08-2011 / 12:46:15 / Jan Vrany " + "Modified (comment): / 22-05-2017 / 18:25:30 / mawalch" ! addPass:testCase