Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r2010 -r2096
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2010)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2096)
@@ -73,6 +73,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="StartSeconds">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EndSeconds">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Parameter name="DUPEPackagePrefix">
+<Type>%String</Type>
+</Parameter>
+
 <Method name="RunTest">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
@@ -189,7 +203,11 @@
 <Method name="DumpFails">
 <Final>1</Final>
 <Implementation><![CDATA[
- 	write !," -- Test cases: " , ..TestCaseCount, "; Methods: ",..TestCount , !
+ 	#dim Verschil As TECH.Numeric = ..EndSeconds-..StartSeconds
+ 	#dim Prefix As TECH.String = " -- "
+ 	write !, Prefix, "Test cases: " , ..TestCaseCount
+ 	write !, Prefix, "Methods: ",..TestCount
+ 	write !, Prefix, "Duration: "_##class(TECH.Context).Instance().GeefFormatAPI().FormatHorolog(","_$Piece(Verschil, ".",1), "nn:ss")_"."_$Piece(Verschil, ".",2), !
  	if '..IsSuccess(..TestSuite) {
 	 	write !," ===== ERRORS: ===== "
 	 	do ..DisplayFails(..TestSuite)	 
@@ -223,6 +241,7 @@
  Set ..Qualifiers.DisplayDuration=+qualifiers("duration")
  
  set ..StartTime = $zutil(188)
+ set ..StartSeconds = $zh
 
  set classQuery=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
  $$$QuitOnError(classQuery.Execute(..#PackagePrefix_".TestCase"))
@@ -258,6 +277,7 @@
  }
  
  set ..EndTime = $zutil(188)
+ set ..EndSeconds = $zh
 
  Quit $$$OK
 ]]></Implementation>