--- a/TestResultStX.st	Thu Oct 25 00:35:31 2012 +0200
+++ b/TestResultStX.st	Thu Oct 25 00:35:48 2012 +0200
@@ -1,16 +1,39 @@
 "{ Package: 'stx:goodies/sunit' }"
 
 TestResult subclass:#TestResultStX
-	instanceVariableNames:''
+	instanceVariableNames:'endTime startTime'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'SUnit-Smalltalk/X'
 !
 
 
+!TestResultStX methodsFor:'accessing'!
+
+endTime
+    ^ endTime
+!
+
+endTime:aTimestamp
+    "sets the overall (suite) end time"
+
+    endTime := aTimestamp.
+!
+
+startTime
+    ^ startTime
+!
+
+startTime:aTimestamp
+    "sets the overall (suite) end time"
+
+    startTime := aTimestamp.
+! !
+
 !TestResultStX methodsFor:'outcome'!
 
 rememberEndTime
+    "remembers the endTime of the current test (in outcome)"
 
     ^outcome endTime: Timestamp now
 
@@ -74,6 +97,7 @@
 !
 
 rememberStartTime
+    "remembers the startTime of the current test (in outcome)"
 
     ^outcome startTime: Timestamp now
 
@@ -105,9 +129,9 @@
 !TestResultStX class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.2 2012-10-24 16:16:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.3 2012-10-24 22:35:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.2 2012-10-24 16:16:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultStX.st,v 1.3 2012-10-24 22:35:48 cg Exp $'
 ! !