Index: svn/Helper.cls.xml
===================================================================
diff -u -r1553 -r1554
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1553)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1554)
@@ -100,16 +100,52 @@
 <Type>%Boolean</Type>
 </Property>
 
-<Property name="GetLatestFailed">
+<Property name="IsGetLatestGefaald">
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="MagUnitTestUitvoeren">
+<Type>%Boolean</Type>
+<Calculated>1</Calculated>
+<Private>1</Private>
+</Property>
+
+<Property name="IsUnitTestBezig">
+<Type>%Boolean</Type>
+<Calculated>1</Calculated>
+<Private>1</Private>
+</Property>
+
 <Method name="DebugGet">
 <Private>1</Private>
 <Implementation><![CDATA[	quit +$g($$$SVNGlobal("SourceControl","SVN","Debug"))
 ]]></Implementation>
 </Method>
 
+<Method name="MagUnitTestUitvoerenGet">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit '+$G($$$SVNGlobal("SourceControl","SVN","IgnoreUnitTests"))
+]]></Implementation>
+</Method>
+
+<Method name="IsUnitTestBezigGet">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit +$G($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess"))
+]]></Implementation>
+</Method>
+
+<Method name="IsUnitTestBezigSet">
+<FormalSpec>IsBezig:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = IsBezig
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GetLatest">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
@@ -139,12 +175,13 @@
 <FormalSpec>UitvoerenUnitTesten:%Boolean</FormalSpec>
 <Implementation><![CDATA[
 	Try{
-		If +$G($$$SVNGlobal("SourceControl","SVN","UnitTestInProcess")){
+		Set SvnHelper = ##class(svn.Helper).%New()		
+		If SvnHelper.IsUnitTestBezig{
 			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kan geen GetLatest uitvoeren omdat er nog unit testen aan het lopen zijn."))
-		}
-		Set SvnHelper = ##class(svn.Helper).%New()
+		}		
+		
 		Do SvnHelper.VoerUitGetLatest()	
-		If (SvnHelper.GetLatestFailed){
+		If (SvnHelper.IsGetLatestGefaald){
 			Do SvnHelper.MailGefaaldeSvnCommands("GetLatest")
 		}ElseIf(UitvoerenUnitTesten && SvnHelper.IsCodeVeranderd){	
 			Do SvnHelper.VoerUitUnitTesten()		
@@ -158,17 +195,17 @@
 		#dim MailTo As %String = $listbuild($$$SVNGlobal("SourceControl","SVN","MailWhenFailed"))
 		Do SendMiniMailForced^vhLib.Mail(From,MailTo,"Subversion GetLatest() failed on ["_ServerNaam_" => "_Namespace_"]",Exception.ToString(),0) 
 	}
-	Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 0
+	Set SvnHelper.IsUnitTestBezig = 0
 ]]></Implementation>
 </Method>
 
 <Method name="VoerUitUnitTesten">
 <Private>1</Private>
 <Implementation><![CDATA[
-	If '..GetLatestFailed {
-		Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 1
+	If (..MagUnitTestUitvoeren && ('..IsGetLatestGefaald)) {
+		Set ..IsUnitTestBezig = 1
 		Do ##class(vhUnitTest.Manager).RunTest("/MailOnError=1")
-		Set $$$SVNGlobal("SourceControl","SVN","UnitTestInProcess") = 0		
+		Set ..IsUnitTestBezig = 0
 	}
 ]]></Implementation>
 </Method>
@@ -294,7 +331,9 @@
 		set TECHCSPApplicatie = ##class(TECH.CSP.CSPApplicatie).Instance()
 	
 		if ..HasToBeSynchronized(InternalName) {
-
+			
+			Set ..IsCodeVeranderd = 1
+			
 			set CurrentIO = $IO
 		
 			set ImportFailed = 0
@@ -427,6 +466,7 @@
 <FormalSpec>InternalName</FormalSpec>
 <Implementation><![CDATA[
 	quit:'$length(InternalName)
+	Set ..IsCodeVeranderd = 1
 	
 	if $extract(InternalName)="_" 	{
 		set CSPFilename = ##class(TECH.CSP.CSPApplicatie).GetPhysicalFilename(InternalName)
@@ -493,8 +533,6 @@
 <Implementation><![CDATA[
 	kill mdSources
 	
-	Set ..IsCodeVeranderd = (..ToCompile.List.Count() > 0)
-	
 	for i=1:1:..ToCompile.List.Count() {
 		set SourceCode = ..ToCompile.List.GetAt(i)
 		if $length(SourceCode) set mdSources(SourceCode)=""
@@ -1848,7 +1886,7 @@
 <Method name="VoerUitGetLatest">
 <Private>1</Private>
 <Implementation><![CDATA[
-	set ..GetLatestFailed = 0
+	set ..IsGetLatestGefaald = 0
 	Set ..IsCodeVeranderd = 0
 
 	if $get($$$SVNGlobal("SourceControl",$$$PRODUCT,"HasConflicts"))=1 {
@@ -1898,7 +1936,7 @@
 				set Message = "Getting Latest done"
 			} else {
 				Do ..ShowFailed()
-				set ..GetLatestFailed = 1
+				set ..IsGetLatestGefaald = 1
 				set Message ="Getting Latest **FAILED**"
 			}
 			
@@ -1908,17 +1946,17 @@
 			}
 		}
 		
-	if '..GetLatestFailed {
+	if '..IsGetLatestGefaald {
 		if ..ToCompile.List.Count() {
 			w !!,"Hercompilatie voorgaande fouten",!
 			do ..CompileImportedSourceCode(1)
 			Do ..ShowFailed()
-			set GetLatestFailed = ..Failed.Count()
+			set IsGetLatestGefaald = ..Failed.Count()
 			do ..Failed.Clear()
 		}
 	}
 	
-	if '..GetLatestFailed {
+	if '..IsGetLatestGefaald {
 		w !,"Starting deploy classes",!
 		do ##class(svn.Deploy).Run()
 		w "Deploy classes finished",!