Index: svn/InterfaceControleur.cls.xml
===================================================================
diff -u -r1637 -r1649
--- svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1637)
+++ svn/InterfaceControleur.cls.xml	(.../InterfaceControleur.cls.xml)	(revision 1649)
@@ -3,7 +3,7 @@
 <Class name="svn.InterfaceControleur">
 <Super>%RegisteredObject</Super>
 
-<Property name="Errors">
+<Property name="Warnings">
 <Type>%DataType</Type>
 <Collection>list</Collection>
 <Private>1</Private>
@@ -20,13 +20,13 @@
 <Implementation><![CDATA[
 	quit:'##class(%Dictionary.ClassDefinition).%ExistsId(Classname)
 
-	do ..Errors.Clear()
+	do ..Warnings.Clear()
 	
 	;do ..ControleerInterface(Classname)
 	do ..ControleerMethods(Classname)
 	do ..ControleerProperties(Classname)
 
-	do ..ToonErrors()
+	do ..ToonWarnings()
 ]]></Implementation>
 </Method>
 
@@ -38,8 +38,11 @@
 	while itProperties.HasNext() {
 		#dim Property As %Dictionary.PropertyDefinition = itProperties.Next()
 		if '$length(Property.Type) {
-			do ..Errors.Insert("property "_Property.Name_" ( type missing ) ")
+			do ..Warnings.Insert("property "_Property.Name_" ( type missing ) ")
 		}
+		elseif Property.Type="%Float"  {
+			do ..Warnings.Insert("property "_Property.Name_" ( %Float DEPRECATED ) ")
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -51,16 +54,17 @@
 	set itMethods = ##class(TECH.ListIterator).%New(Class.Methods)
 	while itMethods.HasNext() {
 		#dim Method As %Dictionary.MethodDefinition = itMethods.Next()
-		set itFormalSpecs = ##class(TECH.PiecesIterator).%New(Method.FormalSpec,",")
-		while itFormalSpecs.HasNext() {
-			#dim FormalSpec = itFormalSpecs.Next()
-			#dim ParameterName As %String = $piece(FormalSpec,":",1)
-			#dim ParameterType As %String = $piece(FormalSpec,":",2)
+		set FormalSpecParser = ##class(TECH.ClassInfo.FormalSpecParser).%New()
+		set itParameters = ##class(TECH.ListIterator).%New(FormalSpecParser.Parse(Method.FormalSpec))
+		while itParameters.HasNext() {
+			#dim Parameter As TECH.ClassInfo.ParameterDefinition = itParameters.Next()
+			#dim ParameterName As %String = Parameter.GeefNaam()
+			#dim ParameterType As %String = Parameter.GeefType()
 			if '$length(ParameterType) {
-				do ..Errors.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( type missing ) ")
+				do ..Warnings.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( type missing ) ")
 			}
 			elseif $extract(ParameterType)'="%" && ( ParameterType'["." ) {
-				do ..Errors.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( package name incomplete ) ")
+				do ..Warnings.Insert("method "_Method.Name_" : parameter "_ParameterName_" ( package name incomplete ) ")
 			}
 				
 		}
@@ -97,7 +101,7 @@
 				if ..Methods.IsDefined(Method.Name) {
 					do ..Methods.SetAt(..Methods.GetAt(Method.Name)+1,Method.Name)
 				} else {
-					do ..Errors.Insert(DerivedClassname_" geen abstracte method op interface gedefinieerd voor "_Method.Name)	
+					do ..Warnings.Insert(DerivedClassname_" geen abstracte method op interface gedefinieerd voor "_Method.Name)	
 				}
 			}
 		}
@@ -109,27 +113,27 @@
 		#dim AantalImplementaties As %Integer = itAantalImplementaties.Next()
 		#dim MethodName As %String = itAantalImplementaties.Key()
 		if AantalImplementaties = 0 {
-			do ..Errors.Insert(MethodName _ " niet geimplementeerd")
+			do ..Warnings.Insert(MethodName _ " niet geimplementeerd")
 		}
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ToonErrors">
+<Method name="ToonWarnings">
 <Implementation><![CDATA[
-	#dim Errors As %ListOfDataTypes = ..GeefErrors()
-	if Errors.Size {
+	#dim Warnings As %ListOfDataTypes = ..GeefWarnings()
+	if Warnings.Size {
 		write !,"!! Warnings ( coding convention ) !!"
 		write !,"------------------------------------"
-		write !,##class(TECH.ListUtils).ListToPieces(..GeefErrors(),$char(13,10))
+		write !,##class(TECH.ListUtils).ListToPieces(..GeefWarnings(),$char(13,10))
 		write !
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="GeefErrors">
+<Method name="GeefWarnings">
 <ReturnType>%ListOfDataTypes</ReturnType>
-<Implementation><![CDATA[	quit ..Errors
+<Implementation><![CDATA[	quit ..Warnings
 ]]></Implementation>
 </Method>
 </Class>
Index: svn/UnitTestAnalyser.cls.xml
===================================================================
diff -u
--- svn/UnitTestAnalyser.cls.xml	(revision 0)
+++ svn/UnitTestAnalyser.cls.xml	(revision 1649)
@@ -0,0 +1,95 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.UnitTestAnalyser">
+<Super>%RegisteredObject</Super>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ClassName = ClassName
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsUnitClass">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	try {
+		#dim IsUnitClass As %Boolean = ##class(%Dictionary.ClassDefinition).%ExistsId(ClassName)
+		if IsUnitClass set IsUnitClass = '##class(%Dictionary.ClassDefinition).%OpenId(ClassName).Abstract
+		if IsUnitClass set IsUnitClass = $CLASSMETHOD(ClassName,"%Extends","vhUnitTest.TestCase")
+		
+	} catch {
+		do ##class(TECH.ExceptionHandler).Catch()
+		set IsUnitClass = 0
+	}
+	quit IsUnitClass
+]]></Implementation>
+</Method>
+
+<Method name="StoreUnitTestInfo">
+<Implementation><![CDATA[
+	if ..IsUnitClass(..ClassName) {
+		do ..RemoveUnitTestInfo()
+		do ..CollectUsedClassNames()
+		do ..CollectUsedRoutines()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="RemoveUnitTestInfo">
+<Implementation><![CDATA[	do ExecDynQuery^vhLib.Query("DELETE FROM svn.UnitTestInfo where UnitTest = ?",$listbuild(..ClassName))
+]]></Implementation>
+</Method>
+
+<Method name="CollectUsedRoutines">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set itRoutineNames = ##class(TECH.ListIterator).%New(##class(TECH.ClassDefinition).Instance().GetUsedRoutineNames(..ClassName))
+	while itRoutineNames.HasNext() {
+		do ..SaveRoutineInfo(itRoutineNames.Next())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="CollectUsedClassNames">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set itClassNames = ##class(TECH.ListIterator).%New(##class(TECH.ClassDefinition).Instance().GetUsedClassNames(..ClassName))
+	while itClassNames.HasNext() {
+		do ..SaveClassInfo(itClassNames.Next())
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SaveRoutineInfo">
+<FormalSpec>Routine:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Info = ##class(svn.UnitTestInfo).%New(..ClassName)
+	set Info.Routine = Routine
+	do Info.Save()
+]]></Implementation>
+</Method>
+
+<Method name="SaveClassInfo">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Info = ##class(svn.UnitTestInfo).%New(..ClassName)
+	set Info.ClassName = ClassName
+	do Info.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: svn/Setting.cls.xml
===================================================================
diff -u -r1624 -r1649
--- svn/Setting.cls.xml	(.../Setting.cls.xml)	(revision 1624)
+++ svn/Setting.cls.xml	(.../Setting.cls.xml)	(revision 1649)
@@ -38,6 +38,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RunUnitsTestOnCompile">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit +$get($$$SVNGlobal("SourceControl","SVN","RunUnitsTestOnCompile"))
+]]></Implementation>
+</Method>
+
 <Method name="BezwarenTegenGetLatest">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1642 -r1649
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1642)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1649)
@@ -66,6 +66,10 @@
 <Type>svn.Helper</Type>
 </Property>
 
+<Property name="UnitTestHelper">
+<Type>svn.UnitTestHelper</Type>
+</Property>
+
 <Property name="tNsp">
 <Type>%String</Type>
 <Private>1</Private>
@@ -79,6 +83,8 @@
 <MenuItem Name="Reload File" />
 <MenuItem Name="Synchronize All" />
 <MenuItem Name="Synchronize Changes" />
+<MenuItem Name="Compile All" />
+<MenuItem Name="Compile CompileList" />
 <MenuItem Separator="1" Name="----------------------------------"/> 
 <MenuItem Name="Settings"/>
 <MenuItem Name="Dump Settings" />
@@ -94,59 +100,15 @@
 ]]></Data>
 </XData>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-	<MenuItem Name="Synchronize All" />
-	<MenuItem Name="Import namespace to Subversion" />
-	<MenuItem Name="Check Out" Save="100" />
-	<MenuItem Name="Synchronize" />
-	<MenuItem Separator="1" Name="----------------------------------"/> 
-	<MenuItem Name="Status" />
-	<MenuItem Name="Update to HEAD revision" Save="100" />
-	<MenuItem Name="Update to revision #" Save="100" />
-	<MenuItem Name="Commit" Save="100" />
-	<MenuItem Separator="1" Name="----------------------------------"/> 
-	<MenuItem Name="Branch - Set Current" />
-	<MenuItem Name="Branch - Show Current" />
-	<MenuItem Name="Branch - Create a New Project Branch/Tag" />
-	<MenuItem Name="Branch - Merge or Revert" />
-	<MenuItem Name="Branch - Delete Project Branch/Tag" />
-	<MenuItem Separator="1" Name="----------------------------------"/> 
-	<MenuItem Name="Pre-commit Check" Save="100" />
-	<MenuItem Name="Merge (!)" />
-	<MenuItem Name="Resolved" />
-	<MenuItem Separator="1" Name="----------------------------------"/> 
-	<MenuItem Name="Deploy" Memo="Deploy to test machine" />
-	<MenuItem Separator="1" Name="----------------------------------"/> 
-	<MenuItem Name="More commands..." />
-	</Menu>
-
-	<Menu Name="Subversion integration" Type="1">
-	<MenuItem Name="Status" Save="100" />
-	<MenuItem Name="Update file to HEAD revision" Save="100" />
-	<MenuItem Name="Update file to revision #" Save="100" />
-	<MenuItem Name="Commit File" Save="100" />
-	<MenuItem Name="Revert" />
-	<MenuItem Name="Pre-commit Check" Save="100" />
-	<MenuItem Name="Merge" />
-	<MenuItem Name="Resolved" />
-	</Menu> 
-*/
-]]></Content>
-</UDLText>
-
 <Method name="UserAction">
 <FormalSpec><![CDATA[Type:%Integer,Name:%String,InternalName:%String,SelectedText:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	if ..Debug write !,"Method 'UserAction' Type:"_Type_" Name:"_Name_" InternalName:"_InternalName_" SelectedText:"_SelectedText_" Action:"_Action_" Target:"_Target_" Msg:"_Msg_" Reload:"_Reload
 	#dim tCmd as svn.Command
-	#dim tIsPopupMenu As %Boolean = $zcvt($p(Name,",",1),"L")["integration"
-	#dim Menu As %String = $zcvt($p(Name,",",1),"L")
-	#dim tMenu As %String =$zcvt($p($p(Name,",",2)," ",1),"L")
-	set tMenu(2) = $zcvt($p($p(Name,",",2)," ",2,99),"L")
-	
+	set tIsPopupMenu=$zcvt($p(Name,",",1),"L")["integration"
+	set tMenu=$zcvt($p($p(Name,",",2)," ",1),"L")
+	set tMenu(2)=$zcvt($p($p(Name,",",2)," ",2,99),"L")
 	// DK 2.15
 	
 	set ..tNsp=$zutil(5)
@@ -170,57 +132,72 @@
 	// FMA
 	//if '##class(%File).DirectoryExists(..LocalWorkspacePath(..svnHelper.Branch)) do ..svnHelper.MakeDir(..LocalWorkspacePath(..svnHelper.Branch))
 	//
-	if Menu="subversion" {
-		if tMenu="settings" { 
-			do ..SubversionSettings(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="import" {
-			do ..SubversionImport(.InternalName,.Action,.Target,.Msg,.Reload)
-			// branches
-		} elseif tMenu="branch" {
-			if tMenu(2)["set current" {
-				do ..SubversionBranchSetCurrent(.InternalName,.Action,.Target,.Msg,.Reload)
-			} elseif tMenu(2)["show" {
-				do ..SubversionBranchShowCurrent(.InternalName,.Action,.Target,.Msg,.Reload)
-			} elseif tMenu(2)["create" {
-				do ..SubversionBranchCreate(.InternalName,.Action,.Target,.Msg,.Reload)
-			} elseif tMenu(2)["merge" {
-				do ..SubversionBranchMerge(.InternalName,.Action,.Target,.Msg,.Reload)
-			} else {
-			    do ..SubversionBranchDelete(.InternalName,.Action,.Target,.Msg,.Reload)
+	if tMenu="settings" { 
+		do ..SubversionSettings(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="import" {
+		do ..SubversionImport(.InternalName,.Action,.Target,.Msg,.Reload)
+		// branches
+	} elseif tMenu="branch" {
+		if tMenu(2)["set current" {
+			do ..SubversionBranchSetCurrent(.InternalName,.Action,.Target,.Msg,.Reload)
+		} elseif tMenu(2)["show" {
+			do ..SubversionBranchShowCurrent(.InternalName,.Action,.Target,.Msg,.Reload)
+		} elseif tMenu(2)["create" {
+			do ..SubversionBranchCreate(.InternalName,.Action,.Target,.Msg,.Reload)
+		} elseif tMenu(2)["merge" {
+			do ..SubversionBranchMerge(.InternalName,.Action,.Target,.Msg,.Reload)
+		} else {
+		    do ..SubversionBranchDelete(.InternalName,.Action,.Target,.Msg,.Reload)
+		}
+	} elseif tMenu="update" { 
+		set UpdateToVersion = $select(tMenu(2)["to head":"",1:0)
+		do ..SubversionUpdate(.InternalName,.Action,.Target,.Msg,.Reload,UpdateToVersion)
+	} elseif tMenu="getlatest" {
+		do ..svnHelper.SubversionGetLatest()
+	} elseif tMenu="pre-commit" {
+		do ..SubversionPreCommit(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="check" {
+		do ..SubversionCheck(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="revert" {
+		do ..SubversionRevert(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="status" {
+	    do ..SubversionStatus(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="synchronize" {
+		if tMenu(2)[ "changes" do ..SubversionSynchronizeChanges(.InternalName,.Action,.Target,.Msg,.Reload)
+		if tMenu(2)[ "all" {
+			Set Action = 1
+			set Target = "Alle bestanden synchronizeren met het file-systeem ?"
+		}
+	} elseif tMenu="compile" {
+		if tMenu(2)[ "compilelist" {
+			write !,"Compiling compilelist started"
+			do ..svnHelper.CompileImportedSourceCode(1)
+			write !,"Compiling compilelist finished"
+		}	
+		if tMenu(2)[ "all" {
+			Set Action = 1
+			set Target = "Alle code hercompileren ?"
+		}		
+	} elseif tMenu="reload" {
+		if $length(InternalName) {
+			#dim Repo As svn.Repository = ..svnHelper.GeefRepository(InternalName)
+			if $IsObject(Repo) {
+				set Action = 1
+				set Target = "Reload file "_InternalName_" from "_Repo.ExternalName(InternalName)_"?"
 			}
-		} elseif tMenu="update" { 
-			set UpdateToVersion = $select(tMenu(2)["to head":"",1:0)
-			do ..SubversionUpdate(.InternalName,.Action,.Target,.Msg,.Reload,UpdateToVersion)
-		} elseif tMenu="getlatest" {
-			do ..svnHelper.SubversionGetLatest()
-		} elseif tMenu="pre-commit" {
-			do ..SubversionPreCommit(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="check" {
-			do ..SubversionCheck(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="revert" {
-			do ..SubversionRevert(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="status" {
-		    do ..SubversionStatus(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="synchronize" {
-			if tMenu(2)[ "changes" do ..SubversionSynchronizeChanges(.InternalName,.Action,.Target,.Msg,.Reload)
-			if tMenu(2)[ "all" {
-				Set Action = 1
-				set Target = "Alle bestanden synchronizeren met het file-systeem ?"
-			}
-		} elseif tMenu="reload" {
-			if $length(InternalName) {
-				#dim Repo As svn.Repository = ..svnHelper.GeefRepository(InternalName)
-				if $IsObject(Repo) {
-					set Action = 1
-					set Target = "Reload file "_InternalName_" from "_Repo.ExternalName(InternalName)_"?"
-				}
-			}
-		} elseif tMenu="source" {
-			set Action=1
-			Set path = $g(^SYS("SourceControl",$$$PRODUCT,"LocalSourceControlWorkspace"))
-			set Target="Update source control code from "_$zcvt(path,"l")_" ?"_$C(13,10)_$C(13,10)_"You have to restart the Studio afterwards."	
-		} elseif tMenu="tortoisesvn" {
-			if (tMenu(2) [ "log") do ..TortoiseSVN("log",.InternalName) 
+		}
+	} elseif tMenu="unittest" {
+		if tMenu(2)="uitvoeren" {
+			do ..RunUnitTest(.InternalName)
+		} elseif tMenu(2)="openen" {
+			do ..OpenUnitTest(.InternalName,.Action,.Target)	
+		} elseif tMenu(2)["package" {
+			do ..RunUnitTestPackage(.InternalName)
+		}
+	}
+	
+	elseif tMenu="tortoisesvn" {
+			if (tMenu(2) [ "log") do ..TortoiseSVN("log") 
 			if (tMenu(2) [ "status") do ..TortoiseSVN("repostatus")
 			if (tMenu(2) [ "update") {
 				if (tMenu(2) [ "head") { do ..TortoiseSVN("update") }
@@ -229,32 +206,24 @@
 			if (tMenu(2) [ "commit") do ..TortoiseSVN("commit")
 			if (tMenu(2) [ "browse") do ..TortoiseSVN("repobrowser")
 			if (tMenu(2) [ "merge") do ..TortoiseSVN("merge")
-		} elseif tMenu="commit" {
-			do ..SubversionCommit(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="project" {
-			do ..SubversionProject(.InternalName,.Action,.Target,.Msg,.Reload,.tMenu)
-		} elseif tMenu="resolved" {
-			set Action=1
-			set Target="Run 'resolved'?"	
-		} elseif tMenu="more" {
-			do ..SubversionMore(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="merge" {
-			do ..SubversionMerge(.InternalName,.Action,.Target,.Msg,.Reload)
-		} elseif tMenu="deploy" {
-			do ..SubversionDeploy(.InternalName,.Action,.Target,.Msg,.Reload)
-		}
-	} elseif Menu="unit testing" {
-		if tMenu="unittest" {
-			if tMenu(2)="uitvoeren" {
-				do ..RunUnitTest(.InternalName)
-			} elseif tMenu(2)="openen" {
-				do ..OpenUnitTest(.InternalName,.Action,.Target)	
-			}
-		}
-		elseif tMenu="alle" {
-			do ..ExecUnitTest()	
-		}
-	}  else { // nothing
+	} elseif tMenu="commit" {
+		do ..SubversionCommit(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="project" {
+		do ..SubversionProject(.InternalName,.Action,.Target,.Msg,.Reload,.tMenu)
+	} elseif tMenu="resolved" {
+		set Action=1
+		set Target="Run 'resolved'?"	
+	} elseif tMenu="more" {
+		do ..SubversionMore(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="merge" {
+		do ..SubversionMerge(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="deploy" {
+		do ..SubversionDeploy(.InternalName,.Action,.Target,.Msg,.Reload)
+	} elseif tMenu="source" {
+		set Action=1
+		Set path = $g(^SYS("SourceControl",$$$PRODUCT,"LocalSourceControlWorkspace"))
+		set Target="Update source control code from "_$zcvt(path,"l")_" ?"_$C(13,10)_$C(13,10)_"You have to restart the Studio afterwards."	
+	} else { // nothing
 	}
 done	//
 	Quit $$$OK
@@ -384,6 +353,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="SubversionCompileAll">
+<FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
+<Implementation><![CDATA[
+	set Action=0
+	set ..Cmd=0
+	do ..svnHelper.DisplayMessage("Recompile sources started")
+	do ##class(TECH.CompileUtils).CompileAll()
+	do ..svnHelper.DisplayMessage("Recompile sources finished")
+]]></Implementation>
+</Method>
+
 <Method name="SubversionSynchronizeAll">
 <FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String,&Msg:%String,&Reload:%Boolean]]></FormalSpec>
 <Implementation><![CDATA[
@@ -708,6 +688,12 @@
 					Do ..SubversionSynchronizeAll()	
 				}
 			}
+		} elseif tMenu="compile" {
+			if tMenu(2)["all" {
+				if Answer=1 {
+					Do ..SubversionCompileAll()	
+				}
+			}
 		} elseif tMenu="reload" {
 			if Answer=1 {
 				Do ..SubversionSynchronizeFile(InternalName)	
@@ -770,35 +756,27 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ExecUnitTest">
-<FormalSpec>Filter:%String=""</FormalSpec>
-<Implementation><![CDATA[
-	write !,"UnitTest uitvoeren : ",Filter
-	do ##class(vhUnitTest.Manager).RunTest("/display=all",Filter)
+<Method name="RunUnitTest">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[	do ..UnitTestHelper.RunUnitTest(InternalName)
 ]]></Implementation>
 </Method>
 
-<Method name="RunUnitTest">
+<Method name="RunUnitTestPackage">
 <FormalSpec>InternalName:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim UnitTestName As %String = $piece(InternalName,".",1,$length(InternalName,".")-1)
-	if '##class(TECH.StringUtils).StartsWith(UnitTestName,"vhUnitTest") { 
-		set UnitTestName = ..BepaalUnitTestName(InternalName)
+	if ##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest.") {
+		set InternalName = $piece(InternalName,"vhUnitTest.",2)
 	}
-	
-	if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) {
-		set UnitTestName = $piece(UnitTestName,"vhUnitTest.",2,$length(UnitTestName,"vhUnitTest."))
-		do ..ExecUnitTest(UnitTestName)
-	} else {
-		write !,"Geen unittest ("_UnitTestName_") voor "_InternalName	
-	}
+	#dim Package As %String = $piece(InternalName,".") 
+	do ..UnitTestHelper.ExecUnitTest(Package)
 ]]></Implementation>
 </Method>
 
 <Method name="OpenUnitTest">
 <FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim UnitTestName = ..BepaalUnitTestName(InternalName)
+	#dim UnitTestName = ..UnitTestHelper.BepaalUnitTestName(InternalName)
 	if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) {
 		set Action = 5
 		set Target = UnitTestName_".cls"
@@ -809,25 +787,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BepaalUnitTestName">
-<FormalSpec>InternalName:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim UnitTestName As %String = $piece(InternalName,".",1,$length(InternalName,".")-2)
-	if '##class(TECH.StringUtils).StartsWith(UnitTestName,"vhUnitTest.") {
-		set UnitTestName = "vhUnitTest."_UnitTestName
-	}
-	#dim ClassName As %String = $piece(InternalName,".",$length(InternalName,".")-1)
-	if '##class(TECH.StringUtils).StartsWith(ClassName,"Test") {
-		set ClassName = "Test"_ClassName
-	}
-	set UnitTestName = UnitTestName_"."_ClassName
-	
-	quit UnitTestName
-]]></Implementation>
-</Method>
-
 <Method name="IsStudioHookActive">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
@@ -865,16 +824,19 @@
  	set ..Password =Password
 	
 	if '$IsObject(..svnHelper) {
-		set ..svnHelper = ##class(Helper).%New(Name,Password)
+		set ..svnHelper = ##class(svn.Helper).%New(Name,Password)
 	}
 	
+	if '$IsObject(..UnitTestHelper) {
+		set ..UnitTestHelper = ##class(svn.UnitTestHelper).%New()
+	}
+	
+	
 	if '..IsStudioHookActive() {
 		set ..IsDisconnected = 1
 		quit $$$OK
 	}	
 	
-	
-	
 	set tSC=$$$OK
 	try {
 	 	if $$$ISWINDOWS {
@@ -900,9 +862,10 @@
 	} catch (ex) {
 		Set Exception = ##class(TECH.ExceptionHandler).Catch()
 		write !,"[[ Error in 'Login()' :,",Exception.ToString()
-	 	d BACK^%ETN
-		set tSC=$$$ERROR($$$GeneralError)
+		 	d BACK^%ETN
+			set tSC=$$$ERROR($$$GeneralError)
 	}
+	
 	quit tSC
 ]]></Implementation>
 </Method>
@@ -922,7 +885,6 @@
 <FormalSpec>InternalName:%String,Object:%RegisteredObject=$$$NULLOREF</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	
 	Try {
 		if ..Debug Write !,"Method 'OnAfterSave' InternalName:"_InternalName_" Object: "_Object
 		#dim tCmd as svn.Command
@@ -1014,6 +976,12 @@
 	// item deleted
 	do ..svnHelper.SVNDelete(InternalName)
 	
+	if ##class(svn.Setting).MagUnitTestUitvoeren() {
+		set UnitTestAnalyser = ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(InternalName))
+		do UnitTestAnalyser.RemoveUnitTestInfo()
+	}
+
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -1030,7 +998,15 @@
 	do ..svnHelper.SVNExport(InternalName)
 	
 	do ##class(svn.InterfaceControleur).%New().Controleer($piece(InternalName,".",1,$length(InternalName,".")-1))
-
+		
+	if ##class(svn.Setting).MagUnitTestUitvoeren()  {
+		set UnitTestAnalyser = ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(InternalName))
+		do UnitTestAnalyser.StoreUnitTestInfo()
+		if ##class(svn.Setting).RunUnitsTestOnCompile() {
+			do ..UnitTestHelper.RunUnitTestsForInternalName(InternalName)
+		}
+	}
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -1087,13 +1063,6 @@
 	if $IsObject(Repository) {
 		do Repository.Status(InternalName)
 	}
-	/*
-	if ##class(TECH.SourceCodeUtils).Type(InternalName)="project" {
-		set ..ProjectNameOriginal=$p(InternalName,".",1)
-		set ..ProjectNameModified = ..svnHelper.ExternalName(InternalName,$$$FULLPATH)
-		set ..IsNewProject=0
-	}
-	*/
 	quit $$$OK
 ]]></Implementation>
 </Method>
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1647 -r1649
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1647)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1649)
@@ -534,17 +534,14 @@
 				
 	Do ..VoerUitCompile()
 	Do ..VoerUitDeploy()
-	
-	If VoerUitGetLatest 
-	{
-		#dim StartBackgroundJobsStatus As %Status = ..VoerUitStartBackgroundJobs()
-		If $$$ISERR(StartBackgroundJobsStatus){
-			Do ..Failed.Insert("Starting Backgroundjobs gefaald : "_$$ParseStatus^vhLib.System(StartBackgroundJobsStatus))
-			Do ..ShowFailed("VoerUitStartBackgroundJobs")
-			Set ..IsGetLatestGefaald = 1
-			Set Message ="Starting Backgroundjobs **FAILED**"
-			Do ..DisplayMessage(Message)				
-		}
+	#dim StartBackgroundJobsStatus As %Status
+	Set:VoerUitGetLatest StartBackgroundJobsStatus = ..VoerUitStartBackgroundJobs()
+	If $$$ISERR(StartBackgroundJobsStatus){
+		Do ..Failed.Insert("Starting Backgroundjobs gefaald : "_$$ParseStatus^vhLib.System(StartBackgroundJobsStatus))
+		Do ..ShowFailed("VoerUitStartBackgroundJobs")
+		Set ..IsGetLatestGefaald = 1
+		Set Message ="Starting Backgroundjobs **FAILED**"
+		Do ..DisplayMessage(Message)				
 	}
 ]]></Implementation>
 </Method>
Index: svn/Command.cls.xml
===================================================================
diff -u -r1643 -r1649
--- svn/Command.cls.xml	(.../Command.cls.xml)	(revision 1643)
+++ svn/Command.cls.xml	(.../Command.cls.xml)	(revision 1649)
@@ -209,7 +209,7 @@
 	// go and do it!
 	
 	// Unfortunately when svn comand fails, it fails silently so we never learn what happened
-	#dim OutputFilename As %String
+
 	if '(..CallOut) {
 		set OutputFilename = ##class(TECH.File).GetTempDir()_$JOB_"SVN.txt"
 		set ErrorFilename = ##class(TECH.File).GetTempDir()_$JOB_"SVNErr.txt"
@@ -226,27 +226,9 @@
 	if '(..CallOut) {
 		do ..AddOutputFileToResult(OutputFilename)
 		do ..DisplayErrors(ErrorFilename)
-		do ..RemoveOutputFile(OutputFilename)
 	}
-	Quit
-]]></Implementation>
-</Method>
 
-<Method name="RemoveOutputFile">
-<FormalSpec>OutputFilename:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Try{
-		If ##class(TECH.File).Exists(OutputFilename){
-			#dim IsDeleteGelukt As %Boolean = ##class(TECH.File).Delete(OutputFilename)
-			If 'IsDeleteGelukt {
-				Write "Verwijderen van tijdelijk bestand '"_OutputFilename_"' is niet gelukt.",!
-			}
-		}
-	}Catch E{
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Write "Fout bij verwijderen van tijdelijke bestand '"_OutputFilename_"' : "_Exception.ToString(),!
-	}
+	quit
 ]]></Implementation>
 </Method>
 
Index: svn/UnitTestInfo.cls.xml
===================================================================
diff -u
--- svn/UnitTestInfo.cls.xml	(revision 0)
+++ svn/UnitTestInfo.cls.xml	(revision 1649)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.UnitTestInfo">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Index name="UniqueIndex">
+<Properties>UnitTest,Routine,ClassName</Properties>
+</Index>
+
+<Index name="IndexOnUnitTest">
+<Properties>UnitTest</Properties>
+</Index>
+
+<Index name="IndexOnRoutine">
+<Properties>Routine</Properties>
+</Index>
+
+<Index name="IndexOnClassName">
+<Properties>ClassName</Properties>
+</Index>
+
+<Property name="UnitTest">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="32000"/>
+</Property>
+
+<Property name="Routine">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="32000"/>
+</Property>
+
+<Property name="ClassName">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="32000"/>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>UnitTest:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..UnitTest = UnitTest
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetUnitTestsForClass">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ClassName:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	#dim Query As %String = "SELECT UnitTest FROM svn.UnitTestInfo WHERE ClassName = ?"
+	#dim rs As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$listbuild(ClassName))
+	while rs.Next() {
+		do List.Insert(rs.GetData(1))
+	}
+	quit List
+]]></Implementation>
+</Method>
+
+<Method name="GetUnitTestsForRoutine">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Routine:%String</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfDataTypes).%New()
+	#dim Query As %String = "SELECT UnitTest FROM svn.UnitTestInfo WHERE Routine = ?"
+	#dim rs As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$listbuild(Routine))
+	while rs.Next() {
+		do List.Insert(rs.GetData(1))
+	}
+	quit List
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^svn.UnitTestInfoD</DataLocation>
+<DefaultData>UnitTestInfoDefaultData</DefaultData>
+<IdLocation>^svn.UnitTestInfoD</IdLocation>
+<IndexLocation>^svn.UnitTestInfoI</IndexLocation>
+<StreamLocation>^svn.UnitTestInfoS</StreamLocation>
+<Data name="UnitTestInfoDefaultData">
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>UnitTest</Value>
+</Value>
+<Value name="3">
+<Value>Routine</Value>
+</Value>
+<Value name="4">
+<Value>ClassName</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: svn/Repository.cls.xml
===================================================================
diff -u -r1644 -r1649
--- svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1644)
+++ svn/Repository.cls.xml	(.../Repository.cls.xml)	(revision 1649)
@@ -233,7 +233,7 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	set Result = $extract(InternalName,1)'="%"
+	#dim Result As %Boolean = $extract(InternalName,1)'="%"
 	
 	if ( Result ) && ( '##class(svn.Setting).MagUnitTestUitvoeren() ) {
 		set Result = '##class(TECH.StringUtils).StartsWith(InternalName,"vhUnitTest")
@@ -259,10 +259,10 @@
 </Method>
 
 <Method name="IsSourceControlCode">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	 set result = 0
+	 #dim result As %Boolean = 0
 	 
 	 if ##class(TECH.StringUtils).MatchesPattern(InternalName,"svn*") { set result = 1 }
 	 elseif ##class(TECH.StringUtils).MatchesPattern(InternalName,"/csp/svn*") { set result = 1 }
@@ -287,18 +287,18 @@
 </Method>
 
 <Method name="DeleteCode">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 </Method>
 
 <Method name="DeletePackage">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	if $extract(InternalName,$length(InternalName))'="." set InternalName=InternalName_"."
 	set rs = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Extent")
 	do rs.Execute()
 	while rs.Next() {
-		set Name = rs.GetData(1)
+		#dim Name As %String = rs.GetData(1)
 		if $extract(Name,1,$length(InternalName))=InternalName {
 			do $system.OBJ.Delete(Name)
 			do ##class(%ExtentMgr.Util).DeleteExtent(##class(TECH.SourceCodeUtils).StripExtension(Name))   
@@ -446,30 +446,14 @@
 		do ##class(%File).CreateDirectoryChain(Directory)
 	}
 	
-	Do ..Export(TempFile,InternalName)
+	do ..Export(TempFile,InternalName)
 	
 	Quit TempFile
 ]]></Implementation>
 </Method>
 
-<Method name="RemoveTemporaryFile">
-<FormalSpec>TempFile:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Try {
-		#dim SysTempDir As %String = ##class(TECH.File).GetTempDir()
-		#dim TotalSubDir As %String = $P(TempFile,SysTempDir,2)
-		#dim SubDir As %String = $P(TotalSubDir,"\",1)
-		Do ##class(TECH.Directory).Delete(##class(TECH.Files).AppendFile(SysTempDir,SubDir))
-	}Catch E{
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		W "Fout bij verwijderen van tijdelijke directory en files '"_TempFile_"': "_Exception.ToString(),!
-	}
-]]></Implementation>
-</Method>
-
 <Method name="Hash">
-<FormalSpec><![CDATA[InternalName:%String,&ExternalName:%String="",&oStatus]]></FormalSpec>
+<FormalSpec><![CDATA[InternalName:%String,&ExternalName:%String="",&oStatus:%Status]]></FormalSpec>
 <Implementation><![CDATA[
 	#dim flagIsTempFile As %Boolean = 0
 	
@@ -486,8 +470,8 @@
 	
 	#dim Hash As %String =$system.Encryption.SHA1HashStream(Stream)
 	
-	if flagIsTempFile {	
-		Do ..RemoveTemporaryFile(ExternalName)
+	if flagIsTempFile {
+		do ##class(%File).Delete(ExternalName)	
 	}
 		
 	quit Hash
@@ -544,7 +528,7 @@
 </Method>
 
 <Method name="ExternalNameIsValid">
-<FormalSpec>ExternalName</FormalSpec>
+<FormalSpec>ExternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set ExternalName = $zcvt(ExternalName,"L")
@@ -560,7 +544,7 @@
 </Method>
 
 <Method name="ImportNeeded">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim ImportNeeded As %Boolean = 1
@@ -584,7 +568,7 @@
 </Method>
 
 <Method name="ExportNeeded">
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	quit:'##class(TECH.SourceCodeUtils).Exists(InternalName) 0
@@ -619,7 +603,7 @@
 <Description>
 Delete is nodig wanneer code nog bestaat in database maar niet meer op het filesysteem en
 als er in de database een import/export historiek bestaat.</Description>
-<FormalSpec>InternalName</FormalSpec>
+<FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim ExternalName As %String = ..ExternalName(InternalName)
Index: svn/UnitTestHelper.cls.xml
===================================================================
diff -u
--- svn/UnitTestHelper.cls.xml	(revision 0)
+++ svn/UnitTestHelper.cls.xml	(revision 1649)
@@ -0,0 +1,110 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.UnitTestHelper">
+<Super>%RegisteredObject</Super>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="RunUnitTestsForInternalName">
+<FormalSpec>InternalName:%String</FormalSpec>
+<Implementation><![CDATA[
+	set UnitTests = ##class(%ListOfDataTypes).%New()
+	#dim InternalNameStripped As %String = ##class(TECH.SourceCodeUtils).StripExtension(InternalName)
+	if ##class(svn.UnitTestAnalyser).IsUnitClass(InternalNameStripped) {
+		do UnitTests.Insert(InternalNameStripped)
+	} elseif ##class(TECH.SourceCodeUtils).Type(InternalName) = ##class(TECH.enu.SourceCodeType).Class() {
+		do ..AddUnitTestsForClassAndDerivatives(InternalNameStripped,UnitTests)
+	} elseif ##class(TECH.SourceCodeUtils).Type(InternalName) = ##class(TECH.enu.SourceCodeType).Routine() {
+		do ##class(TECH.ListUtils).CopyListOfDataTypes(##class(svn.UnitTestInfo).GetUnitTestsForRoutine(InternalNameStripped),UnitTests)
+	}
+	do ..RunUnitTests(UnitTests)
+]]></Implementation>
+</Method>
+
+<Method name="AddUnitTestsForClassAndDerivatives">
+<FormalSpec>InternalNameStripped:%String,UnitTests:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..AddUnitTestForClass(InternalNameStripped,UnitTests)
+	set rsSubClass = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:SubclassOf")
+	do rsSubClass.Execute(InternalNameStripped)
+	while rsSubClass.Next() {
+		do ..AddUnitTestForClass(rsSubClass.Get("Name"),UnitTests)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AddUnitTestForClass">
+<FormalSpec>InternalNameStripped:%String,UnitTests:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	do ##class(TECH.ListUtils).CopyListOfDataTypes(##class(svn.UnitTestInfo).GetUnitTestsForClass(InternalNameStripped),UnitTests)
+]]></Implementation>
+</Method>
+
+<Method name="RunUnitTests">
+<FormalSpec>UnitTests:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	if ( UnitTests.Count() > 10 ) {
+		write !,"Teveel unittests om automatisch uit te voeren"
+	} else {
+		set itUnitTests = ##class(TECH.ListIterator).%New(UnitTests)
+		while itUnitTests.HasNext() {
+			do ..RunUnitTest(itUnitTests.Next())
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="RunUnitTest">
+<FormalSpec>Classname:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim UnitTestName = ..BepaalUnitTestName(Classname)
+	if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) {
+		set UnitTestName = $piece(UnitTestName,"vhUnitTest.",2,$length(UnitTestName,"vhUnitTest."))
+		do ..ExecuteUnitTest(UnitTestName)
+	} else {
+		write !,"Geen unittest ("_UnitTestName_") voor "_Classname	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalUnitTestName">
+<FormalSpec>Classname:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim UnitTestName As %String = $piece(Classname,".",1,$length(Classname,".")-1)
+	if '##class(TECH.StringUtils).StartsWith(UnitTestName,"vhUnitTest.") {
+		set UnitTestName = "vhUnitTest."_UnitTestName
+		#dim ClassName As %String = $piece(Classname,".",$length(Classname,"."))
+		if '##class(TECH.StringUtils).StartsWith(ClassName,"Test") {
+			set ClassName = "Test"_ClassName
+		}
+		set UnitTestName = UnitTestName_"."_ClassName
+	} else {
+		set UnitTestName = Classname
+	}
+	quit UnitTestName
+]]></Implementation>
+</Method>
+
+<Method name="ExecuteUnitTest">
+<FormalSpec>Filter:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim SQLSelectMode = $SYSTEM.SQL.GetSelectMode()
+	do $SYSTEM.SQL.SetSelectMode(##class(TECH.enu.ResultSetRuntimeMode).Logical())
+
+	write !,"UnitTest uitvoeren : do ##class(vhUnitTest.Manager).RunTest("""","""_Filter_""")"
+	do ##class(vhUnitTest.Manager).RunTest("",Filter)
+	
+	do $SYSTEM.SQL.SetSelectMode(SQLSelectMode)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>