--- a/TestResult.st	Mon Jun 04 19:08:05 2012 +0200
+++ b/TestResult.st	Thu Aug 02 22:54:20 2012 +0200
@@ -38,13 +38,6 @@
     "Modified (comment): / 20-08-2011 / 17:34:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!TestResult class methodsFor:'*Orca-Core'!
-
-requiredClasses 
-
-	^ { TimeStamp }
-! !
-
 !TestResult class methodsFor:'accessing'!
 
 defaultResultClass
@@ -113,10 +106,10 @@
 
 errors
 
-    errors isNil ifTrue: [^#()].
-    ^errors collect:[:outcome|outcome testCase]
+    errors isNil ifTrue: [^OrderedCollection new].
+    ^errors collect:[:each|each testCase]
 
-    "Modified: / 16-08-2011 / 15:54:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 02-08-2012 / 15:40:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 exceptions
@@ -150,10 +143,10 @@
 failures
         "We use a Set, not an OrderedCollection as #errors and #passed do, because a resumable test failure in a loop can raise many failures against the same test.  In current Sunit UIs, this could result in bizarre test count reporting (-27 tests run, and suchlike).  This will be reviewed."
 
-    failures isNil ifTrue: [^#()].
-    ^failures collect:[:outcome|outcome testCase]
+    failures isNil ifTrue: [^OrderedCollection new].
+    ^failures collect:[:each|each testCase]
 
-    "Modified: / 16-08-2011 / 15:54:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 02-08-2012 / 14:55:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 name
@@ -190,10 +183,11 @@
             passed := OrderedCollection new.
             ^ passed.
         ].
-        ^passed collect:[:outcome|outcome testCase]
+        ^passed collect:[:each|each testCase]
 
     "Modified: / 16-08-2011 / 15:54:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-11-2011 / 11:19:57 / cg"
+    "Modified (format): / 02-08-2012 / 14:55:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 passedCount
@@ -477,11 +471,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.41 2012-06-04 17:08:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.42 2012-08-02 20:54:20 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.41 2012-06-04 17:08:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.42 2012-08-02 20:54:20 vrany Exp $'
 !
 
 version_SVN