--- a/TestResult.st	Wed Oct 24 23:55:45 2012 +0200
+++ b/TestResult.st	Thu Oct 25 00:35:31 2012 +0200
@@ -88,6 +88,13 @@
 		addAll: self failures; yourself
 !
 
+endTime:aTimestamp
+    "sets the overall (suite) end time"
+
+    "/ ignored, for now (Neil should add it)
+    "/ endTime := aTimestamp.
+!
+
 errorCount
 
         ^self errorOutcomes size
@@ -209,6 +216,13 @@
 	^self passedCount + self failureCount + self errorCount
 !
 
+startTime:aTimestamp
+    "sets the overall (suite) start time"
+
+    "/ ignored, for now (Neil should add it)
+    "/ startTime := aTimestamp.
+!
+
 testOutcomes
 
         ^(OrderedCollection new: self runCount)
@@ -233,8 +247,8 @@
     ^ timestamp
 !
 
-timestamp:something
-    timestamp := something.
+timestamp:aTimestamp
+    timestamp := aTimestamp.
 ! !
 
 !TestResult methodsFor:'adding / removing'!
@@ -335,6 +349,7 @@
 !
 
 rememberEndTime
+    "remembers the endTime of the current test (in outcome)"
 
     ^nil
 
@@ -347,6 +362,7 @@
 !
 
 rememberStartTime
+    "remembers the startTime of the current test (in outcome)"
 
     ^nil
 
@@ -470,11 +486,11 @@
 !TestResult class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.43 2012-10-24 15:32:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.44 2012-10-24 22:35:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.43 2012-10-24 15:32:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResult.st,v 1.44 2012-10-24 22:35:31 cg Exp $'
 !
 
 version_SVN