Index: svn/StudioHook.cls.xml
===================================================================
diff -u -r1649 -r1652
--- svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1649)
+++ svn/StudioHook.cls.xml	(.../StudioHook.cls.xml)	(revision 1652)
@@ -776,14 +776,26 @@
 <Method name="OpenUnitTest">
 <FormalSpec><![CDATA[&InternalName:%String,&Action:%String,&Target:%String]]></FormalSpec>
 <Implementation><![CDATA[
-	#dim UnitTestName = ..UnitTestHelper.BepaalUnitTestName(InternalName)
-	if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) {
-		set Action = 5
-		set Target = UnitTestName_".cls"
-		If InternalName = UnitTestName set Target=""
-	} else {
-		write !,"Geen unittest ("_UnitTestName_") voor "_InternalName	
+	#dim UnitTests As %ListOfDataTypes = ..UnitTestHelper.GetUnitTestsForInternalName(InternalName)
+	if UnitTests.Count() {
+		if UnitTests.Count() > 5 {
+			write !,"Unittests voor "_InternalName_" : "
+			write !,##class(TECH.ListUtils).ListToPieces(UnitTests,$char(13,10))
+		} else {
+			set itUnitTests = ##class(TECH.ListIterator).%New(UnitTests)
+			while itUnitTests.HasNext() {
+				#dim UnitTestName As %String = itUnitTests.Next()
+				if ##class(%Dictionary.ClassDefinition).%ExistsId(UnitTestName) {
+					set Action = 5
+					set Target = UnitTestName_".cls"
+					If InternalName = UnitTestName set Target=""
+				}
+			}
+		}
 	}
+	else {
+		write !,"Geen unittest voor "_InternalName_ "!!!!!!!!!!"	
+	}
 ]]></Implementation>
 </Method>
 
@@ -977,8 +989,9 @@
 	do ..svnHelper.SVNDelete(InternalName)
 	
 	if ##class(svn.Setting).MagUnitTestUitvoeren() {
-		set UnitTestAnalyser = ##class(svn.UnitTestAnalyser).%New(##class(TECH.SourceCodeUtils).StripExtension(InternalName))
-		do UnitTestAnalyser.RemoveUnitTestInfo()
+		#dim ClassName As %String = ##class(TECH.SourceCodeUtils).StripExtension(InternalName)
+		set UnitTestAnalyser = ##class(svn.UnitTestAnalyser).%New(ClassName)
+		do UnitTestAnalyser.RemoveUnitTestInfo(ClassName)
 	}
 
 	
@@ -992,18 +1005,20 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	if ..Debug write "OnAfterCompile : "_InternalName ,!
-
-	set InternalName = ..svnHelper.NormalizeInternalName(InternalName)
-	do ..svnHelper.SVNExport(InternalName)
+	if $get(%objlasterror)="" {
+		if ..Debug write "OnAfterCompile : "_InternalName ,!
 	
-	do ##class(svn.InterfaceControleur).%New().Controleer($piece(InternalName,".",1,$length(InternalName,".")-1))
+		set InternalName = ..svnHelper.NormalizeInternalName(InternalName)
+		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)
+		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)
+			}
 		}
 	}
 	
@@ -1015,6 +1030,7 @@
 <FormalSpec>InternalName:%String</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	set %objlasterror = ""
 	set Status = ..SourceCodeInfoUpdate(InternalName)
 	quit Status
 ]]></Implementation>