Index: Tools/UnitTest/Manager.cls.xml
===================================================================
diff -u -r67 -r121
--- Tools/UnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 67)
+++ Tools/UnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 121)
@@ -40,6 +40,10 @@
 <MultiDimensional>1</MultiDimensional>
 </Property>
 
+<Property name="TheExecutionTime">
+<MultiDimensional>1</MultiDimensional>
+</Property>
+
 <Property name="MailOnError">
 <InitialExpression>0</InitialExpression>
 </Property>
@@ -219,8 +223,8 @@
 	#dim Status As %Status
 	Try
 	{
+		#dim BeginTijdCase As %Integer = $zh
 		$$$THROWONERROR(Status,TestCase.OnBeforeAllTests())
-		
 		#dim Method As %String = $$$comMemberNext(class,$$$cCLASSmethod,"")
 		While (Method '= "")
 		{
@@ -254,6 +258,7 @@
 		{
 			Do ..LogExceptie(Exceptie,"OnAfterAllTests")
 		}
+		Set ..TheExecutionTime(class) = $zh - BeginTijdCase
 	}
 	Catch (Exceptie)
 	{
@@ -471,6 +476,7 @@
  Set i%LogIndex=$o(^LOG.UnitTestLog(""),-1)+1
  Lock -^LOG.UnitTestLog
  Merge ^LOG.UnitTestLog(i%LogIndex)=i%TheLog
+ Merge ^LOG.UnitTestTime(i%LogIndex)=..TheExecutionTime
  Set ^LOG.UnitTestLog(i%LogIndex)=$H
  Quit
 ]]></Implementation>
@@ -481,6 +487,7 @@
 <Implementation><![CDATA[
  Lock +^LOG.UnitTestLog
  Kill ^LOG.UnitTestLog
+ Kill ^LOG.UnitTestTime
  Lock -^LOG.UnitTestLog
  Quit
 ]]></Implementation>
Index: Tools/UnitTest/Report.cls.xml
===================================================================
diff -u -r67 -r121
--- Tools/UnitTest/Report.cls.xml	(.../Report.cls.xml)	(revision 67)
+++ Tools/UnitTest/Report.cls.xml	(.../Report.cls.xml)	(revision 121)
@@ -143,6 +143,7 @@
  &html<<tr bgcolor="#ACBBD5">>
  &html<<td><font color="#FFFFFF"><b>Test Cases</b></font></td>>
  &html<<td width=100 align=center><font color="#FFFFFF"><b>Status</b></font></td>>
+ &html<<td width=100 align=center><font color="#FFFFFF"><b>Tijd</b></font></td>>
  &html<</tr>>
  Set case="" For  Set case=$o(^|namespace|LOG.UnitTestLog(index,suite,case)) Quit:case=""  Do
  . Set result=^|namespace|LOG.UnitTestLog(index,suite,case)
@@ -155,6 +156,7 @@
  . If +result
  . If    &html<<td align=left><font color="#(color)#"><b>#(status)#</b></font></td>>
  . Else  &html<<td align=left><font color="#(color)#"><b>#(status_"<br>"_$p(result,":",2,99))#</b></font></td>>
+ . &html<<td align=left><b><div DIV STYLE="width: #($G(^|namespace|LOG.UnitTestTime(index,case))*50)#; background-color: lightgray">#($G(^|namespace|LOG.UnitTestTime(index,case)))#</div></b></td>>
  . &html<</tr>>
  &html<</table>>
  Quit $$$OK