--- a/TestResult.st Wed Nov 02 15:44:29 2011 +0100
+++ b/TestResult.st Mon Nov 07 11:20:22 2011 +0100
@@ -178,10 +178,15 @@
!
passed
- passed isNil ifTrue: [^#()].
+ passed isNil ifTrue: [
+ "/ cg: exposed and added to (see TestRunnerEmbedded>>debug)
+ passed := OrderedCollection new.
+ ^ passed.
+ ].
^passed collect:[:outcome|outcome testCase]
"Modified: / 16-08-2011 / 15:54:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 07-11-2011 / 11:19:57 / cg"
!
passedCount
@@ -423,11 +428,11 @@
!TestResult class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.37 2011-08-21 16:05:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.38 2011-11-07 10:20:22 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.37 2011-08-21 16:05:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.38 2011-11-07 10:20:22 cg Exp $'
!
version_SVN