TestResult.st
changeset 434 14f83a6de60e
parent 431 e047454c9c94
child 438 ceb3517dcae7
--- 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