Index: Tools/UnitTest/Manager.cls.xml
===================================================================
diff -u -r295 -r319
--- Tools/UnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 295)
+++ Tools/UnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 319)
@@ -15,36 +15,46 @@
 <Super>%RegisteredObject</Super>
 
 <Property name="LogIndex">
+<Type>%String</Type>
 </Property>
 
 <Property name="Debug">
+<Type>%Boolean</Type>
 </Property>
 
 <Property name="Display">
+<Type>%String</Type>
 </Property>
 
 <Property name="CurrentDir">
+<Type>%String</Type>
 </Property>
 
 <Property name="TestCount">
+<Type>%Integer</Type>
 </Property>
 
 <Property name="TestCaseCount">
+<Type>%Integer</Type>
 </Property>
 
 <Property name="TheStack">
+<Type>%CacheString</Type>
 <MultiDimensional>1</MultiDimensional>
 </Property>
 
 <Property name="TheLog">
+<Type>%CacheString</Type>
 <MultiDimensional>1</MultiDimensional>
 </Property>
 
 <Property name="TheExecutionTime">
+<Type>%CacheString</Type>
 <MultiDimensional>1</MultiDimensional>
 </Property>
 
 <Property name="MailOnError">
+<Type>%Boolean</Type>
 <InitialExpression>0</InitialExpression>
 </Property>
 
@@ -55,7 +65,7 @@
 
 <Method name="RunTest">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>qualifiers,package=""</FormalSpec>
+<FormalSpec>qualifiers:%String,package:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  Set sc=..RunTestSuite(.qualifiers,,package)
@@ -66,7 +76,7 @@
 
 <Method name="RunTestSuite">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>qualifiers,userparam="",package=""</FormalSpec>
+<FormalSpec>qualifiers:%String,userparam:%String="",package:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
  
@@ -158,7 +168,7 @@
 
 <Method name="ParseQualifiers">
 <ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&qualifiers,defaults]]></FormalSpec>
+<FormalSpec><![CDATA[&qualifiers:%String,defaults:%String]]></FormalSpec>
 <Implementation><![CDATA[
  for qspec=$g(defaults),$g(qualifiers) {
     for i=2:1:$l(qspec,"/") {
@@ -285,7 +295,7 @@
 </Method>
 
 <Method name="LogStateBegin">
-<FormalSpec>testsuite,testcase,testmethod</FormalSpec>
+<FormalSpec>testsuite:%String,testcase:%String,testmethod:%String</FormalSpec>
 <Implementation><![CDATA[
  Set i%TheStack=$g(i%TheStack)+1
  Set i%TheStack(i%TheStack,"suite")=$g(testsuite)
@@ -308,7 +318,7 @@
 </Method>
 
 <Method name="LogStateEnd">
-<FormalSpec>testsuite,testcase,testmethod</FormalSpec>
+<FormalSpec>testsuite:%String,testcase:%String,testmethod:%String</FormalSpec>
 <Implementation><![CDATA[
  Kill i%TheStack(i%TheStack)
  Set i%TheStack=i%TheStack-1
@@ -326,7 +336,7 @@
 </Method>
 
 <Method name="LogStateStatus">
-<FormalSpec>status,action</FormalSpec>
+<FormalSpec>status:%String,action:%String</FormalSpec>
 <Implementation><![CDATA[
 	If $$$ISOK(status) Quit
 	Do $system.Status.DecomposeStatus(status,.errorarray,"-d") Set errortext=$g(errorarray(1))
@@ -335,7 +345,7 @@
 </Method>
 
 <Method name="LogErrorMessage">
-<FormalSpec>errortext,action</FormalSpec>
+<FormalSpec>errortext:%String,action:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set suite=i%TheStack(i%TheStack,"suite")
 	Set case=i%TheStack(i%TheStack,"case")
@@ -354,7 +364,7 @@
 </Method>
 
 <Method name="LogExceptie">
-<FormalSpec>Exceptie:%Exception.AbstractException,action</FormalSpec>
+<FormalSpec>Exceptie:%Exception.AbstractException,action:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim Bericht As %String
 	If ($Data(%Exception) && $IsObject(%Exception))
@@ -372,7 +382,7 @@
 </Method>
 
 <Method name="LogAssert">
-<FormalSpec>success,action,description</FormalSpec>
+<FormalSpec>success:%String,action:%String,description:%String</FormalSpec>
 <Implementation><![CDATA[
  Set suite=i%TheStack(i%TheStack,"suite")
  Set case=i%TheStack(i%TheStack,"case")
@@ -388,7 +398,7 @@
 </Method>
 
 <Method name="LogMessage">
-<FormalSpec>message</FormalSpec>
+<FormalSpec>message:%String</FormalSpec>
 <Implementation><![CDATA[
  Set suite=i%TheStack(i%TheStack,"suite")
  Set case=i%TheStack(i%TheStack,"case")
@@ -402,7 +412,7 @@
 </Method>
 
 <Method name="PrintLine">
-<FormalSpec>text,level</FormalSpec>
+<FormalSpec>text:%String,level:%String</FormalSpec>
 <Implementation><![CDATA[
  If ..Display'="all" Quit
  Write !
@@ -413,7 +423,7 @@
 </Method>
 
 <Method name="PrintErrorLine">
-<FormalSpec>text</FormalSpec>
+<FormalSpec>text:%String</FormalSpec>
 <Implementation><![CDATA[
  If ..Display'="error" Quit
  Write !
@@ -426,7 +436,7 @@
 </Method>
 
 <Method name="IsSuccess">
-<FormalSpec>suite,case,method,action</FormalSpec>
+<FormalSpec>suite:%String,case:%String,method:%String,action:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Set success=1
@@ -453,7 +463,7 @@
 </Method>
 
 <Method name="DisplayFails">
-<FormalSpec>suite,case,method,action</FormalSpec>
+<FormalSpec>suite:%String,case:%String,method:%String,action:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
  Set success=1
@@ -505,12 +515,21 @@
 
 <Method name="PurgeLog">
 <ClassMethod>1</ClassMethod>
+<FormalSpec>AantalDagen:%Integer=30</FormalSpec>
 <Implementation><![CDATA[
- Lock +^LOG.UnitTestLog
- Kill ^LOG.UnitTestLog
- Kill ^LOG.UnitTestTime
- Lock -^LOG.UnitTestLog
- Quit
+	Lock +^LOG.UnitTestLog
+	
+	#dim Date As %Date = ##class(TECH.DateTime).CurrentDate() - AantalDagen 
+	
+	#dim idxLog As %String = ""
+	for  { set idxLog = $order(^LOG.UnitTestLog(idxLog)) quit:idxLog="" 
+ 		if +^LOG.UnitTestLog(idxLog) <= Date {
+ 			kill ^LOG.UnitTestLog(idxLog)
+ 			kill ^LOG.UnitTestTime(idxLog)
+ 		}
+	}
+ 	Lock -^LOG.UnitTestLog
+ 	Quit
 ]]></Implementation>
 </Method>
 </Class>